Упорядовачивание таблицы по ключу.

[Юлкунчик]

1.
const n=300;
type запись=record ключ:integer;
тело:array [1..99] of 'a'..'z'
end;
таблица=array [1..n] of запись;

Считая, что в таблице записей имеют различные ключи, описать:
а) Процедуру упор(Т), упорядычивающую записи таблицы Т по возрас-
танию ключей;


2.
Type натур=1..maxint;
Описать:
а)функцию digits(n),подсчитывающую количество различных (значащих) цифр в де-
сятичной записи натурального числа n.
б)процедуру print(n),печатающую в возрастающем порядке все цифры ,не
входящие в десятичную запись натурального числа n.


P.S. завтра сдавать.......только сегодня сказали....

[Abbatik]

1.
const n=300;
type запись=record ключ:integer;
тело:array [1..99] of 'a'..'z'
end;
таблица=array [1..n] of запись;

Считая, что в таблице записей имеют различные ключи, описать:
а) Процедуру упор(Т), упорядычивающую записи таблицы Т по возрас-
танию ключей;

const n=10;
type
zapis=record
key:integer;
body:array[1..99] of 'a'..'z';
end;
table1=array[1..n] of zapis;
....
proceudre upor(t:table1);
begin
i,k,j:integer;
s:string;
begin
for i:=1 to n-1 do begin
for j:=i+1 to n do begin
if t[i].key<t[j].key then begin
k:=t[i].key;
t[i].key:=t[j].key;
t[j].key:=k;
s:=t[i].body;
t[i].body:=t[j].body;
t[j].body:=s;
end;
end;
end;
end;
....

[Юлкунчик]

СПАСИБОЧКИ!!!!!тебе громадные!!!!!!! я очень очень рада