Скласти модель "сутність-зв'язок" для предметної області Кінотеатр.
Об'єкти: "Актор", "Фільм", "Квиток", "Клієнт"
У фільмах знімаються актори, виконуючи ролі. Про актора відомі прізвище, ім’я, рік народження, є фото та біографія. Про фільми відома інформація: назва, режисер, рік випуску, країна, жанр (фільм може належати до кількох жанрів), тривалість фільму, наявність нагород. Про клієнтів кінотеатру прокату відомі прізвище, ім’я, рік народження, e-mail та телефон. Кожен з них може купувати квиток на фільми, при цьому фіксується дата сеансу, час сеансу і зал. Фільм можуть транслюватись у декількох залах одночасно.
var
A:array[1..100] of integer;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] > 0 then
Summ := Summ + A[i];
end;
writeln;
if Summ <> 0 then
writeln('Summ = ', Summ)
else
writeln('Нет ни одного положительного элемента');
readln;
end.
//вторая программа
var
A:array[1..100] of integer;
B:array[1..100] of real;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] mod 2 = 0 then
B[i] := A[i] / 2
else
B[i] := A[i];
end;
writeln;
writeln;
writeln('Result:');
for i := 1 to n do
write(B[i], ' ');
readln;
end.
День недели понедельник
Дата 04.3.13
Чтение 2
Просмотр телепередач 4
Компьютерные игры 0
Активные игры 0
Общение, прогулки 0
Другое 1
День недели вторник
Дата 05.3.13
Чтение 1
Просмотр телепередач 4
Компьютерные игры 1
Активные игры 0
Общение, прогулки 1
Другое 1
День недели среда
Дата 06.3.13
Чтение 2
Просмотр телепередач 2
Компьютерные игры 1
Активные игры 0
Общение, прогулки 2
Другое 2
День недели четверг
Дата 07.3.13
Чтение 1
Просмотр телепередач 1
Компьютерные игры 3
Активные игры 0
Общение, прогулки 1
Другое 1
День недели пятница
Дата 08.3.13
Чтение 2
Просмотр телепередач 1
Компьютерные игры 0
Активные игры 0
Общение, прогулки 4
Другое 1
День недели суббота
Дата 09.3.13
Чтение 3
Просмотр телепередач 1
Компьютерные игры 0
Активные игры 0
Общение, прогулки 2
Другое 3
День недели воскресенье
Дата 10.3.13
Чтение 1
Просмотр телепередач 1
Компьютерные игры 2
Активные игры 1
Общение, прогулки 2
Другое 2
Итого за неделю: 57
Среднее: 7