Главное меню

Вход на сайт

Кто на сайте?

Сейчас 63 гостей и ни одного зарегистрированного пользователя на сайте

В файл записать информацию о книгах университетской библиотеки: автор, название книги, год издания, цена. Напечатать список книг, изданных начиная с N года.

Решение

Программа для записи информации

type z=record
     avtor:string[20];
     nazv:string[30];
     year:string[4];
     price:real;
     end;
var  F:file of z;
     book:array [1..3] of z;
     i:integer;
begin
writeln('Vvedite svedeniya o knigah');
assign(F,'c:\books.txt');
rewrite(f);
for i:=1 to 3 do begin
write('Avtor:');
readln(book[i].avtor);
write('Nazvanie:');
readln(book[i].nazv);
write('God izdaniya:');
readln(book[i].year);
write('Cena:');
readln(book[i].price);
write(F,book[i]);
writeln('----------------');
end;
Close(F);
end.


Программа для поиска

type z=record
     avtor:string[20];
     nazv:string[30];
     year:string[4];
     price:real;
     end;
var  F:file of z;
     book:array [1..3] of z;
     i:integer;
     year:string[4];
begin
assign(F,'c:\books.txt');
reset(f);
writeln('');
write('Vibrat knigi izdannye s:');
readln(year);
while not Eof(F) do begin
read(F,book[i]);
if book[i].year>=year then
   begin
   writeln(book[i].Nazv,' ',book[i].year);
   end;
end;
Close(F);
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте