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

Ver4ik · 26.04.2012, 20:26

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

Gruvi · 01.05.2012, 01:04

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

Цитата:

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

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

Цитата:

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.

26.04.2012, 20:26	#1 (permalink)
Ver4ik Новичок Регистрация: 26.04.2012 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Типизированные файлы, Паскаль 16. Создать файл, содержащий сведения о сотрудниках некоторой фирмы. Структура записи: фамилия работающего, дата зачисления в штат фирмы, название отдела, должность, оклад. Количество записей произвольно. Составить программу, которая выдает ведомость на получение льготных путевок для сотрудников с окладом, меньшим заданного.

26.04.2012, 20:26
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Я вам советую прочитать уже обсуждаемые темы Текстовые файлы, Паскаль Паскаль, текстовые файлы

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070