|
|
Арифметическая сортировка
{
Арифметическая сортировка
Сложность:
n, где n - количество сортируемых элементов
Самый крутой метод, но есть один минус.
Сортировать можно только целые числа =((.
Для Borland Pascal 7.0
Olegis, 01.2005
}
type tarray = array [1..30000] of integer;
var
buf: text;
a: ^tarray;
q: array [0..32000] of integer;
n: word;
procedure inp;
begin
new(a);
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_n_outp;
var
i: integer;
p: integer;
begin
for i:=1 to n do inc(q[a^]);
assign(buf, ′output.txt′);
rewrite(buf);
for p:=0 to 32000 do for i:=1 to q[p] do
writeln(buf, p);
close(buf);
release(a);
end;
BEGIN
inp;
sort_n_outp;
END.
|
| Добавил: LedWorm | Дата публикации: 2005-06-01 16:25:36 |
| Рейтинг статьи: | 3.00 [Голосов 6] | Кол-во просмотров: 6912 |
Комментарии читателей
Всего комментариев: 0
|
|
|
|
|
|
Как вы относитесь к спаму?
Положительно, Я сам спамер. | | 11% (21) | Безразлично | | 11% (21) | Нормально, сам бы спамил | | 6% (11) | Отрицательно | | 67% (129) | А ЧТО, ЕСТЬ СПАМ ... | | 6% (11) |
Проголосовало: 193
|
|
Если Microsoft будет выпускать автомобили, то они несомненно станут бестселлером из-за их надежной тормозной системы.
|
|
