Integer in Boolean

[ginni]

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]