SPAM

Re: 4. Platz

fürn


____________________

Re: 4. Platz

ICH BIN ZURÜCK!!!!!!!! SIEGHEILSIEGHEILSIEGHEILSIEGHEILSIEGHEIL!!!!!

Re: 4. Platz

woll!

Re: 4. Platz

Sauber.

www.sulden-info.com

-> Favoriten


____________________

Re: 4. Platz

Als kleiner Vorgeschmack die Webcam aus Sulden:
www.sulden-info.com


____________________

Re: 4. Platz

sulden sgeil. wie oft wollen wir durchschnittlich gv haben in einer stunde?

Re: 4. Platz

Vodder Schgukle

Program Testen;
USES CRT;

CONST max=9;

TYPE tfeld = ARRAY[0..max] OF LONGINT;

VAR feld:tfeld;
VAR numa:longint;
VAR d:longint;
VAR erstz:tfeld;

Procedure tausche(a:longint;b:longint;VAR feld:tfeld);
VAR c:longint;
BEGIN
c:=feld[a];
feld[a]:=feld[b];
feld[b]:=c;

numa:=numa+3;
END;

//BubbleSort
Procedure sortiere_a(VAR feld:tfeld);
VAR i:longint;
VAR j:longint;
BEGIN
for j:= max downto 1 do
begin
for i:= 1 to j do
if (feld[i]end;
END;

//DirectInsertion
Procedure sortiere_b(VAR feld:tfeld);
VAR i:longint;
VAR st:longint;
BEGIN
for i:= 1 to max do
begin
st:=i-1;
while (feld[st]>feld[st+1]) and (st>=0) do
begin
tausche(st,st+1,feld);
if st>0 then st:=st-1;
end;
end;

END;

//StraightSelection
Procedure sortiere_c(VAR feld:tfeld);
VAR kle:longint;
VAR st:longint;

VAR i:longint;
VAR j:longint;
BEGIN
for j:= 0 to (max-1) do
begin
kle:=feld[j];
st:=j;

for i:= j to max do
BEgin
if feld[i] begin
kle:=feld[i];
st:=i;
end;
ENd;

if jend;

END;

//QuickSort
Procedure sortiere_d(VAR feld:tfeld;a:longint;e:longint);
VAR i:longint;
VAR j:longint;
VAR vgl:longint;

BEGIN

if a begin
vgl:=feld[(a+e) DIV 2];
i:=a;
j:=e;
While i begin

WHILE feld[i] WHILE vgl if i if i<=j then
begin
i:=i+1;
j:=j-1;
end;
end;
end;

//recall 1
if a
//recall 2
if i
END;

Procedure reset(VAR feld:tfeld;VAR numa:longint);
VAR i:longint;

Begin
randomize;

for i:=0 to max do
erstz[i]:=random(1200);
End;

Procedure anpastor(VAR feld:tfeld;VAR erstz:tfeld;VAR numa:longint);
VAR i:longint;

Begin
for i:=0 to max do
feld[i]:=erstz[i];
numa:=0;
end;

Begin
clrscr;

reset(feld,numa);

anpastor(feld,erstz,numa);
sortiere_a(feld);
Write('BubbleSort: ');Write(numa);Writeln(' Tauschvorg„nge');
anpastor(feld,erstz,numa);
sortiere_b(feld);
Write('DirectInsertion : ');Write(numa);Writeln(' Tauschvorg„nge');
anpastor(feld,erstz,numa);

for d:=0 to max do
writeln(feld[d]);

sortiere_c(feld);
Write('StraightSelection: ');Write(numa);Writeln(' Tauschvorg„nge');
anpastor(feld,erstz,numa);
sortiere_d(feld,0,max);
Write('QuickSort: ');Write(numa);Writeln(' Tauschvorg„nge');

readln;
End.


____________________
Rioter,
could you please be a little quieter.
You will only start another world war.
But are you able to win one?
No, probably not.

Re: 4. Platz

halt die klappe. du hast iron maiden- fear of the dark nicht erkannt...

Re: 4. Platz

Ruuuuun to the hills!

Re: 4. Platz

Zitat: Der B


sulden sgeil. wie oft wollen wir durchschnittlich gv haben in einer stunde?