Алгоритмы и программы. Афанасьева Т. В - 171 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

171
{high–возвращает верхний предел диапозона значений
аргумента}
for i:=0 to high(a) do
begin
m:=a[i];
k:=i;
for j:=i+1 to high(a) do
if a[j]>m then begin
m:=a[j];
k:=j;
end;
a[k]:=a[i];
a[i]:=m;
end;
end;{sort}
{****** MAIN **************}
begin
writeln(' Пример : расположить по убыванию элементы ');
writeln(' каждого столбца двумерного массива ');
writeln(' (элементы массива вводятся с ');
writeln(' помощью датчика случайных чисел). ');
writeln(' Исходный массив: ');
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
c[j,i]:=random(100);
write(c[j,i],' ');
end;
writeln;
end;
for j:=1 to 4 do
begin
{move–копирует заданное количество последоватепльных байтов
из исходной области памяти в назначенную область}
move(c[j],s,8);
{вызов процедуры,где s типа массив фактический параметр}
sort(s);
move(s,c[j],8);
end;
writeln(' Измененный массив
: ');
for j:=1 to 4 do

Страницы