Отчет по индивидуальному заданию на вычислительную практику. Вариант 14, УИТ-22

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

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

program zd14;

uses crt;

type

person=record

vid:string[25];

cena:integer;

kol:integer;

end;

var

 i:integer;

 k:integer;

 work:person;

 vid_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(vid);

         write('Введите стоимость:'); readln(cena);

         write('Введите количество товара этого вида на складе:'); readln(kol);

         end;

    write(f,work);

    writeln;

    end;

close(f);

assign(f,name);

{$i-}

reset(f);

{$i+}

if ioresult=0 then

   begin

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

   write('Введите вид искомого товара: '); readln(vid_find);

   writeln;

   seek(f,0);

   est:=false;

   while(not eof(f)) do

             begin

             read(f,work);

             with work do

                  if vid=vid_find then

                  begin

                  writeln('Найдена запись вида продукции: ',vid);

                  writeln('Цена товара:',cena);

                  writeln('Количество на складе:',kol);

                  writeln;

                  est:=true;

                  end;

             end;

   if not est then writeln('Записей с таком видом продукции нет.');

   end;

close(f);

writeln;

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

readln;end.