Добро пожаловать, гость
:: алгоритмы  и методы :: :: олимпиадные задачи :: :: связь :: :: о сайте :: :: форум ::

Форум работает в режиме архива, только для чтения и поиска.
Архив 2004 Архив 2007 Архив 2013

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.06.2009, 21:42
Dlthan

 
Сообщений: n/a

Quick sort na Pascal ("special" для НУБОВ))
var a:array[1..10000] of longint;
i,n:longint;
procedure qsort(l,r:longint);
var k,i,j,y:longint;
begin
i:=l;
j:=r;
k:=a[(l+r) div 2];
repeat
while a[i]<k do inc(I);
while a[j]>k do dec(j);
if i<=j then
begin
y:=a[i]; a[i]:=a[j]; a[j]:=y;
inc(i); dec(j);
end;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;

begin
read(n);
for i:=1 to n do
read(a[i]);
qsort(1,n);
for i:=1 to n do
write(a[i],' ');
end.
  #2  
Старый 19.06.2009, 06:23
MBo MBo вне форума
Местный

Отправить личное сообщение для MBo Посмотреть профиль Найти все сообщения от MBo
 
Регистрация: 21.09.2006
Адрес: Новосибирск
Сообщений: 1,374

Какова цель ветки?
  #3  
Старый 01.12.2009, 22:29
гость

 
Сообщений: n/a

Сообщение от Dlthan Посмотреть сообщение
var a:array[1..10000] of longint;
i,n:longint;
procedure qsort(l,r:longint);
var k,i,j,y:longint;
begin
i:=l;
j:=r;
k:=a[(l+r) div 2];
repeat
while a[i]<k do inc(I);
while a[j]>k do dec(j);
if i<=j then
begin
y:=a[i]; a[i]:=a[j]; a[j]:=y;
inc(i); dec(j);
end;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;

begin
read(n);
for i:=1 to n do
read(a[i]);
qsort(1,n);
for i:=1 to n do
write(a[i],' ');
end.
для нубов говоришь, ну, ну, тогда отец, ответь,почему у тебя репеат есть а антил нет ?)
  #4  
Старый 23.12.2009, 06:41
гость

 
Сообщений: n/a

Да и из процедуры возврата значений нет
  #5  
Старый 01.03.2011, 09:50
гость1

 
Сообщений: n/a

Програма работает нормально, дааа) Если строчку с репитом удалить) И кто тут нуб?
 


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Построение пирамиды из "Х" и " " с помощью for. Alexander_ua Задачи 3 10.11.2009 13:35
Алторитм Quick Sort гость Сортировка и поиск 1 28.02.2008 01:29
Проверка на существование/отсутствие предыдущего поколение в игре "Жизнь" гость Сортировка и поиск 0 02.12.2007 00:31
Quick Sort toto Сортировка и поиск 3 18.05.2007 08:01