设 D 为5行5列的方阵, 其元素表示为D(I,J), 每个D(I,J)皆是0--9中的
某个数字,D(1,1)=r为已知. 试求满足以下条件的全部方阵 D:
(1) D 的每行,每列,每条对角线均为一个五位素数.
(2) 由键盘输入S, 上述各素数的各位数字之和均等于S.
program lxw005; {素数矩阵}
const s:array [1..4] of integer= (1,3,7,9);
type arr2=array [0..50000] of boolean;
e5=array [1..5] of shortint;
var x: array [1..2] of ^arr2;
limit,k,k1,t,ss,tt,r,sum1:longint;
a1:array[1..1000] of e5;
d1:array[1..5] of e5;
g1,temp:e5;
procedure p2;forward;
procedure p3;forward;
procedure p4;forward;
procedure p5;forward;
procedure p6;forward;
procedure look(p, w:integer;st:e5;var tr:boolean);
{p=1:处理行,w:行号. p=2:处理列w:列号. 不处理对角线 }
label 10;
var i:integer;
j,k:shortint;
begin
tr:=false;
for i:=1 to tt do
begin
for j:=1 to 5 do if a1[i,j]<>st[j] then goto 10;
case p of
1: for k:=1 to 5 do d1[w,k]:=st[k];
2:此文共有9页 上一页 1 2 3 4 5 6 7 8 9 下一页 |
