Zufällige Zahl in Konsole

[DeddyH]

War Input unter Standard-Pascal nicht früher mal ein reserviertes Wort (lang, lang ist' s her)? Evtl. könnte man die Variable auch InputValue nennen, das sähe IMO noch besser aus.

[s.h.a.r.k]

Zitat:

Zitat von DeddyH (Beitrag 1152354)

War Input unter Standard-Pascal nicht früher mal ein reserviertes Wort (lang, lang ist' s her)? Evtl. könnte man die Variable auch InputValue nennen, das sähe IMO noch besser aus.

Öh, keine Ahnung mehr :mrgreen: Aber Asche auf mein Haupt, könnte man wahrlich. Wäre jedenfalls konsequenter. Aber die Idee sollte insgesamt klar werden. Mehr wollte ich nicht verdeutlichen :stupid:

[schmitty89]

Delphi-Quellcode:

program Ratespiel;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s : Integer;
  x : Integer;
  y : Integer;
  n : Integer;

   begin
     write('Bitte geben sie eine beliebige Zahl ein:');
     randomize; // initialisiert den integrierten Zufallszahlengenerator mit einem zufälligen Wert
     x := Random(100) + 1; //
     repeat
     readln(s); // Lesen von Standardinput
     if s=x then write('Richtig, es ist:',x);
     if s<x then write('Falsch es war zu klein');
     if s>x then write('Falsch es war zu gross');
    until (s=x);
    write('Moechten Sie erneut spielen? (Y/N)');
    read;
    if y then write('Ok, geben Sie erneut eine Zahl ein');
    if n then write('schade!');
    readln;readln;

end.

wie man am Ende sieht würde ich gern fragen ob derjenige erneut spielen möchte und wenn y (ja) dann soll er das erstmal schreiben und dann das ganze wiederholen.
Hmm nur zeigt er es mir noch nicht korrekt an...

[DeddyH]

Da wirst Du wohl noch ein 2. Schleifchen brauchen ;)