Прошу помочь, а то я не совсем понимаю

[Katyusha123]

Прошу помочь, а то я не совсем понимаю

учитывая сведения о каждой книге определить, имеется ли книга с названием «Информатика». Если да, то напечатать фамилию автора и год издания. Если таких книг несколько, то напечатать имеющиеся сведения обо всех этих книгах.

когда только одна такая книга я понимаю как делать прогу...а вот когда их несколько...подскажите пожалуйста как распечатать несколько книг сразу

 

[Vladimir_S]

А в каком формате "сведения"? Массив записей?

 

[Katyusha123]

да записи.... там как нам объясняли вывод нескольких ответов производится как то по другому)

 

[Vladimir_S]

Скажем, так:

TYPE
 T=Record
    Title:String;
   Author:String;
     Year:Word;
   End;

VAR
 Book:Array[1..100] of T;
 i,N,j:Integer;
 BT:String;

BEGIN
 Write('How many books? ');
 Readln(N);
 Writeln('Enter the book data:');
 For i:=1 to N do
  With Book[i] do
   begin
    Writeln('Book N ',i,':');
    Writeln('Title:');
    Readln(Title);
    Writeln('Author:');
    Readln(Author);
    Write('Year of edition: ');
    Readln(Year);
    Writeln;
   end;
 Writeln;
 Writeln('Title of book for search:');
 Readln(BT);
 j:=0;
 For i:=1 to N do
  If Book[i].Title=BT then
   begin
    Inc(j);
    Writeln(j:2,' '+Book[i].Title+' '+Book[i].Author,Book[i].Year:5);
   end;
 Readln
END.

 

[Katyusha123]

спасибо я похоже поняла))) в этой задаче чтобы вывести несколько книг нужно запомнить номер элемента и выводить -й элемент)))) СПАСИБО))))

 

[Vladimir_S]

спасибо я похоже поняла))) в этой задаче чтобы вывести несколько книг нужно запомнить номер элемента и выводить -й элемент)))) СПАСИБО))))

Да нет же! Просто идет перебор списка, и при совпадении названия с запрошенным выводятся (в своей нумерации) данные о книге.

 

[Katyusha123]

ну да))) прост я по другому немного написала...но в основном я вас поняла))))