Program PP71;
Type ZAP=Record
FIO:Array[1..10] of Char;
God:Integer
end;
FPK=File;
Var FIZAP:FPK;
A,B:ZAP;
J,I:Integer;
Begin Assign(FIZAP,'pp71.dat');
Rewrite(FIZAP, 12);
For J:=1 to 3 do
Begin Write('=>');
For I:=1 to 10 do Read(B.FIO[I]);
Readln(B.God);
BlockWrite(FIZAP,B,1)
end;
Close(FIZAP);
Reset(FIZAP, 12);
For J:=1 to 3 do
Begin BlockRead(FIZAP,A,1);
Writeln(J:2,'-ая запись ',A.FIO,A.God:5);
end
end.
Program PP74;
Type ZAP=Record
FIO:Array[1..10] of Char;
God:Integer
end;
FPK=File;
Var FIZAP:FPK;
A:ZAP;
I:Integer;
Begin Assign(FIZAP,'pp74.dat');
Rewrite(FIZAP, 12);
Repeat
Write('=>');
For I:=1 to 10 do Read(A.FIO[I]);
Readln(A.God);
BlockWrite(FIZAP,A,1);
Until A.FIO='**********';
Close(FIZAP);
Reset(FIZAP,12);
I:=1;
Repeat
BlockRead(FIZAP,A,1);
Writeln(I:2,'-ая запись ',A.FIO,A.God:5);
I:=I+1
Until A.FIO='**********'
end.
Program PP75;
Type ZAP=Record
FIO:Array[1..10] of Char;
God:Integer
end;
FPK=File;
Var FIZAP,RB:FPK;
A:ZAP;
I:Integer;
{-------------------------------------------------------------------------}
{ВВОД ИСХОДНЫХ ДАННЫХ В ФАЙЛ FIZAP}
Begin Assign(FIZAP,'C:\program\t-pas\pp75.dat');
Rewrite(FIZAP, 12);
Repeat
Write('=>');
For I:=1 to 10 do Read(A.FIO[I]);
Readln(A.God);
BlockWrite(FIZAP,A,1);
Until A.FIO='**********';
Close(FIZAP);
{------------------------------------------------------------------------}
{КОНТРОЛЬНЫЙ ВЫВОД СОДЕРЖИМОГО ОБРАБАТЫВАЕМОГО ФАЙЛА FIZAP}
Writeln;
Writeln('Обрабатываемый файл:');
Reset(FIZAP,12);
I:=1;
Repeat
BlockRead(FIZAP,A,1);
Writeln(I:2,'-ая запись ',A.FIO,A.God:5);
I:=I+1
Until A.FIO='**********';
Close(FIZAP);
{------------------------------------------------------------------------}
{ПЕРЕПИСЬ ИЗ ОБРАБАТЫВАЕМОГО ФАЙЛА FIZAP В РАБОЧИЙ ФАЙЛ RB ЛЮДЕЙ, }
{ РОДИВШИХСЯ НЕ РАНЕЕ 1970 ГОДА }
Reset(FIZAP,12);
Assign(RB,'C:\program\t-pas\ppr75.dat');
Rewrite(RB,12);
Repeat
BlockRead(FIZAP,A,1);
If A.God>=1970 then BlockWrite(RB,A,1)
Until A.FIO='**********';
Close(RB);
Close(FIZAP);
{------------------------------------------------------------------------}
{КОНТРОЛЬНЫЙ ВЫВОД СОДЕРЖИМОГО РАБОЧЕГО ФАЙЛА RB}
Writeln;
Writeln('Рабочий файл:');
Reset(RB,12);
I:=1;
Repeat
BlockRead(RB,A,1);
Writeln(I:2,'-ая запись ',A.FIO,A.God:5);
I:=I+1
Until A.FIO='**********';
Close(RB);
{------------------------------------------------------------------------}
{ПЕРЕПИСЬ ИЗ РАБОЧЕГО ФАЙЛА RB В ОБРАБАТЫВАЕМЫЙ ФАЙЛ FIZAP}
Reset(RB,12);
Rewrite(FIZAP,12);
Repeat
BlockRead(RB,A,1);
BlockWrite(FIZAP,A,1)
Until A.FIO='**********';
Close(RB);
Close(FIZAP);
{-------------------------------------------------------------------------}
{КОНТРОЛЬНЫЙ ВЫВОД СОДЕРЖИМОГО ОБРАБАТЫВАЕМОГО ФАЙЛА FIZAP}
Writeln;
Writeln('Обработанный файл:');
Reset(FIZAP,12);
I:=1;
Repeat
BlockRead(FIZAP,A,1);
Writeln(I:2,'-ая запись ',A.FIO,A.God:5);
I:=I+1
Until A.FIO='**********';
Close(FIZAP);
{------------------------------------------------------------------------}
Writeln('ok')
end.
Program z3;
type zap=record
nazv:array[1..15] of char;
cena:real
end;
tov=file;
var nov,star:tov;
b:zap;
i:integer;
Begin
{----------------------------------------------------------------------}
{ОТКРЫТИЕ ФАЙЛА STAR НА ЗАПИСЬ}
assign(star,'c:\program\t-pas\star.dat');
rewrite(star,24);
{---------------------------------------------------------------------}
{ЗАПОЛНЕНИЕ ФАЙЛА STAR УПОРЯДОЧЕННЫМИ ПО НЕУБЫВАНИЮ ЦЕН ТОВАРОВ ЗАПИСЯМИ}
writeln('НАЗВАНИЕ ТОВАРА',' ЦЕНА(руб.)');
repeat
for i:=1 to 15 do read(b.nazv[i]);
readln(b.cena);
blockwrite(star,b,1)
until b.nazv='***************';
close(star);
{-----------------------------------------------------------------------}
{КОНТРОЛЬНЫЙ ВЫВОД СОДЕРЖИМОГО ФАЙЛА star}
writeln;
writeln('Обрабатываемый файл:');
reset(star,24);
repeat
blockread(star,b,1);
writeln(b.nazv:15,' ',b.cena:6:2)
until b.nazv='***************';
close(star); end.
{-----------------------------------------------------------------------}
{ВВОД С ТЕРМИНАЛА ПОЛЕЙ НОВОЙ ЗАПИСИ}
{-----------------------------------------------------------------------}
{ВСТАВКА НОВОЙ ЗАПИСИ}
{-----------------------------------------------------------------------}
{ПЕРЕПИСЬ ДАННЫХ ИЗ НОВОГО ФАЙЛА В СТАРЫЙ И ИХ ПЕЧАТЬ}
{----------------------------------------------------------------------}
{ЗАКРЫТИЕ ФАЙЛОВ}
{------------------------------------------------------------------------}
end.