作业帮pascal 6个圆圈构成三角形,每条边上三个圈,将自然数1-6 不重复地填圈位置上,使每条边之和相等.请快些.有奖!请用while语句实现.
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/02 11:00:22
pascal 6个圆圈构成三角形,每条边上三个圈,将自然数1-6 不重复地填圈位置上,使每条边之和相等.请快些.有奖!请用while语句实现.
pascal 6个圆圈构成三角形,每条边上三个圈,将自然数1-6 不重复地填圈位置上,使每条边之和相等.
请快些.有奖!请用while语句实现.
pascal 6个圆圈构成三角形,每条边上三个圈,将自然数1-6 不重复地填圈位置上,使每条边之和相等.请快些.有奖!请用while语句实现.
我按你的意思,只用while语句实现的,写法甚搞笑,完全随机..
var a:array[1..6]of integer;
t,i1,i2:integer;
begin
randomize;
a[1]:=1;
a[2]:=2;
a[3]:=3;
a[4]:=4;
a[5]:=5;
a[6]:=6;
while not((a[1]+a[2]+a[3]=a[3]+a[4]+a[5])and(a[1]+a[2]+a[3]=a[5]+a[6]+a[1])) do begin
i1:=random(6)+1;
i2:=random(6)+1;
t:=a[i1];
a[i1]:=a[i2];
a[i2]:=t;
end;
write(a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5],' ',a[6]);
end.
除了while语句没有使用任何其他的流程控制语句.完全符合你的要求...不过运行时间就看RP了.
图有没有的啊
呵呵，抱歉，我只知道答案。无法用WHILE句式实现，答案是：
2
4 3
5 1 6
pascal 6个圆圈构成三角形,每条边上三个圈,将自然数1-6 不重复地填圈位置上,使每条边之和相等.请快些.有奖!请用while语句实现.
图中由6个圆圈构成三角形,每条边上有三个圈,将自然数1--6 不重复地填圈位置上,使每条边之和相等** * * * * 不重复要全用pascal编程对不起我忘说了
将5 6 10 12 20 24填入三角形中使三角形每条边的3个数的积相等 （6个圆圈的三角形）
求三角形个数 pascal平面上有三条平行边,每条边上分别有7.5.6个点.且不在同一条直线上.用这些点做顶点,问有多少个三角形?
把六个圆圈排成如图把6个圆圈排成如图所示的三角形,每边三个圆圈,把数字-7,-3,1,5把6个圆圈排成如图所示的三角形,每边三个圆圈,把数字-7,-3,1,5,9,13分别填在这六个圆圈中,使个边上数字之和
0.01至0.09这九个数填到9个圆圈内使每条边上的4个圆圈内的数字和相同三角形每边四个
0.01至0.09这九个数填到9个圆圈内使每条边上的4个圆圈内的数字和相同三角形每边四个
,五分钟好追加20!把6个圆圈排成如图所示的三角形,每边三个圆圈,把数字-7,-3,1,5,9,13把6个圆圈排成如图所示的三角形,每边三个圆圈,把数字-7,-3,1,5,9,13分别填在这六个圆圈中,使个边上数字之和
把4,5,6,7,8,9这六个数分别填在6个圆圈里,使三角形每条边上的和是21.
1 2 3 4 5 6 7 使每条线上三个数的和相等添到七个圆圈里上面3个圆圈,中间一个圆圈,下面3个圆圈.
将123456六个数填入圆圈内,使三角形每条边的和相等,并且最大
将1~9这9个数不重复填入三角形圆圈中,使每条边和都是17
在圆圈内填上1-9,使每条线上数字和相等 是在三角形的三条边上,每边四个
将1~9这九个数字填入组成三角形的数个圆圈中使每条边上四个数字的和都等使每条边加在一起都等于20三角形图 每边四个空 中间无孔 共9个空
将10,15,20,30,40,60填入图内圆圈,使三角形每条边上3个数的积都相等.图就是个三角形,每条边上有三个圈.
把8、12、16、24、32、48这6个数分别填入一个三角形的6个圆圈中,使每条边上三个数的乘积都相等.
将1~9这九个数字填入组成三角形的数个圆圈中,使每条边上四个数字的和都等于17
将1~9这九个数字填入组成三角形的数个圆圈中,使每条边上四个数字的和都等于18