塑料彩带怎样折蝴蝶结:求助:是关于PASCAL的 两个1,两个2,两个3...

来源:百度文库 编辑:中科新闻网 时间:2024/05/08 04:20:59
两个1,两个2,两个3,这6个数可组成6位数312132。这个数有如下特点:两个1之间隔一位,两个2之间隔两位,两个3之间隔3位。231213也是一个符合条件的6位数。用数字1、2、3、4、5、6、7、8各两个,可以组成类似的16位数,请找出10个这样的16位数
谢谢!!

那我就告诉你一种笨办法吧,用所有
一下是Pascal伪代码,如果有问题,可以加我Q:251733401
Var a:array[1..16]of integer;
i,j:integer;
Begin
For a[1]:=1 to 8
For a[2]:=1 to 8
For a[3]:=1 to 8
For a[4]:=1 to 8
For a[5]:=1 to 8
For a[6]:=1 to 8
For a[7]:=1 to 8
——
For a[16]:=1 to 8
Begin
If (a[1]=3) and (a[4]<>3) then break;
If (a[1]=2) and (a[3]<>2) then break;
类似把所有不满足条件的列出来,如果都满足条件,最后输出这个数