countingsort.pas

来自「100 CountingSort.pascal」· PAS 代码 · 共 48 行

program sortowanie_przez_zliczanie__RM;

uses crt;

const

rozmiar = 1000;
max_zakres = 1000;
min_zakres = 0;

var
 n : integer;
 sort : array[1..rozmiar] of integer;
 wynik : array[1..rozmiar] of integer;
 zlicz : array[1..max_zakres] of integer;


{.......................................................}

procedure losuj;
var
i:integer;
begin
 randomize;
 writeln('PRZED sortowaniem:'); writeln;
  for i:=1 to n do
    begin
     sort[i]:=random(8);
     write(sort[i] : 3);
    end;
end;


procedure sortuj;
var
i:integer;
begin
  for i := min_zakres to max_zakres do
    zlicz[i] := 0;

  for i := 1 to n do
    Inc(zlicz[sort[i]]);
{suma, pozycja}
  for i := min_zakres + 1 to max_zakres do
    zlicz[i] := zlicz[i] + zlicz[i-1];

  for i := n downto 1 do    {id筩 od ko馽a do pocz箃ku, 
aby zachowa