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.