Типизированные файлы, Паскаль

[Ver4ik]

Типизированные файлы, Паскаль

16. Создать файл, содержащий сведения о сотрудниках некоторой фирмы. Структура записи: фамилия работающего, дата зачисления в штат фирмы, название отдела, должность, оклад. Количество записей произвольно. Составить программу, которая выдает ведомость на получение льготных путевок для сотрудников с окладом, меньшим заданного.

 

[Gruvi]

Вот похожая задача:

Исходный файл содержит информацию: Имя, фамилия,отчество, номер телефона, адрес. Создать процедуру, которая записывает во второй файл и выводит на экран по фамилии телефон, адрес ( учесть возможность однофамильцев). Имя файла любое.

вот решение , оптимизируйте дальше сами, там ничего сложного нету :

Uses crt;
Type r=record
name:string;
surname:string;
lastname:string;
adress:string;
phone_number:string[7];
end;
f=file of r;
var
s:string;
f1:text;
f2:f;
procedure cr(var f2:f);
var p:r;
begin
rewrite(f2);
with p do begin
repeat
write('surname-');
readln(surname);
if surname <>''then begin
write('name-');
readln(name);
write('lastname-');
readln(lastname);
write('adress');
readln(adress);
write('phone number-');
readln(phone_number);
write(f2,p);
end;
until surname='';
end;
end;
procedure search(var f1:text);
var p:r;
s:string;
begin
reset(f2);
rewrite(f1);
seek(f2,0);
write('input surname');
readln(s);
while not eof(f2) do begin
read(f2,p);
if (s=p.surname) then begin
writeln(f1,p.phone_number,p.adress);
end;
end;
close(f1);
close(f2);
end;
begin
writeln('input name of file (with .txt in end)');
readln(s);
Assign(f2,s);
writeln('name of output file');
readln(s);
Assign(f1,s);
cr(f2);
search(f1);
end.