program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
name:
string;
Zahl1, Zahl2, Eingabe, Ergebnis: real;
RichtigeAntw: Integer = 0;
AnzRunden, AktuelleRunde, op: Integer;
begin
Randomize;
Writeln('
Bitte geben sie ihren Namen ein');
Readln(
Name);
Writeln('
Hallo ' +
Name + '
wie viele Runden willst du spielen?');
Readln(AnzRunden);
Writeln('
Also spielen wir ' + IntToStr(AnzRunden) + '
Runden zusammen');
// Readln;
AktuelleRunde := 0;
repeat // wiederhole solange.....
Inc(AktuelleRunde);
Zahl1 := Random(20) + 1;
Zahl2 := Random(10) + 1;
op := Random(3);
case op
of
0:
begin;
Ergebnis := Zahl1 + Zahl2;
Writeln(FloatToStr(Zahl1), '
+', FloatToStr(Zahl2));
end;
1:
begin;
Ergebnis := Zahl1 - Zahl2;
Writeln(FloatToStr(Zahl1), '
-', FloatToStr(Zahl2));
end;
else begin;
Ergebnis := Zahl1 * Zahl2;
Writeln(FloatToStr(Zahl1), '
*', FloatToStr(Zahl2));
end;
end;
Readln(Eingabe);
if Eingabe = Ergebnis
then begin;
Writeln('
Das ist richtig');
inc(RichtigeAntw);
end else begin;
Writeln('
Das war falsch');
end;
// Readln;
until AnzRunden = AktuelleRunde;
// ...bis Aktuellle Runde=Anzahl Runde
Writeln('
Du hast ' + IntToStr(RichtigeAntw) + '
Aufgaben von ' + IntToStr
(AnzRunden) + '
richtig gelöst');
Readln;
try
{ TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
except
on E:
Exception do
Writeln(E.ClassName, '
: ', E.
Message);
end;
end.