Этапы, которых стоит придерживаться при разработке любых баз данных: Создание презентаций и связей с ними. Знакомство с исходными данными. Создание таблиц и связей с ними. Подготовка запросов для анализа данных.
а) uses crt; var n,i,sum:integer; a:array[1..100] of integer; begin writeln('N?'); read(n); writeln('Элементы?'); for i:=1 to n do read(a[i]); for i:=1 to n div 2 do sum:=sum+a[i]; writeln(sum); end. б) uses crt; var n,i,sum:integer; a:array[1..100] of integer; begin writeln('N?'); read(n); writeln('Элементы?'); for i:=1 to n do begin read(a[i]); if i mod 2=0 then sum:=sum+a[i]; end; writeln(sum); end. в) uses crt; var n,i,mult:integer; a:array[1..100] of integer; begin mult:=1; writeln('N?'); read(n); writeln('Элементы?'); for i:=1 to n do begin read(a[i]); if i mod 2<>0 then mult:=mult*a[i]; end; writeln(mult); end. г) uses crt; var n,i,sum:integer; a:array[1..100] of integer; begin writeln('N?'); read(n); writeln('Элементы?'); for i:=1 to n do begin read(a[i]); if (i mod 2=0) and (a[i] mod 2=0) then sum:=sum+a[i]; end; writeln(sum); end.
а) ВЛАЖНОСТЬ > 90
ОСАДКИ <> дождь
б) АВТОР <> Толстой Л. Н.
ГОД < 1990
в) ФИЗИКА = 2
Задание 7
а) ТЕМПЕРАТУРА > 0 (ложь)
ОСАДКИ = 0 (истина)
б) ГОД = 1982 (истина)
ПОЛКА < 5 (истина)
в) ГЕОЛОГИЯ (ложь)
ФАМИЛИЯ = Шляпина (истина)
Задание 8
а) ФАМИЛИЯ <> Семенов
б) ГЕОЛОГИЯ
в) ДЕНЬ < 5/05/1989
г) ДЕНЬ <= 23/09/1996
д) АЛГЕБРА <> 5
е) АВТОР = Беляев А.Р.
ж) ГОД < 1990
з) ПОЛКА >=3
Задание 9
а) . выбрать УЧЕНИК где ФАМИЛИЯ <> Семенов
б) . выбрать УЧЕНИК где ФАКУЛЬТАТИВ = ГЕОЛОГИЯ
в) . выбрать ДЕНЬ < 5/05/1989
г) . выбрать ДЕНЬ <= 23/09/1996
д) . выбрать УЧЕНИК где АЛГЕБРА <> 5
е) . выбрать АВТОР = Беляев А.Р.
ж) . выбрать КНИГА где ГОД < 1990
з) . выбрать КНИГА где ПОЛКА >=3