Const n=20; var a:array[1..n] of integer; i,j,k,x:integer; begin Randomize; Writeln('Исходная последовательность'); for i:=1 to n do begin a[i]:=Random(50)+1; Write(a[i]:3) end; Writeln; for i:=1 to n-1 do begin k:=i; x:=a[i]; for j:=i+1 to n do if a[j]<x then begin k:=j; x:=a[j] end; a[k]:=a[i]; a[i]:=x end; Writeln('После сортировки'); for i:=1 to 20 do begin Write(a[i]:3) end; Writeln end.
1) существует несколько методов создания связи, один из которых заходим в схему данных и выделяем нужное поле и перетаскиваем его на другое поле для установления связи (после чего в диалоговом окне жмем флажок "обеспечение целосности данных") связь готова 2) между таблицами существуют следующие отношения: -один ко многим(наиболее частое) -один к одному - многие ко многим 3) мастер подстановок нужен для того чтобы облегчить пользователю базы данных "жизнь", не вводить по нескольку раз одни и теже данные. а брать уже готовые заранее данные. 4) с конструктора таблиц, с запросов 5) зажатой клавишой ctrl выбрать несколько полей нажать ключевое поле
n=20;
var
a:array[1..n] of integer;
i,j,k,x:integer;
begin
Randomize;
Writeln('Исходная последовательность');
for i:=1 to n do begin a[i]:=Random(50)+1; Write(a[i]:3) end;
Writeln;
for i:=1 to n-1 do begin
k:=i; x:=a[i];
for j:=i+1 to n do
if a[j]<x then begin k:=j; x:=a[j] end;
a[k]:=a[i]; a[i]:=x
end;
Writeln('После сортировки');
for i:=1 to 20 do begin Write(a[i]:3) end;
Writeln
end.
Тестовое решение:
Исходная последовательность
6 37 19 32 34 48 28 8 15 50 25 37 14 12 28 10 15 40 29 10
После сортировки
6 8 10 10 12 14 15 15 19 25 28 28 29 32 34 37 37 40 48 50