Programm Böse Sechs

[Coolend]

Ok danke aber er soll das ja nicht 100 mal machen sonder solange bis eine 6 gewürfelt wird dann ist ende.

[LTE5]

Zitat:

Ok danke aber er soll das ja nicht 100 mal machen sonder solange bis eine 6 gewürfelt wird dann ist ende.

Dann musst du das auch genau so hinschreiben. Da steht aber von 1 bis 100 aktuell.

Ist das vorgefertigter Code vom Lehrer?

[Coolend]

Ne ist mein erstes Programm was ich schreiben soll. Habe nur die Info bekommen:
Würfeln von 1-6, wenn eine 6 gewürfelt wurde ist es vorbei und man hat verloren.
Man kann die Punkte nach jedem Wurf entweder speichern oder weiter würfeln.
Habe aber allerdings keine ahnung was genau da der richtige Befehl ist.

z.B Würfelt 3
würfeln Ja oder Nein?
wenn ja dann alte Würfelanzahl(3) + neue zahl
wenn nein dann speichern (3)
Wenn 6 dann Verloren und ende.
Und bis maximal 100 punkte

[LTE5]

Geh deinen Code mal Wort für Wort durch und beantworte mir dann folgende Frage:

was passiert, nachdem einmal gewürfelt wurde exakt?

[Coolend]

Genau das ist mein Problem ich habe keine ahnung was jetzt kommt.
Habe jetzt die while-schleife ausprobiert.

Delphi-Quellcode:

while (wurf<>6) do
wurf:=random(6)+1;
begin
  spielstand:=spielstand+wurf
end;
writeln(spielstand);
readln();
end.

aber da kommt auch nichts richtiges zustande.
Ist die while schleife denn richtig oder die for-schleife ?

[LTE5]

Das zweite sieht schon besser aus, ist aber trotzdem falsch.
Lies mal Wort für Wort durch was dein Programm macht und stell das dann dem gegenüber was es machen soll.

Hat euch eurer Lehrer keine Grundlagen beigebracht?

[Coolend]

Delphi-Quellcode:

while (wurf<>6) do
      begin
        wurf:=random(6)+1;
        Writeln('Dein Wurf war: ',wurf);
        spielstand:=spielstand+wurf;
        writeln('Dein aktueller Spielstand lautet: ',spielstand,', Weitermachen? "J" oder "N"');
        readln(e);
        if e=N then
        writeln('Dein aktueller Punktestand lautet: ',spielstand);
        if wurf=6 then
        spielstand:=0;
        writeln('Du hast verloren dein Spielstand lautet: ',spielstand);
      end;
readln();
end.

Folgendes Problem:
Er erkennt das mit dem "J" und "N" nicht.
Wie geht das richtig?
Und wenn der Wurf 6 ist soll das spiel aufhören und nicht noch weiter addieren.