[skelle]

Also ich soll in Info ein Programm basteln welches:
Lotto zahlen zieht, diese in einem Array speichert und ausgibt
Die Zahlen sollen sortiert werden und es darf keine Zahl doppelt sein.
Ich bin mit dem Programm soweit fertig aber mir tun sich einige Probleme auf die garnich da sein dürften
1.

 for i:=0 to 6 do

heisst ja dass er i bei jedem durchlauf erhöht

In meiner ersten for schleife klappt das ja auch noch jedoch zählt er danach komischerweise von 7(!!!) bis 0 runter, schreibt aber bei Lotto[7] trotzdem in die erste Spalte des Arrays o.0

Und beim sortieren kommt es ab und zu mal dazu dass die erste Zahl einfach so ohne Grund eine 0 wird und eine andere Zahl gelöscht wird

Ich bin wirklich überfragt^^
Ich hab das Programm ma angehängt und hoffe mir kann jemand helfen

mfg skelle

Hier der Link zum Prog

Dieser Beitrag wurde von skelle bearbeitet: 21. Mai 2006 - 18:00

[tavoc]

procedure TForm1.ZieheClick(Sender: TObject);
var i,n,k:integer;
Lotto:feld;
LottoZ:Zahlen;
werte:string;
begin
werte:=",,";
randomize;

for i:=0 to 6 do
begin
LottoZ[i]:=random(48);
while (0<>pos(,,+LottoZ[i]+, werte)) and (pos(,,+LottoZ[i]+, werte)+1)<>"," then LottoZ[i]:=random(48);
werte:=",,"+IntToStr(LottoZ[i])
end;


//Sortieren
k:=0;
i:=0;
for k:=0 to 6 do
begin
for i:=0 to 6 do
begin
if Lotto[i] > Lotto[i+1]
then begin
n:=Lotto[i];
Lotto[i]:=Lotto[i+1];
Lotto[i+1]:=n;
end;
end;
end;
for i:=0 to 6 do
Tab1.cells[i,0]:=inttostr(Lotto[i]);
end;

end.

Dieser Beitrag wurde von tavoc bearbeitet: 22. Mai 2006 - 14:10

[Kenny]

LottoZ[i]:=random(48); müsste doch LottoZ[i]:=random(48)+1; heissen oder? ist schon länger her, dass ich das in der schule hatte...

[skelle]

theoretisch haste recht aber ich hab ja n Extra Array mit den Zahlen und wenn ne null generiert wird is es halt LottoZ[0] was der 1 entspricht

[Rika]

1. while..then ?
2. "for k:=0 to 6 do begin \ for i:=0 to 6 do begin \ if Lotto[i] > Lotto[i+1] then begin" führt natürlich zu einem Zugriff auf Lotto[7]!
3. "end." ?