Вимоги до виконання завдань за СУБД MS Access:
1) Створити таблиці-довідники, на основі яких буде заповнюватися головна таблиця (наприклад,
довідник назв міст, довідник назв товарів, довідник назв ліків, довідник назв посад, довідник
викладачів, довідник видів спорідненості і т.д.)
2) Створити основну таблицю.
3) Передбачити поля для введення інформації у вигляді фото.
4) Встановити зв'язки між таблицями.
5) Створити форми для введення даних до таблиць.
6) В основну таблицю ввести 15 записів, в довідники – не менше п'яти.
7) За отриманими запитами створити звіти.

Задание:
«Хіти місяця»
1. Відомості: назва пісні, композитор, поет, виконавець, дата I-го виконання, місто
2. Сімейний стан композитора (ПІБ родича, вид споріднення (заповнюється з довідника родинних
зв'язків), дата народження).
3. Створити таблицю за до запиту: вивести назви всіх пісень, вперше виконаних за останні 2
роки.
4. Створити такі запити:
a) вивести дати виконання пісень одного композитора;
b) вивести назви віх пісень, виконаних вперше в Києві.

1)uses crt;
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x  y');
for i:=1 to n do
writeln(x[i],'  ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.

Вопрос 11. Информационной моделью, которая имеет табличную структуру, является:
ответ 2. расписание авиарейсов;

Вопрос 12. Информационной моделью, которая имеет сетевую структуру, является:
ответ 3. модель компьютерной сети Интернет;

Вопрос 13. Натурное моделирование - это:
ответ 4. моделирование, при котором модель имеет визуальную схожесть с объектом-оригиналом

Вопрос 14. Информационной моделью объекта нельзя считать:
ответ 3. другой объект, не отражающий существенных признаков и свойств объекта-оригинала;

Вопрос 15. Математическая модель объекта - это:
ответ 1. совокупность записанных на языке математики формул, отражающих свойства объекта;

Вопрос 16. В отношениях «объект-модель» находятся
ответ 2. болт - чертеж болта;

Вопрос 17. К числу документов, представляющих собой информационную модель управления государством, можно отнести:
ответ 1. Конституцию РФ;

Вопрос 18. К информационным моделям, описывающим организацию учебного процесса в школе, можно отнести:
ответ 4. расписание уроков.

Вопрос 19. Отметить истинное высказывание:
ответ 4. чтение справочной литературы - это поиск информации.

Вопрос 20. Рисунки, карты, чертежи, диаграммы, схемы, графики представляют собой:
ответ 3. графические информационные модели;