pascal 6个圆圈构成三角形,每条边上三个圈,将自然数1-6 不重复地填圈位置上,使每条边之和相等.
来源:学生作业帮 编辑:大师作文网作业帮 分类:英语作业 时间:2024/09/20 10:49:22
pascal 6个圆圈构成三角形,每条边上三个圈,将自然数1-6 不重复地填圈位置上,使每条边之和相等.
请快些.有奖!请用while语句实现.
请快些.有奖!请用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了.
再问: 请将a[1],a[2],a[3],a[4],a[5],a[6]分别在哪个位置上写出来好么 谢谢
再答: 就是对应123456那6个位置,一个三角形,顺着来一圈,不能理解吗? 例如: 1 2 6 3 4 5
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了.
再问: 请将a[1],a[2],a[3],a[4],a[5],a[6]分别在哪个位置上写出来好么 谢谢
再答: 就是对应123456那6个位置,一个三角形,顺着来一圈,不能理解吗? 例如: 1 2 6 3 4 5
pascal 6个圆圈构成三角形,每条边上三个圈,将自然数1-6 不重复地填圈位置上,使每条边之和相等.
图中由6个圆圈构成三角形,每条边上有三个圈,将自然数1--6 不重复地填圈位置上,使每条边之和相等
将1-6这六个自然数分别填在圆圈内,使三角形每条边上的三个数之和为11
一个由9个圆圈组装的三角形,分别在每个圈内填上1到9的数字,数字不能重复,三角形的每条边上的四个圈里的数字相加都等于15
将1-9填入圈中,使三个三角形顶点之和相等,通过四个圈的每条直线的四个数的和也相等.
将1-6这6个数字填在圆圈里,使每条线上的三个数之和相等,共有( )种不同的填法.
将1~10这10个自然数分别填入下图中的10个圆圈内,使五边形每条边上的三数之和都相等.
将1—10这十个自然数填入图中的○内,使五边形每条边上的三个数之和相等,并使和尽可能地小.
将1到8这些数字分别填入八个圈中,每条边上的三个数字都相等 .
将1-12这十二个数分别填入图中的十二个小圆圈里,使每条直线上的四个小圆圈中的数字之和相等.
一个三角形,每条边上有4个圈,请在每个圈里填上1-9各数,使每条边上的和等于19.数不能重复!急
将数字2,3,4,6,8,12填成三角形每条边上三个数的积都相等