Turbo Pascal - Wielka prosba!

20.01.2008

18:50

[1]

InsicT [ let!s trance ]

Turbo Pascal - Wielka prosba!

Witam, czy ktoś na forum jest w stanie napisać program w pascalu zawierający następujące procedury sortowania: (Chodzi mi o to, aby każdy rodzaj sortowania dało sie wybrać na początku <<readkey>> np. 1 - sortowanie babelkowe, 2 - sortowanie szybkie itp.) Pozdrawiam.

Sortowanie bąbelkowe

procedure Babelek;

var

e :string;

i,j,zamiana :integer;

begin

wy:=we;

for j:= z-1 downto 1 do

begin

for i:=1 to j do

if wy > wy[i+1] then

begin

zamiana:=wy;

wy:=wy[i+1];

wy[i+1]:=zamiana;

end;

end;

end;



Sortowanie szybkie

procedure Szybkie( var r :n; mniejsza,wieksza :integer );

var

i,j,t :integer;

begin

while wieksza > mniejsza do

begin

i:=mniejsza;

j:=wieksza;

t:=r[mniejsza];

while i < j do

begin

while r[j] > t do

j:=j-1;

r:=r[j];

while (i<j) and (r<=t) do

i := i+1;

r[j] := r;

end;

r:=t;

Szybkie(r,mniejsza,i-1);

mniejsza:=i+1;

end

end;



Sortowanie przez wybór

procedure Wybor (var a :n);

var

i,j,min,zamiana :integer;

begin

for j := 1 to z - 1 do

begin

min := j;

for i := j + 1 to z do

if a < a[min] then

min := i;

zamiana := a[j];

a[j] := a[min];

a[min] := zamiana;

end;

end;



Sortowanie przez wstawianie

procedure Wstawianie (var a :n; mniejsza,wieksza :integer);

var

i,k,x :integer;

begin

for k:=mniejsza+1 to wieksza do

begin

if a[k] < a[k-1] then

begin

x:= a[k]; i:=k;

repeat

dec(i);

a[i+1]:=a;

until (i=mniejsza) or (a[i-1] <= x);

a:=x;

end;

end;

end;



Sortowanie Shella

procedure Shell (var a: n);

var

i,j,h,x :integer;

begin

h := 1;

repeat

h := 3 * h + 1

until h >= z;

repeat

h := h div 3;

for i := h + 1 to z do

begin

x := a;

j := i;

while a[j-h] > x do

begin

a[j]:=a[j-h];

j:=j-h;

if j <= h then;

end;

a[j]:=x;

end;

until h=1;

end;