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 von 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.

Öh, keine Ahnung mehr 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

[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