Записи

[добрый полотенчик]

Создать файл из записей, который содержит сведения о книгах: фамилия автора, название, издательство и год издания. Вывести сведения о книгах заданного издательства. Определить самую «старую» книгу.

Вот мои наработки:

ТЕЛО ПРОГРАММЫ

Begin
z:=false; {значение переменной окончания работы программы}
repeat
clrscr;
Writeln(‘Меню программы’);
Writeln(‘1. Создание файла’);
Writeln(‘2. Модификация файла’);
Writeln(‘3. Печать файла’);
Writeln(‘4. Поиск и печать нужной информации’);
Writeln(‘5. Завершение программы’);
Writeln;
Write(‘–> ’);
Readln(num); {ввод номера пункта}
Case num of {выбор действий соответственно введенному пункту}
1: rewrite_file; {обращение к процедуре xxx для создания файла}
2: mod_file; {обращение к процедуре yyy для добавления записей в файл}
3: write_file; {обращение к процедуре zzz для вывода файла на экран}
4: find_file; {обращение к процедуре aaa для поиска в файле}
5: z:=true; {выход}
else writeln(‘Ошибка выбора’);
end
until z; {цикл работает до тех пор пока true}
writeln(‘Программа завершена’);
readln;
End.

задание выполнить на основе этого меню

Извиняюсь за отсутствие чего-то большего, там очень плохо)))

[DM_bite]

program Xd;
type Books = record
sirAut: string;
name: string
izd: string;
year: integer;
end;
const n=10;
var a:array [1..n] of Books;
i,oldBook: integer;
bookIzd: string;
begin
ReadLn(bookIzd);
oldBook:= 21010;
for i:= 1 to n do
 begin
 ReadLn(a[i].sirAut);
 ReadLn(a[i].name);
 ReadLn(a[i].izd);
 ReadLn(a[i].year);
 if a[i].izd=bookIzd then Write(a[i].sirAut,'__',a[i].name,'__',a[i].izd,'__',a[i].year);
 if oldBook>a[i].year then oldBook:= a[i].year;
end;
WriteLn(oldBook);
ReadLn;
end.

[добрый полотенчик]

спасибо
program xD =)