Курсовая работа: Составить программу на языке Turbo Pascal для параллельной сортировки чисел
begin
x:=a[i];
j:=i-1;
while (x<a[j]) and (j>=1) do
begin
a[j+1]:=a[j];
j:=j-1;
k:=k+1;
if j=0 then goto 1;
end;
1: a[j+1]:=x;
end;}
{puzyrkovyi metod}
for i:=2 to e do
begin
for j:=e downto i do
if a[j-1] > a[j] then
begin
x:=a[j-1];
a[j-1]:=a[j];
a[j]:=x;
end;
end;
Схема алгоритма
 |
Текст Программы
program kursach1;
uses crt;
var a: array [1..100] of integer;
i,e,n,kod,j,k,x:integer; fam:string; f:boolean;