Тест по программе Какого значение ключевого поля?
А.Создание связей между таблицами
В.Создание новых таблиц
С.Фильтрация данных
D.Сортировка данных

2)В режиме конструктора таблицы СУБД Access можно:
А.вносить данные
В.формировать отчеты
С.создавать талицу добавляя поля и устанавливая для них значений и свойства
D.создавать за Для чего используется тип данных счетчик в СУБД Access?
A.для нумерации записей в автоматическом режиме
B.для нумерации записей самим пользователем
С.используется для задания первичного ключа
D.используется для задания вторичного ключа

4) столбец таблицы СУБД Access называется:
А.полем
В.столбцом
С.записью
D.значением

5) Между какими объектами устанавливаются связи?
А.между таблицами
В.между отчетами
С.между за между формами

6) ключевое поле должно быть
A.пронумеровано
B.иметь тип данных счетчик
C.должно содержать короткую запись
D.уникальным

7)Какой тип связи необходимо установить, если одной записи в таблице А может соответствовать несколько записей в таблице B, а одной записи в таблице B несколько записей в таблице A?
A. Много-ко-многим
B.Один-к-одному
C.Много-к-одному
D.Один-ко-многим

Программа поиска элемента в произвольном массиве:
const n=10;
var a:array[1..n+1] of integer;
p,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:4);
 end;
writeln;
write('p = '); readln(p);
a[n+1]:=p;
i:=1;
while a[i]<>p do i:=i+1;
if i<=n
 then writeln('Искомый элемент найден, его номер = ',i)
 else writeln('Искомый элемент не найден');
end.

Пример 1:
Исходный массив:
   7  17  16  13   0   1  19  20  12   5
p = 13
Искомый элемент найден, его номер = 4

Пример 2:
Исходный массив:
  20   4   5  12  14  10  11  16  18  20
p = 15
Искомый элемент не найден

Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.