home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / zahlrat.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  699 b   |  31 lines
  1.  
  2. PROGRAM Zahlenraten;
  3.  
  4. VAR Ratezahl, Zufallszahl, I : Integer;
  5.     Geraten : Boolean;
  6.  
  7. BEGIN
  8.  Writeln ('Zahlenraten zwischen 0 und 99');
  9.  Writeln;
  10.  Randomize;
  11.  Zufallszahl := Random(99);  { Zahl zwischen 0 und 99 }
  12.  Geraten := False;
  13.  I := 1;
  14.  REPEAT
  15.   Write ('Ratezahl: ');
  16.   Readln (Ratezahl);
  17.   IF Ratezahl=Zufallszahl THEN Geraten:=True
  18.   ELSE BEGIN
  19.   IF Ratezahl>Zufallszahl THEN Writeln ('zu gross')
  20.   ELSE Writeln ('zu klein')
  21.   END; { von ELSE }
  22.   I:=I+1
  23.  UNTIL Geraten OR (I>7);
  24.  IF Geraten THEN BEGIN
  25.   Writeln ('Herzlichen Glückwunsch!');
  26.   IF I<3 THEN Writeln ('Das war Spitze!')
  27.  END { von IF }
  28.  ELSE Writeln ('Die Zahl war: ',Zufallszahl:3);
  29.  Readln
  30. END.
  31.