3         假如 Game 和 GameAns 都是 9´9 的二維陣列，編寫程序段，判斷 Game 和 GameAns 的內容是一樣。如果一樣，顯示 “Same”；否則顯示 “Different”

program Sudoku01;

 

uses wincrt;

 

 

var

 

   Game, GameAns: array[1..9, 1..9] of char;

 

   (* Game 用來儲存問題  *)

 

   (* GameAns 用來儲存答案  *)

 

 

 

   change: array[1..9, 1..9] of boolean; (* 決定哪個位置可以改變 *)

 

   GameNum: integer;  (* 用來儲存數獨的題號 *)

 

   choice, level: char;

 

 

procedure GetSudoku(var GameNum: integer); forward;

 

procedure display; forward;

 

......

 

......

 

begin(* 主程序 main*)

 

   GameNum := 0;

 

   StartMenu;

 

   repeat

 

      SelectChoice(choice);

 

      case choice of

 

         '1': begin

 

                 LevelMenu(level);

 

                 if level = '1'

 

                    then GetSudoku(Gamenum)

 

                    else writeln('Sorry! There are only level 1
 Sudoku puzzles at this moment.');

 

              end;

 

         '2': Solve;

 

         '3': CheckAnswer;

 

         '4': Display;

 

      end;

 

   until (choice='0');

 

end.