Показать сообщение отдельно
Старый 19.06.2011, 18:44   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Скажем, так:
Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070