Developing.ru

Код: Выделить всё

procedure bubble; //пузырьковая сортировка
var i, j, t : byte;
begin
    for i :=2 to N do
        for j:=N downto i do
            if x[i-1]>x[j] then
            begin 
              t:=x[j-1];
              x[j-1]:=x[j];
              x[j]:=t; 
            end;
end;

Код: Выделить всё

var a: array [1..2] of integer]:=2;         
a[2]:=1;
{получили массив: 2 1}
repeat {делаем пока done<>true};
done:=true;
{сравнение двух соседних элементов}
for i:= 1 to 2 do if a[i]>a[i+1] then begin {если 2>1 тогда начать (тк. а[i]=1, a[i+1]=2)}
{меняем местами}
buf:=a[i];        {buf:=2}
a[i]:=a[i+1];    {2:=1}
a[i+1]:=buf;     {1:=buf (т.е. 2)}
{получили массив: 1 2}

done:=false;    {массив не был отсортирован.(судя по условию в начале операции)}
end;
until done;
end.

Код: Выделить всё

var m: array [1..10] of integer]:=i; {1,2,3...10}
repeat
done:=true;
for i:= 1 to 10 do if m[i]<>m[i+1] then begin
buf:=m[i];
m[i]:=m[i+1];
m[i+1]:=buf;
done:=false;
end;
until done;
end.