Beispiel: Hilo-Spiel

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

Hilo.om
MODULE Hilo;

   IMPORT RandomGenerators, Read, Write;

   VAR
      secretNumber: LONGINT;
         (* secret number out of [1..1024] *)
      guess: LONGINT; (* last guess *)

BEGIN
   secretNumber := RandomGenerators.Val(1, 1024);
   Write.Line("Welcome to the Hilo game!");
   Write.String("Please guess the secret number ");
   Write.Line("out of [1..1024]");

   Write.String("Your guess: "); Read.LongInt(guess);
   WHILE guess # secretNumber DO
      IF guess < secretNumber THEN
         Write.Line("Too small!");
      ELSE
         Write.Line("Too large!");
      END;
      Write.String("Your guess: "); Read.LongInt(guess);
   END;

   Write.String("Congratulations, ");
   Write.Line("you found the secret number!");
END Hilo.

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 2004, 2005 Andreas Borchert, in HTML konvertiert am 18.02.2005