pascal将1-15个自然数不重复的填入如下给出的15个圈中,使除最上面一层外pascal问题：将1-15个自然数不重复的填入如下给出的15个圈中,使除最上面一层外,每个圈中数等于上面两个圈中数的差,试

Question

pascal将1-15个自然数不重复的填入如下给出的15个圈中,使除最上面一层外
pascal问题：将1-15个自然数不重复的填入如下给出的15个圈中,使除最上面一层外,每个圈中数等于上面两个圈中数的差,试找出所有的填数方案.
○ ○ ○ ○ ○
○ ○ ○ ○
○ ○ ○
○ ○
○

Answer 1

var
a1,a2,a3,a4,a5:integer;
a:array[1..15]of integer;
procedure w;
var
i:integer;
begin
for i:=1 to 15 do
write(a[i],' ');
writeln;
end;
function t:boolean;
var
s:set of 1..15;
i:integer;
begin
s:=[];
t:=false; a[1]:=a1;a[2]:=a2;a[3]:=a3;a[4]:=a4;a[5]:=a5;
a[6]:=abs(a[1]-a[2]);
a[7]:=abs(a[3]-a[2]);
a[8]:=abs(a[3]-a[4]);
a[9]:=abs(a[4]-a[5]);
a[10]:=abs(a[6]-a[7]);
a[11]:=abs(a[7]-a[8]);
a[12]:=abs(a[8]-a[9]);
a[13]:=abs(a[10]-a[11]);
a[14]:=abs(a[11]-a[12]);
a[15]:=abs(a[13]-a[14]);
for i:=1 to 15 do
if a[i] in s then exit
else s:=s+[a[i]];
t:=true;
end;
begin
for a1:=1 to 15 do
for a2:=1 to 15 do
for a3:=1 to 15 do
for a4:=1 to 15 do
for a5:=1 to 15 do
if t then w;
end.
答案:
6 14 15 3 13 8 1 12 10 7 11 2 4 9 5
13 3 15 14 6 10 12 1 8 2 11 7 9 4 5