Создать программу сортировки массива в порядке возрастания его элементов - Turbo Pascal
Формулировка задачи:
Создать программу сортировки массива А в порядке возрастания его элементов методом вставки, если элементы массива определяются по формуле ai+1=(37*ai+3) mod 64.
Значение а1=2;
i меняется 1-19.
Решение задачи: «Создать программу сортировки массива в порядке возрастания его элементов»
textual
Листинг программы
uses crt;
const m=20;
type mas=array[1..m] of integer;
procedure sort(var a:mas);
var i,j,c:integer;
begin
for i:=2 to m do
begin
c:=a[i];
j:=i-1;
while (j>=1) and (a[j]>c) do
begin
a[j+1]:=a[j];
j:=j-1;
end;
a[j+1]:=c;
end;
writeln('Отсортированный массив');
for i:=1 to m do
write(a[i]:3);
end;
var a:mas;
i:integer;
begin
clrscr;
writeln('Исходный массив');
a[1]:=2;
write(a[1]:3);
for i:=2 to m do
begin
a[i]:=(37*a[i-1])mod 64;
write(a[i]:3);
end;
writeln;
sort(a);
readln
end.