Pascal programming-Array 唔識做..

2010-10-08 6:01 am

9x9 Magic Square:

1 6 8 ? ? ? ? ? ?
9 2 4 ? 7 ? ? 6 ?
5 7 3 ? ? ? ? ? ?

? ? ? 4 9 2 ? ? ?
? 9 ? 3 5 7 ? 1 ?
? ? ? 8 1 6 ? ? ?

? ? ? ? ? ? 7 3 5
? 4 ? ? 3 ? 6 8 1
? ? ? ? ? ? 2 4 9

1.Complete the Sudoku .

2.Write a Pascal programming to verifty any 9x9 Sudoku is a magic square in which each row, column and diagonal has 9 different numbers and each 3x3 style box has 9 different numbers.

更新1:

我都係唔係好明... 可唔以打個complete program 比我睇

回答 (1)

Lee

2010-10-08 11:49 pm

✔ 最佳答案

1）我諗你叫你人手做。因為用PROGRAM去解以程度看冇可能完成。
2）Pascal 的array 定義為 array [1..n] of something.
以你的例子係以9x9 方格去存放一個sudoku的數字，即係

Type
MySudoku : array [1..9,1..9] of integer;

咁做法係首先要用家輸入，以 for i:=1 to 9 do for j:= 1 to 9 do readln() 就得，或者直接用 const定義入去

跟住要VERIFY每行每列都係獨立9個數字。即係要For ROW:= 1 to 9 個一次抽9個字，（可以用另一個ARRAY），做一次SORTING，然後比較數字係1至9。
再做一次for COLOUMN:=1 to 9,再做一次3x3抽9個數字（呢個可能你要諗諗）。
不過我想講，DIAGONAL未必係9個數字齊，因為SUDOKU冇呢個要求。

👍 0 👎 0