Решения задач acmp.ru
Главная
Вход
Регистрация
Четверг, 01.10.2020, 04:06Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0041 Цифровая сортировка

Скачать файл можно после просмотра рекламы:

14.06.2012, 00:47
var 
i,n:longint; 
buf,X:extended; 
a:array[1..1000000]of extended; 

procedure Sort(L,R:Longint); 
var 

j:longint; 

begin 
i:=L; j:=R; X:=a[(i+j)shr 1]; 
repeat 
while a[i]<X do inc(i); 
while a[j]>X do dec(j); 
if i<=j then begin 
buf:=a[i]; a[i]:=a[j]; a[j]:=buf; 
inc(i); dec(j); 
end; 
until i>j; 
if i<R then Sort(i,R); 
if j>L then Sort(L,j); 
end; 

begin 
assign(input,'input.txt'); 
assign(output,'output.txt'); 
reset(input); 
rewrite(output); 
read(input,n); 
for i:=1 to n do read(input,a[i]); 
sort(1,n); 
for i:=1 to n do write(output,a[i]:0:0,' '); 
close(output); 
close(input); 
end. 
Категория: Pascal | Добавил: shum
Просмотров: 2408 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020