home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 07 / awari / awari.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-06-10  |  2.0 KB  |  46 lines
  1. (***************************************************************************)
  2. (*                          AWARI.PAS                                      *)
  3. (*   DIESE DATEI ENTHAELT DEN VEREINBARUNGSTEIL UND DAS HAUPTPROGRAMM      *)
  4. (***************************************************************************)
  5.  
  6. PROGRAM awari (Input, Output);
  7.  
  8. CONST max    = 3;  (* Anzahl der Steine pro Feld zum Zeitpunkt Spielbeginn *)
  9.  
  10. TYPE  feld   = ARRAY [0 .. 13] OF INTEGER; (* Spielfeld-Definition         *)
  11.  
  12. VAR  stapel : ARRAY [1 .. 14] OF feld;    (* Stellungsspeicher f. Analyse  *)
  13.      wert   : ARRAY [1 .. 14] OF INTEGER; (* Bewertungsspeicher f. Analyse *)
  14.      spiel  : feld;                       (* Spielfeld                     *)
  15.      stief  : INTEGER;                    (* Suchtiefe in Halbzuegen       *)
  16.      tiefe  : INTEGER;                    (* Objektive Analysetiefe        *)
  17.      stark  : INTEGER;                    (* Spielstaerke in Halbz.        *)
  18.      anfang : CHAR;                       (* Spiel-Beginner                *)
  19.      weiter : BOOLEAN;                    (* Speicher fuer Partieende      *)
  20.      fertig : BOOLEAN;                    (* Speicher fuer Programmende    *)
  21.      best_1 : INTEGER;                    (* Bester berechn. erster Zug    *)
  22.      best_2 : INTEGER;                    (* Bester berechn. zweiter Zug   *)
  23.      try_1  : INTEGER;                    (* Potentieller bester 1. Zug    *)
  24.      try_2  : INTEGER;                    (* Potentieller bester 2. Zug    *)
  25.      nummer : INTEGER;                    (* Zugzaehler f. Endspielerkenn. *)
  26.      zahl   : INTEGER;                    (* Anzahl der Steine im Spiel    *)
  27.  
  28. (*$I AWARINTR.INC *)
  29. {$I AWARINIT.INC }
  30. {$I AWARCOMP.INC }
  31. {$I AWARMANG.INC }
  32.  
  33. BEGIN
  34.   introduction;
  35.   REPEAT
  36.     initialisieren;
  37.     IF  anfang = 'M'  THEN  m_zug;
  38.     REPEAT
  39.       c_zug;
  40.       IF  weiter  THEN  m_zug
  41.     UNTIL  NOT weiter;
  42.     spielende
  43.   UNTIL  fertig;
  44.   ClrScr
  45. END.
  46.