Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Методические указания по выполнению. Работа с файлами без типа




ЗАДАНИЕ

Работа с файлами без типа

- чтение блока данных:

BLOCKREAD(<программный файл>, переменная, n[, m]);

- запись блока данных:

BLOCKWRITE(<программный файл>, переменная n[, m]);

где переменная - переменная любого типа

n - размер блока,

m – необязательный параметр, определяющий размер блока в записях.

При чтении блока данных формируется значение m.

Пример 1: Разработать программу для создания файла записей, если структура файла должна быть следующей:

- табельный номер

- должность

- зарплата

- месяц

Type tip_f=record

tn: byte;

dol: string[30];

zar: real;

mes: byte;

end;

Var z: tip_f;

Otv:char;

F:file of tip_z;

Begin

Assign(f, ‘a:\dat.dat’);

Rewrite(f);

Repeat

With z do

Begin

Write(‘введите табельный номер’);Readln(tn);

Write(‘должность’); readln(dol);

Write(‘зарплата’); readln(zar);

Write(‘месяц’); readln(mes);

End;

Write(f,z);

Writeln(‘продолжить ввод данных (д/н)’); readln(otv);

Until otv=’н’;

Close(f);

End.

 

Пример 2: Разработать программу для дополнения файла записями, если структура файла та же, что и в примере 1.

 

Type tip_f=record

tn: byte;

dol: string[30];

zar: real;

mes: byte;

end;

Var z: tip_f;

Otv:char;

F:file of tip_z;

Begin

Assign(f, ‘a:\dat.dat’);

Reset(f);

Seek(f, filesize(f));

Repeat

With z do

Begin

Write(‘введите табельный номер’);Readln(tn);

Write(‘должность’); readln(dol);

Write(‘зарплата’); readln(zar);

Write(‘месяц’); readln(mes);

End;

Write(f,z);

Writeln(‘продолжить ввод данных (д/н)’); readln(otv);

Until otv=’н’;

Close(f);

End.

Пример 3: Разработать программу для выборки информации из файла записями по табельному номеру, если структура файла та же, что и в примере 1.

 

Type tip_f=record

tn: byte;

dol: string[15];

zar: real;

mes: byte;

end;

Var z: tip_f;

Otv:char;

tn1:byte;

F:file of tip_z;

I, N:byte;

Begin

Assign(f, ‘a:\dat.dat’);

Reset(f);

Writeln(‘введите образец табельного номера’);

Readln(tn1);

Writeln(‘ВЕДОМОСТЬ’);

Writeln(‘начисления заработной платы по табельному номеру - ’, tn1);

Writeln(‘--------------------------------------------------’);

Writeln(‘I п/п I должность I месяц I зарплата I’);

Writeln(‘--------------------------------------------------’);

N:=0;

For i:=1 to filesize(f) do

Begin

Read(f,z);

If z.tn=tn1 then

Begin

N:=N+1;

With z do Writeln (‘I’, n:4, ’I’, dol:15, ‘I’, mes:5, ’I’,

zar:10:2, ‘I’);

End;

End;

Close(f);

End.

 

Составить алгоритм и программу создания файла записей.

Составить алгоритм и программу дополнения файла записями.

Составить алгоритм и программу поиска информации по критерию в файле записей.

Варианты задания приведены в п. 3 лабораторной работы № 4 на с. 38:

задания

4.1 Перед выполнением лабораторной работы обучающийся должен получить индивидуальное задание.

4.2 Изучить теоретический лекционный материал и ознакомиться с описанием лабораторной работы.

4.3 Изучить файловый тип данныхTurbo Pascal.

4.4 Проанализировать задание для выполнения лабораторной работы.

4.5 Выполнить постановку задачи

4.6 Выполнить формализацию задачи.

4.7 Составить алгоритм решения задачи в графической форме.

4.8 Составить программу решения задачи на языке Turbo Pascal.

4.9 С помощью системы программирования Turbo Pascal создать текст программы и выполнить ее.

4.10 Проверить правильность составления программы с помощью контрольного примера.

4.11 Оформить отчет по лабораторной работе.

 




Поделиться с друзьями:


Дата добавления: 2014-12-17; Просмотров: 367; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.01 сек.