PDA

Просмотр полной версии : Pascal



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

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

{$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.