Zitat von
fkerber:
Hi!
Und dann hat die noch jemand gesagt, dass du dir den Umweg über BoolVar sparen kannst und gleich if i>5 then schreiben kannst...
Ciao, Frederic
mmhm..jaaaaaa..aber das hat ja vorher nicht funktioniert.
...egal.
ich hab das jez eingefügt.
und es funktioniert auch...ich verstehs zwar nicht aber egal.
also ich hab hier den weiteren ablauf.
nur das problem ist..nach beendung der ersten schleife, nimmt das programm eine neue zufallszahl.aber ich muss mit der alten weiterarbeiten.
muss ich da die schleifen irgendwie verbinden oder so?!
Delphi-Quellcode:
begin
{ TODO -oUser -cConsole Main : Hier Code einfügen }
randomize;
i:=0;
zf:=random(30)+1;
repeat
i:=i+1;
write('Eingabe deiner Ratezahl rt=');
readln(rt);
writeln('Anzahl deiner Versuche='+FloatToStr(i));
if zf<rt then
begin
writeln('Die Zufallszahl ist kleiner als deine Ratezahl');
end
else
begin
writeln('Die Zufallszahl ist groesser als deine Ratezahl');
end;
until i=5;
writeln('Schon 5 Versuche?');
readln;
repeat
i:=i+1;
write('Eingabe deiner Ratezahl rt=');
readln(rt);
writeln('Anzahl deiner Versuche='+FloatToStr(i));
if zf<rt then
begin
writeln('Die Zufallszahl ist kleiner als deine Ratezahl');
end
else
begin
writeln('Die Zufallszahl ist groesser als deine Ratezahl');
end;
until i=10;
writeln('10 ist aber echt viel!');
readln;
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]