Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Прошу помочь, а то я не совсем понимаю (http://www.tehnari.ru/f41/t53424/)

Katyusha123 19.06.2011 17:56

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

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

Vladimir_S 19.06.2011 18:08

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

Katyusha123 19.06.2011 18:13

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

Vladimir_S 19.06.2011 18:44

Скажем, так:
Код:

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 19.06.2011 18:48

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

Vladimir_S 19.06.2011 19:04

Цитата:

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

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

Katyusha123 19.06.2011 19:13

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


Часовой пояс GMT +4, время: 13:37.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.