Pascal

[kirill_z]

помогите с программой)
Задача: Получение сведений о книгах
запрос: Список книг определенного автора
Структура записей: Автор книги, название, год издания, соимость, коичество.
В Pascale нужно )) или подскажите ссылочку на форуме, не могу найти...
Спасибо.

[elmigranto]

Если список книг хранится в массиве, то

{$APPTYPE CONSOLE}
type TBookInfo = record
                   Author: String;
                   Title: String;
                   Year: Word;
                   Cost: Word;
                   Amount: Word
                 end;

const Tab = #9;
const N = 255; // Количество различных наименований книг на складе

var Books: array [0..N] of TBookInfo;
    i: Word;
    Request: String; // Имя нужного автора.

function UpCaseStr(Str: String): String;
var i: Word;
begin
  Result := Str;
  for i := 1 to Length(Result) do
    Result[i] := UpCase(Result[i])
end;

begin
  { заполнение массива }

  Write('Author: ');
  Readln(Request);
  Request := UpCaseStr(Request);

  for i := 0 to N do
  if UpCaseStr(Books[i].Author) = Request then
    begin
      Writeln(Books[i].Title);
      Writeln(Tab, 'Author:', Tab, Books[i].Author);
      Writeln(Tab, 'Year:', Tab, Books[i].Year);
      Writeln(Tab, 'Cost:', Tab, Books[i].Cost);
      Writeln(Tab, 'Amount:', Tab, Books[i].Amount);
    end
end.