Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Programm Böse Sechs

   
    by Coolend, 17. Dez 2017
  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
• Forum: Programmieren allgemein

  AW: Programm Böse Sechs

   
    by Coolend, 17. Dez 2017
  Genau das ist mein Problem ich habe keine ahnung was jetzt kommt.
  Habe jetzt die while-schleife ausprobiert.
  
  while (wurf<>6) do
  wurf:=random(6)+1;
  begin
  spielstand:=spielstand+wurf
  end;
  writeln(spielstand);
  readln();
• Forum: Programmieren allgemein

  AW: Programm Böse Sechs

   
    by Coolend, 17. Dez 2017
  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...
• Forum: Programmieren allgemein

  AW: Programm Böse Sechs

   
    by Coolend, 17. Dez 2017
  Ok danke aber er soll das ja nicht 100 mal machen sonder solange bis eine 6 gewürfelt wird dann ist ende.
• Forum: Programmieren allgemein

  Programm Böse Sechs

   
    by Coolend, 17. Dez 2017
  Hey Leute
  ich bin neu hier und habe ne frage zu einem Programm.
  Bin ein kompletter Anfänger in Lazarus und muss folgendes Programm schreiben.
  Eine Konsolen Anwendung reicht ich brauche keine GUI.
  
  Würfeln und die Augenzahl wird addiert.
  Sobald man eine 6 würfelt werden die Punkte zurückgesetzt.
  Man soll auch selber entscheiden können wann man die Punkte Sichern will, also mit einer Fragen....