Hilfe beim Erstellen eines Würfelprogramms

[Popov]

Zuerst der Punkt: if ergebnis=6 then exit; Eine For Schleife verlässt man mit Break. Das macht in deinem Fall zwar nichts aus, aber wenn später noch etwas nach der Schleife kommt, funktioniert der Code nicht.

An für sich funktioniert der Code, aber so wie ich dich verstanden habe willst du nicht die Würfe anzeigen, sondern nur die Anzahl der Würfe bis 6.

Im Grunde mußt du nur an diesem Punkt einen Block einfügen, statt Exit aufzurufen:

if ergebnis=6 then exit Hier ein Beispiel:

Delphi-Quellcode:

const
  AnzahlVersuche = 20;
var
  i: Integer;
  Wurf: Byte;
begin
  //ListBox2.Items.Clear;

  Randomize;
  for i := 1 to AnzahlVersuche do
  begin
    Wurf := Random(6) + 1;
    //ListBox2.Items.Add('Versuch ' + IntToStr(i) + ' Zahl ' + IntToStr(Wurf));
    if Wurf = 6 then
    begin
      ListBox1.Items.Add('Anzahl der Versuche: ' + IntToStr(i));
      Break;
    end;
  end;

  if Wurf <> 6 then
    ListBox1.Items.Add('Trotz ' + IntToStr(AnzahlVersuche) + ' Versuche, keine 6');
end;

[dillipp]

Hast recht, mit break anweisungen usw kenn ich mich nich so gut aus, ich lerns halt noch. Den Teil mit der Anzahl hatte iwie überlesen.
Aber so wie du es geschrieben hast, sollte es funktioniern und viiiel schöner aussehen^^

dillipp

[shmia]

@dillipp und Popov: Ihr beide macht gerade fremde Hausaufgaben.
Hilfe geben ist OK aber der Fragende soll auch seine eigenen Gehirnzellen benützen.

[Popov]

@shmia

Jajn, denn...

1.) wenn er Programmieren als Kurs belegt hat und sich seine Hausaufgaben von jemandem anders erledigen läßt, so
1.1) sein Problem und seine Entscheidung ob er etwas lernen will oder nicht, denn
1.2) wer bin ich, dass ich das verurteile

2.) for allem als Anfänger hat hat man es schwer bis man so viel an Grundwissen sich aneignet, dass man in der Lage ist auch selbst zu lernen, denn bevor einer das Addieren lernen kann, muß er die Zahlen kennen. Natürlich kann man in der Schule 1 Jahr lang Konsolenanwendungen programmieren, bis Pascal sitzt, so dass man mit OOP anfangen kann, oder man hilft den Leuten über die ersten Hürden, so dass sie beides parallel lernen.

[lali]

So, habs jetzt einigermaße hingekriegt, allerdings kriege ich bei "for i:=1 to 20 do" die fehlermeldung "missing operator or semicolon" und bei "listbox1.items.add" ebenfalls.
Was ist daran problematisch?

[Popov]

Ich würde sagen da fehlt ein Operator oder Semikolon

[lali]

Schon klar.^^
Ich habs jetzt aber doch hingekriegt.
Vielen Dank!