РЕБЯТА ОЧЕНЬ ТЕСТ ПО ИНФОРМАТИКЕ ПО БАЗЕ ДАННЫХ! 1. В одном поле реляционной базы данных могут быть записаны: а) только числовые данные. б) данные разных типов. в) только время создания записей. г) данные только одного типа д) только текстовые данные.
2. Чем отличаются между собой таблицы базы данных? а) Типом полей таблицы Базы данных б) количеством полей таблицы базы данных. в) размерами полей БД (базы данных) г) значениями ключевых полей таблицы БД
д) Количеством ключевых полей таблицы БД
3. Тип поля а реляционной БД определяется: а) названием (именем) поля. б) шириной поля. в) количеством записей в таблице БД. г) количеством значений этого поля. д) типом данных в этом поле.
4. Значение "истина" могут принимать поля какого типа? а) дата/время. б) числового в) МЕМО г) логического д) текстового
5. Значения 2-51-23-45 или 2-55-34-35 могут принимать поля какого типа? а) только числового. б) счётчик. в) только логического. г) только дата/время. д) только текстового.
6. Поле записи (или совокупность полей), однозначно определяющие запись, называется: а) отмычкой базы данных. б) замком базы данных. в) сейфом базы данных. г) меткой базы данных. д) ключом базы данных. е) исключительных полем базы данных. ж) идентефикатором БД.
program r;
var a:array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum:integer;
begin;
for i:=0 to 8 do
if a[i]>0 then begin;
sum:=sum+a[i];
l:=l+1;
end;
for i:=0 to 8 do
writeln('A[',i,'] = ', a[i]);
write('Сумма положительных элементов равна ',sum,', а из количество ',l);
end.
Второе:
program t;
var d:array [0..40] of integer; l,x:integer;
begin;
for x:=0 to 40 do begin;
d[x]:=45*x+15;
if d[x] mod 2 = 1 then l:=l+1;
end;
write('Кол-во нечётных элементов ',l);
end.
Третье:
program y;
var p:array [0..25] of real; k:integer; avg:real;
begin;
for k:=0 to 25 do begin;
p[k]:=7*k+3*k/15;
avg:=avg+p[k];
end;
avg:=avg/26;
write('Среднее значение элементов массива ', avg);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=Arr(-6,7,45,-12,2,7,-15,0,64);
var kp:=0; var sp:=0;
for var i:=0 to a.Length-1 do begin
WritelnFormat('A[{0}]={1}',i,a[i]);
if a[i]>0 then begin kp+=1; sp+=a[i] end
end;
Writeln('Сумма ',kp,' положительных элементов равна ',sp)
end.
Результат
A[0]=-6
A[1]=7
A[2]=45
A[3]=-12
A[4]=2
A[5]=7
A[6]=-15
A[7]=0
A[8]=64
Сумма 5 положительных элементов равна 125
Задание 2
begin
Writeln(SeqGen(40,x->45*x+15,1).Where(x->x.IsOdd).Count);
end.
Результат
20
Задание 3
begin
Writeln(SeqGen(25,k->7*k+3*k/15,1).Average);
end.
Результат
93.6