Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:АВТИ информатика по паскалю / Metod1_2010 / INSORT / BUBBLE
.PAS {¬Ґв®¤ Їг§ламЄ }
procedure BubbleSort;
var i,j:index; x:integer;
begin
for i:=2 to n do
{ўбЇ«лў ЁҐ Їг§ламЄ
га®ўҐм i}
begin
for j:=n downto i do
if f(a[j-1])>f(a[j]) then
{®Ў¬Ґ ¬Ґбв ¬Ё (j-1)-Ј®
Ё j-Ј® н«Ґ¬Ґв®ў}
end
end;{BubbleSort}
procedure BubbleSort;
var i,j:index; x:integer;
begin
for i:=2 to n do
{ўбЇ«лў ЁҐ Їг§ламЄ
га®ўҐм i}
begin
for j:=n downto i do
if f(a[j-1])>f(a[j]) then
{®Ў¬Ґ ¬Ґбв ¬Ё (j-1)-Ј®
Ё j-Ј® н«Ґ¬Ґв®ў}
end
end;{BubbleSort}
Соседние файлы в папке INSORT