21.04.2011, 14:22 | #1 (permalink) |
Member
Регистрация: 15.02.2011
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Быстрый метод сортировки(Делфи)
Код:
Program gutic_sort; const n=500; var arr : array [1..n] of real; middle : real; temp : real; sp : integer; i,j : integer; f : text; stackl, stackr : array [1..n] of integer; left, right : integer; begin assign(f, 'D:\pascal\input.txt'); reset(f); for i:=1 to n do read(f, arr[i]); sp :=1; stackl[1]:=1; stackr[1]:=n; while sp>0 do begin left:=stackl[sp]; right:=stckr[sp]; dec(sp); while left< right do begin i:= left; j:=right; middle:=arr[(left+right) div 2]; while i<j do begin while arr[i]< middle do inc(i); while middle< arr[j] do dec(j); if i<= j then begin temp:=arr[i]; arr[i]:=arr[j]; arr[j]:= temp: inc(i): dec(j); end; end; if i< right then begin inc(sp); stackl[sp]:=i; stackr[sp]:= right; end; right:=j; end; end; writeln; for i:=1 to n do write(arr[i]:8:2); writeln; end. |
21.04.2011, 14:22 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Изучите аналогичные темы, которые встречались ранее Метод шифрования Rot 66 Методы сортировки |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|