SPAM

Re: 4. Platz

Ja man merkts!!!

---

--Eintracht Frankfurt--

-Sportfreunde Siegen-

1899 wurden die besten Vereine gegründet

Re: 4. Platz

Was ist am Montag frei?


____________________
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

montag 5.märz!hat der reich doch heut gesagt,......ausgleichstag für tag der offenen tür


____________________

Re: 4. Platz

njo


____________________
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

stimmt warum weiß ich das eigentlich,hab in geschi doch nur gepennt...

Re: 4. Platz

826.

Das ist wirklich verwunderlich.


____________________

Re: 4. Platz

Olli, nach intensiven Programm analysen habe ich den Fehler in unserem Direct Insertion verfahren entdeckt:

Program dirrec;
USES CRT;

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

VAR feld:tfeld;
VAR d:longint;

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

Procedure sortiere;
VAR i:longint;
VAR st:longint;
VAR fin:Boolean;
BEGIN
for i:= 1 to 9 do
begin
fin:=FALSE;
st:=i;
while (feld[st] begin
tausche(st,st-1);
if st=1 then fin:=TRUE
else st:=st-1;
end;
end;

END;

Begin
clrscr;

feld[0]:=21;
feld[1]:=3;
feld[2]:=45;
feld[3]:=78;
feld[4]:=21;
feld[5]:=36;
feld[6]:=17;
feld[7]:=8;
feld[8]:=64;
feld[9]:=89;

sortiere;

for d:=0 to 9 do
Writeln(feld[d]);

readln;
End.



dat Klappt.

Ich war schneller als du, Ich war schneller als du


____________________
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

Und hier ist aus schon das Testprogramm, nach dem komischerweise alle gleich schnell ist:

Program Testen;
USES CRT;

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

VAR feld:tfeld;
VAR numa:longint;

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

numa:=numa+1;
END;

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

//DirectInsertion
Procedure sortiere_b;
VAR i:longint;
VAR st:longint;
VAR fin:Boolean;
BEGIN
for i:= 1 to 9 do
begin
fin:=FALSE;
st:=i;
while (feld[st] begin
tausche(st,st-1);
if st=1 then fin:=TRUE
else st:=st-1;
end;
end;

END;

//StraightSelection
Procedure sortiere_c;
VAR i:longint;
VAR j:longint;
BEGIN
for j:= 0 to 8 do
begin
for i:= j to 9 do
if feld[i] begin
tausche(i,j);
end;
end;
END;

Procedure reset;
Begin
feld[0]:=21;
feld[1]:=3;
feld[2]:=45;
feld[3]:=78;
feld[4]:=59;
feld[5]:=36;
feld[6]:=17;
feld[7]:=8;
feld[8]:=64;
feld[9]:=2;
numa:=0;
End;

Begin
clrscr;

reset;
sortiere_a;
Write('BubbleSort: ');Write(numa);Writeln(' Tauschvorg„nge');
reset;
sortiere_b;
Write('DirectInsertion : ');Write(numa);Writeln(' Tauschvorg„nge');
reset;
sortiere_c;
Write('StraightSelection: ');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

aso






____________________

Re: 4. Platz

830

Depp.


____________________