Question

数字游戏 pascal编程题

【问题描述】
　　填数字方格的游戏有很多种变化，如下图所示的 4×4 方格中，我们要选择从数字 1 到 16 来填满这十六个格子(Aij,其中 i = 1..4,j = 1..4)。为了让游戏更有挑战性，我们要求下列六项中的每一项所指定的四个格子，其数字累加的和必须为 34︰
四个角落上的数字，即 A11 + A14 + A41 + A44 = 34。
每个角落上的 2×2 方格中的数字﹐例如左上角︰ A11 + A12 + A21 + A22 = 34。
最中间的 2×2 方格中的数字，即 A22 + A23 + A32 + A33 = 34。
每条水平线上四个格子中的数字，即 Ai1 + Ai2 + Ai3 + Ai4 = 34，其中 i = 1..4。
每条垂直线上四个格子中的数字，即 A1j + A2j + A3j + A4j = 34，其中 j = 1..4。
两条对角线上四个格子中的数字，例如左上角到右下角︰ A11 + A22 + A33 + A44 = 34。右上角到左下角︰A14 + A23 + A32 + A41 = 34

　A11 　A12 　A13 　A14
　 　 　
　 　 　 　
　 　 　 　

【输入文件】输入文件MAGIC.in，会指定把数字 1 先固定在某一格内。输入的文件只有一行包含两个正数据 I和J， 表示第 I行和第J列的格子放数字 1。剩下的十五个格子，请按照前述六项条件用数字 2 到 16 来填满。
【输出文件】输出文件MAGIC.out，把全部的正确解答用每4行一组写到输出文件，每行四个数，相邻两数之间用一个空格隔开。两组答案之间，要以一个空白行相间，并且依序排好。排序的方式，是先从第一行的数字开始比较，每一行数字，由最左边的数字开始比，数字较小的解答必须先输出到文件中。
【输入样例】
1 1
【输出样例】
1 4 13 16
14 15 2 3
8 5 12 9
11 10 7 6

1 4 13 16
14 15 2 3
12 9 8 5
7 6 11 10
……
……
……

Answer 1

我记得我是用枚举的……

用7个for循环

详情见图

数字表示枚举或者能求出的顺序

黑色枚举 黄色可以求出来

还要判断该数字有没有出现

程序就不给了 留给LZ去完成

望采纳

Answer 2

暴力穷举啊
开两维数组，清为0，把1放入，就开始穷举