G
Guest
Сформировать файл "B", записями которого является: фамилии писателей, инициалы, названия книг, год издания. Используя эти данные, сформировать файл "E", где разместить фамилии писателей, которые выдают больше двух книг за год.
З. Ы. - просьба, как можна побыстрее, ПОЖАЛУЙСТА!
С файлом "B" я разобрался, вот исходники:
[codebox]PROGRAM ob4_8_8;
TYPE zap=record
fam:string[10];
ini:string[10];
naz:string[10];
god:integer;
end;
zapus=FILE OF zap;
VAR B,E:zapus;
bd:zap;
i:integer;
BEGIN assign(B,'B.PAS');
rewriterolleyes:;
FOR i:=1 TO 5 DO
begin
WRITE('Введите фамилию писателя - ');
READLN(bd.fam);
WRITE('Введите инициалы - ');
READLN(bd.ini);
WRITE('Введите название книги - ');
READLN(bd.naz);
WRITE('Введите год издания - ');
READLN(bd.god);
WRITE(B,bd);
end;
close(;
WRITELN;
WRITELN('B.PAS');
reset(;
FOR i:=1 TO 5 DO
begin
READ(B,bd);
WRITELN(bd.fam:10,bd.ini:10,bd.naz:10,bd.god:10);
end;
...
...
...[/codebox]
Пожалуйста, помогите с файлом "E"!
З. Ы. - просьба, как можна побыстрее, ПОЖАЛУЙСТА!
С файлом "B" я разобрался, вот исходники:
[codebox]PROGRAM ob4_8_8;
TYPE zap=record
fam:string[10];
ini:string[10];
naz:string[10];
god:integer;
end;
zapus=FILE OF zap;
VAR B,E:zapus;
bd:zap;
i:integer;
BEGIN assign(B,'B.PAS');
rewriterolleyes:;
FOR i:=1 TO 5 DO
begin
WRITE('Введите фамилию писателя - ');
READLN(bd.fam);
WRITE('Введите инициалы - ');
READLN(bd.ini);
WRITE('Введите название книги - ');
READLN(bd.naz);
WRITE('Введите год издания - ');
READLN(bd.god);
WRITE(B,bd);
end;
close(;
WRITELN;
WRITELN('B.PAS');
reset(;
FOR i:=1 TO 5 DO
begin
READ(B,bd);
WRITELN(bd.fam:10,bd.ini:10,bd.naz:10,bd.god:10);
end;
...
...
...[/codebox]
Пожалуйста, помогите с файлом "E"!