Zufällige Zahl in Konsole

[schmitty89]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var 
  s : Integer;
  x : Integer;

   begin
     randomize;
     x := Random(100) + 1;
     readln(s); // Lesen von Standardinput
     if s=x then write('Richtig es ist:');
     if s<x then write('Falsch es war zu klein');
     if s>x then write('Falsch es war zu gross');
     writeln(s); // Schreiben nach Standardoutput
    writeln(x);
    readln;
end.

jetzt soll man nur noch weitere versuche haben, bis man es richtig hat...irgendeine hübsche schleife?!

[Klaus01]

.. bist schon auf dem richtigen Weg.
Versuche es mal.

Ausstieg aus der Schleife wenn richtig geraten wurde oder
wenn die Anzahl der Versuche ein Limit überschritten haben.

Grüße
Klaus

[s.h.a.r.k]

Repeat-Until?!

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s : Integer;
  x : Integer;

   begin
     randomize;

     x := Random(100) + 1;
     repeat
       readln(s); // Lesen von Standardinput
       if s<x then write('Falsch es war zu klein');
       if s>x then write('Falsch es war zu gross');
       writeln(s); // Schreiben nach Standardoutput
    until (s = x);
    writeln('Korrekte Lösung ist: ', x);
    readln;
end.

[schmitty89]

Hatte es auch grade so, vielen Dank!

Läuftdoch so langsam

[s.h.a.r.k]

Würde die aber zu etwas mehr "Struktur und Form" raten, dann wirds etwas übersichtlicher und besser (für andere) lesbar

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  RandomValue : Integer;
  Input : Integer;
begin
  Randomize();

  RandomValue := Random(100) + 1;
  Input := -1;
  while (RandomValue <> Input) do
    // Lesen von Standardinput
    Readln(Input);

    // Wert prüfen und Schreiben nach Standardoutput
    if (Input < RandomValue) then
      Write('Falsch es war zu klein');
    if (Input > RandomValue) then
      Write('Falsch es war zu gross');
  end;
  Writeln('Korrekte Lösung ist: ', x);

  Readln;
end.

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