|
|
Сортировка методом выбора главного элемента
{
Сортировка методом выбора главного элемента
Сложность:
((n-1)^2)/2, где n - количество сортируемых элементов
Более продвинутый метод по сравнению с "Пузырьком",
но все равно слабенький.
Для Borland Pascal 7.0
Olegis, 01.2005
}
var
buf: text;
a: array [1..30000] of integer;
n: word;
i,j: 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 kt, it, jt: integer;
begin
for i:=1 to n-1 do
begin
kt:=i;
it:=a;
for j:=i+1 to n do
begin
jt:=a[j];
if it>jt then
begin
kt:=j;
it:=jt;
end;
end;
a[kt]:=a;
a:=it;
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:27 |
| Рейтинг статьи: | 3.00 [Голосов 5] | Кол-во просмотров: 7927 |
Комментарии читателей
Всего комментариев: 0
|
|
|
|
|
|
В какой обстановке Вы программируете?
.. с пивом и друзьями ночью | | 9% (16) | .. без пива, но с друзьями | | 2% (3) | .. с кофеваркой в обнимку | | 23% (40) | .. с мешком чего-нибудь хрустящего | | 15% (27) | .. один, но с Rammstein .. | | 51% (89) |
Проголосовало: 175
|
|
- Как хакер взламывает банкомат?
1) Берёт с собой ноутбук и молоток
2) Подходит к банкомату
3) Разбивает банкомат молотком
4) Забирает деньги и уходит
- А зачем ему ноутбук?
- Ну а какой-же хакер без ноутбука!
|
|
