|
|
Сортировка методом
{
Сортировка методом "Пузырька"
Сложность:
(n-1)^2, где n - количество сортируемых элементов
Самый медленный и примитивный метод сортировки.
Далеко Вы с ним не уедите.
Для Borland Pascal 7.0
Olegis, 01.2005
}
var
buf: text;
a: array [1..30000] of integer;
n: word;
i: integer;
procedure inp;
begin
assign(buf, ′input.txt′);
reset(buf);
n:=0;
while not eof(buf) do
begin
inc(n);
readln(buf, a[n]);
end;
close(buf);
end;
procedure sort;
var ch: integer;
f: byte;
begin
f:=1;
while f<>0 do
begin
f:=0;
for i:=1 to n-1 do
begin
if a>a[i+1] then
begin
ch:=a;
a:=a[i+1];
a[i+1]:=ch;
f:=1;
end;
end;
end;
end;
procedure outp;
begin
assign(buf, ′output.txt′);
rewrite(buf);
for i:=1 to n do writeln(buf, a);
close(buf);
end;
BEGIN
inp;
sort;
outp;
END.
|
| Добавил: LedWorm | Дата публикации: 2005-06-01 16:25:18 |
| Рейтинг статьи: | 3.00 [Голосов 5] | Кол-во просмотров: 8331 |
Комментарии читателей
Всего комментариев: 0
|
|
|
|
|
|
Какую P2P-сеть предпочитаете?
Kazaa | | 6% (7) | Shareaza | | 2% (3) | Ml'Donkey | | 9% (11) | BitTorrent | | 21% (27) | Другой | | 8% (10) | А что такое P2P? | | 21% (27) | Ничем не пользуюсь | | 28% (35) | Ненавижу P2P!!! | | 6% (7) |
Проголосовало: 127
|
|
Компания 2С: Программные комплексы для ведения двойной бухгалтерии.
|
|
