Сформирована переменная bibl, содержащая сведения о книгах. Определить имеется ли книга с названием "Информатика".

@tanyhaftv · Регистрация: 09.03.2010

Author24 — интернет-сервис помощи студентам

Сформирована переменная bibl, содержащая сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания.
Определить имеется ли книга с названием "Информатика". Если да, то сообщить фамилию автора и год издания. Если таких книг несколько, то сообщить сведения обо всех этих книгах.
uses crt;
const
Kniga='Informatika';
Type Book = record {Запись описывающая книгу}
title : string[20]; {Заголовок}
auname: string[20]; {Автор}

year : word; {Год}
end;
cat = file of book; {тип - каталог книг}

Var
f : cat;
a : book;
fnm, aut : string;
y : word;
Begin
writeln ('Vvedite imia faila: ');
readln (fnm); {Получаем имя файла для создания }
assign (f, fnm); {связываем файл с именем на носителе}
rewrite (f); {открываем файл для записи (создаём новый)}
writeln ('Najmite ''esc'' dlia vihoda');
repeat {ввод данных}
writeln ('Avtor:');
readln (a.auname);
writeln ('Zagolovok:');
readln (a.title);
writeln ('God:');
readln (a.year);
write (f, a); {пишем структуру в файл}
until readkey=#27; {пока не нажата клавиша esc (её код = 27)}
close (f); {закрываем файл, чтобы сохранить изменения }
reset (f); {открываем файл для чтения }

while not eof (f) do {читаем пока не конец файла}
begin
read (f, a); {считываем очередную запись}
if (a.title=Kniga) then {если она удовлетворяет условиям}
writeln (a.auname,a.year); {выводим название книги}
end;

close (f); {закрываем файл}
readkey;
end.

все.дальше не знаю,помогите...

@GoldenBoy · 16.12.2011, 14:50

Вот изменил немножко и работает...

Pascal

 const
 Kniga='Informatika';
 Type Book = record {Çàïèñü îïèñûâàþùàÿ êíèãó}
 title : string[20]; {Çàãîëîâîê}
 auname: string[20]; {Àâòîð}
 
 year : word; {Ãîä}
 end;
 cat = file of book; {òèï - êàòàëîã êíèã}
 
 
 Var
 f : cat;
 a : book;
 fnm, aut : string;
 y : word;
 i,n:integer;
 Begin
 writeln ('Vvedite imia faila: ');
 readln (fnm); {Ïîëó÷àåì èìÿ ôàéëà äëÿ ñîçäàíèÿ }
 assign (f, fnm); {ñâÿçûâàåì ôàéë ñ èìåíåì íà íîñèòåëå}
 rewrite (f); {îòêðûâàåì ôàéë äëÿ çàïèñè (ñîçäà¸ì íîâûé)}
 write('vvedite kol. zapisey: '); readln(n);
 for i:=1 to n do
 begin
  {ââîä äàííûõ}
 writeln ('Avtor:');
 readln (a.auname);
 writeln ('Zagolovok:');
 readln (a.title);
 writeln ('God:');
 readln (a.year);
 write (f, a); {ïèøåì ñòðóêòóðó â ôàéë}
 end; {ïîêà íå íàæàòà êëàâèøà esc (å¸ êîä = 27)}
 close (f); {çàêðûâàåì ôàéë, ÷òîáû ñîõðàíèòü èçìåíåíèÿ }
 reset (f); {îòêðûâàåì ôàéë äëÿ ÷òåíèÿ }
 
 
 while not eof (f) do {÷èòàåì ïîêà íå êîíåö ôàéëà}
 begin
 read (f, a); {ñ÷èòûâàåì î÷åðåäíóþ çàïèñü}
 if (a.title=Kniga) then {åñëè îíà óäîâëåòâîðÿåò óñëîâèÿì}
 writeln (a.auname,a.year); {âûâîäèì íàçâàíèå êíèãè}
 end;
 
 close (f); {çàêðûâàåì ôàéë}
 end.

@tanyhaftv 83 / 3 / 4 Регистрация: 09.03.2010 Сообщений: 195
		1
	Сформирована переменная bibl, содержащая сведения о книгах. Определить имеется ли книга с названием "Информатика". 16.12.2011, 14:13. Показов 2495. Ответов 1 Метки нет (Все метки) Сформирована переменная bibl, содержащая сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. Определить имеется ли книга с названием "Информатика". Если да, то сообщить фамилию автора и год издания. Если таких книг несколько, то сообщить сведения обо всех этих книгах. uses crt; const Kniga='Informatika'; Type Book = record {Запись описывающая книгу} title : string[20]; {Заголовок} auname: string[20]; {Автор} year : word; {Год} end; cat = file of book; {тип - каталог книг} Var f : cat; a : book; fnm, aut : string; y : word; Begin writeln ('Vvedite imia faila: '); readln (fnm); {Получаем имя файла для создания } assign (f, fnm); {связываем файл с именем на носителе} rewrite (f); {открываем файл для записи (создаём новый)} writeln ('Najmite ''esc'' dlia vihoda'); repeat {ввод данных} writeln ('Avtor:'); readln (a.auname); writeln ('Zagolovok:'); readln (a.title); writeln ('God:'); readln (a.year); write (f, a); {пишем структуру в файл} until readkey=#27; {пока не нажата клавиша esc (её код = 27)} close (f); {закрываем файл, чтобы сохранить изменения } reset (f); {открываем файл для чтения } while not eof (f) do {читаем пока не конец файла} begin read (f, a); {считываем очередную запись} if (a.title=Kniga) then {если она удовлетворяет условиям} writeln (a.auname,a.year); {выводим название книги} end; close (f); {закрываем файл} readkey; end. все.дальше не знаю,помогите... 0

	16.12.2011, 14:50

Опции темы

Сформирована переменная bibl, содержащая сведения о книгах. Определить имеется ли книга с названием "Информатика".

Решение