лабораторная работа / zapisi / ZD29

Отчет по индивидуальному заданию на вычислительную практику

Вариант 29. УИТ-22.

program zd29;

uses crt;

type

person=record

naz:string[25];

god:integer;

mes:integer;

end;

var

i:integer;

k:integer;

work:person;

naz_find:string[25];

est:boolean;

name:string[12];

f:file of person;

begin

clrscr;

write('Введите имя файла данных списка периодических изданий:'); readln(name);

assign(f,name);

rewrite(f);

writeln('Создание файла записей ',name);

write('введите число записей:'); readln(k);

for i:=1 to k do

begin

writeln('Ввод записи N',i);

with work do

begin

write('Введите название издания:'); readln(naz);

write('Введите год издания:'); readln(god);

write('Введите номер месяца издания:'); readln(mes);

end;

write(f,work);

writeln;

end;

close(f);

assign(f,name);

{$i-}

reset(f);

{$i+}

if ioresult=0 then

begin

writeln('Поиск сведений о периодического издания по названию издания:');

write('Введите название искомого издания: '); readln(naz_find);

writeln;

seek(f,0);

est:=false;

while(not eof(f)) do

begin

read(f,work);

with work do

if naz=naz_find then

begin

writeln('Найдена запись издания: ',naz);

writeln('Год издания:',god);

writeln('Месяц издания:',mes);

writeln;

est:=true;

end;

end;

if not est then writeln('Записей с таким названием издания нет.');

end;

close(f);

writeln;

writeln('Для выхода нажмите ENTER...');

readln; end.