Приложение 3

Текст программ создания и печати тестового файла

program file_new;

type zap=record

fam: string[20];

otdel: string[30];

god: integer;

oklad: real;

end;

var

sved :file of zap;

X:zap;

k:integer;

begin

Assign(sved,'sved.dat');

rewrite (sved);

k:=1;

while k<=10 do

begin

writeln('Введите фамилию',k:3, ' сотрудника');

readln(x.fam);

writeln('Введите название отдела');

readln(x.otdel);

writeln('Введите год рождения');

readln(x.god);

writeln('Введите оклад');

readln(x.oklad);

K:=k+1;

write(sved,x);

end;

writeln('Число записей в файле:',K:2); writeln;

reset(sved);

writeln('Данные файла'); writeln;

while not EOF (sved) do begin

read(sved,x);

writeln(x.fam:22,x.otdel:32,x.god:5,x.oklad:10:2);

end;

close(sved);

end.

Приложение 4

Контрольные примеры исполнения программы

Пример 1. Запрос: технический

Результат:

Список сотрудников отдела: технический

N	Фамилия	Оклад
1	Иванов	10000.00
2	Сидоров	9000.00
3	Николаев	8000.00
4	Смирнов	7500.00
5	Кузнецов	5000.00

Пример 2. Запрос: бухгалтерия

Результат:

Список сотрудников отдела: бухгалтерия

N	Фамилия	Оклад
1	Сергеева	9500.00
2	Петрова	8500.00
3	Яковлев	6000.00

Пример 3. Запрос: общий

Результат:

Нет данных по отделу: общий