Invalid floating Point operation

[Matz4000]

Hey Leute..
Kleines Problem:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Wuerfel,Wurfzahl,Augenzahl,W1,W2,W3,W4,W5,W6,W7,W8,i:integer;
    Warsch:real;
    Feld:array[1..48] of integer;
begin
listbox1.clear;
Wuerfel:=strtoint(edit1.text);
Wurfzahl:=strtoint(edit2.Text);

For i:=1 to 60 DO
 Feld[i]:=0;
Warsch:=0;
 Case Wuerfel OF
  1:Begin
     label1.caption:=inttostr(Wurfzahl);
     For i:= 1 to Wurfzahl Do
      Begin
        W1:=random(6)+1;
        inc(Feld[W1]);
      end;
     For i:=1 to 6 Do
      Begin
        Warsch:=Feld[i]/Wurfzahl;
        listbox1.items.add('Zahl '+inttostr(i)+' = '+floattostr(Warsch));
      end;
    End;
  2:Begin
     For i:= 1 to Wurfzahl Do
      Begin
        W1:=random(6)+1;
        W2:=random(6)+1;
        Augenzahl:=W1+W2;
        inc(Feld[Augenzahl]);
      end;
     For i:=2 to 12 Do
      Begin
        Warsch:=Feld[i]/Wurfzahl;
        listbox1.items.add('Zahl '+inttostr(i)+' = '+floattostr(Warsch));
      end;
    End;

  3:Begin
     For i:= 1 to Wurfzahl Do
      Begin
        W1:=random(6)+1;
        W2:=random(6)+1;
        W3:=random(6)+1;
        Augenzahl:=W1+W2+W3;
        inc(Feld[Augenzahl]);
      end;
     For i:=3 to 18 Do
      Begin
        Warsch:=Feld[i]/Wurfzahl;
        listbox1.items.add('Zahl '+inttostr(i)+' = '+floattostr(Warsch));
      end;
    End;
  4:Begin
     For i:= 1 to Wurfzahl Do
      Begin
        W1:=random(6)+1;
        W2:=random(6)+1;
        W3:=random(6)+1;
        W4:=random(6)+1;
        Augenzahl:=W1+W2+W3+W4;
        inc(Feld[Augenzahl]);
      end;
     For i:=4 to 24 Do
      Begin
        Warsch:=Feld[i]/Wurfzahl;
        listbox1.items.add('Zahl '+inttostr(i)+' = '+floattostr(Warsch));
      end;
    End;
  5:Begin
     For i:= 1 to Wurfzahl Do
      Begin
        W1:=random(6)+1;
        W2:=random(6)+1;
        W3:=random(6)+1;
        W4:=random(6)+1;
        W5:=random(6)+1;
        Augenzahl:=W1+W2+W3+W4+W5;
        inc(Feld[Augenzahl]);
      end;
     For i:=5 to 30 Do
      Begin
        Warsch:=Feld[i]/Wurfzahl;
        listbox1.items.add('Zahl '+inttostr(i)+' = '+floattostr(Warsch));
      end;
    End;
  6:Begin
     For i:= 1 to Wurfzahl Do
      Begin
        W1:=random(6)+1;
        W2:=random(6)+1;
        W3:=random(6)+1;
        W4:=random(6)+1;
        W5:=random(6)+1;
        W6:=random(6)+1;
        Augenzahl:=W1+W2+W3+W4+W5+W6;
        inc(Feld[Augenzahl]);
      end;
     For i:=6 to 36 Do
      Begin
        Warsch:=Feld[i]/Wurfzahl;
        listbox1.items.add('Zahl '+inttostr(i)+' = '+floattostr(Warsch));
      end;
    End;
  7:Begin
     For i:= 1 to Wurfzahl Do
      Begin
        W1:=random(6)+1;
        W2:=random(6)+1;
        W3:=random(6)+1;
        W4:=random(6)+1;
        W5:=random(6)+1;
        W6:=random(6)+1;
        W7:=random(6)+1;
        Augenzahl:=W1+W2+W3+W4+W5+W6+W7;
        inc(Feld[Augenzahl]);
      end;
     For i:=7 to 42 Do
      Begin
        Warsch:=Feld[i]/Wurfzahl;
        listbox1.items.add('Zahl '+inttostr(i)+' = '+floattostr(Warsch));
      end;
    End;
  8:Begin
     For i:= 1 to Wurfzahl Do
      Begin
        W1:=random(6)+1;
        W2:=random(6)+1;
        W3:=random(6)+1;
        W4:=random(6)+1;
        W5:=random(6)+1;
        W6:=random(6)+1;
        W7:=random(6)+1;
        W8:=random(6)+1;
        Augenzahl:=W1+W2+W3+W4+W5+W6+W7+W8;
        inc(Feld[Augenzahl]);
      end;
     For i:=8 to 48 Do
      Begin
        Warsch:=Feld[i]/Wurfzahl;
        listbox1.items.add('Zahl '+inttostr(i)+' = '+floattostr(Warsch));
      end;
    End;

 end;




end;
end.

Das soll son Prog. sein, das die Warscheinlichkeit der gewürfelten Zahlen bei 1-8 Würfeln und x Würfen ausgibt.
Als Fehlermeldung kommt allerdings immer "Invalid floating Point operation"
Hab mich mal informiert, aber die Gründe die ich gelesen haben treffen hier nicht zu. (z.B. durch 0 teilen oder so)...

Help!

Gruß
Michael

[DeddyH]

Und wo kommt die Meldung (Zeile)? Du solltest aber unabhängig davon dringendst einmal Deinen Code aufräumen (DRY) und die Bereichsprüfung einschalten.

[shmia]

Ein kleiner Tipp zu folgendem Code:

Delphi-Quellcode:

W1:=random(6)+1;
W2:=random(6)+1;
W3:=random(6)+1;
W4:=random(6)+1;
W5:=random(6)+1;
W6:=random(6)+1;
W7:=random(6)+1;
W8:=random(6)+1;
Augenzahl:=W1+W2+W3+W4+W5+W6+W7+W8;

Die augenzahl lässt sich viel besser mit einer Funktion ausrechnen:

Delphi-Quellcode:

function BerechneSummeAugenzahl(AnzahlWuerfel:integer):integer;
begin
  result := 0;
  for i := 1 to AnzahlWuerfel do
    Result := Result + random(6)+1;
end;

Und damit kannst du die vielen Variablen W1 bis W8 rauswerfen und schreibst z.B. nur:
Augenzahl := BerechneSummeAugenzahl(8);

[Matz4000]

Also die Fehlermeldung kommt in der Zeile "Warsch:=Feld[i]/Wurfzahl;"
d.h. in der jeweiligen case-anweisung bei der anzahl der würfel..

Danke für den Tipp
Hab halt erst seit einem halben Jahr informatik..wir haben noch keine Functions...

Gruß

[Matz4000]

Hat denn keiner ne Idee
Ich verzweifle hier gerade...

[mkinzler]

Starte es mal im Debugger, dann siehst du in welcher Zeile der Fehler auftritt.

[Hawkeye219]

Hallo,

Zitat von DeddyH:

und die Bereichsprüfung einschalten.

Wenn man den Quelltext genauer betrachtet, ist das ein guter Ratschlag!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Feld:array[1..48] of integer;
begin
  :
For i:=1 to 60 DO
 Feld[i]:=0;

Gruß Hawkeye

[DeddyH]

Eben wegen dieser Stelle habe ich ja den Vorschlag gemacht. Wer weiß, wo das noch überall so aussieht.