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