В предложенных описаниях предметных областей выявите информационные объекты, о
которых необходимо хранить информацию. Для каждого информационного объекта
укажите основные реквизиты (атрибуты).
Библиотека
Описание предметной области
Вы являетесь руководителем библиотеки. Ваша библиотека решила зарабатывать
деньги, выдавая напрокат некоторые книги, имеющиеся в небольшом количестве
экземпляров. Вашей задачей является отслеживание финансовых показателей работы.
У каждой книги, выдаваемой в прокат, есть название, автор, жанр. В зависимости от
ценности книги вы определили для каждой из них залоговую стоимость (сумма, вносимая
клиентом при взятии книги напрокат) и стоимость проката (сумма, которую клиент платит
при возврате книги, получая назад залог). В библиотеку обращаются читатели. Все
читатели регистрируются в картотеке, которая содержит стандартные анкетные данные
(фамилия, имя, отчество, адрес, телефон). Каждый читатель может обращаться в
библиотеку несколько раз. Все обращения читателей фиксируются, при этом по каждому
факту выдачи книги запоминаются дата выдачи и ожидаемая дата возврата
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
begin
A[i] := 1+random(n);
Write (A[i]:4);
end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
begin
if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
Write (A[i]:4);
end;
ReadLn;
end.