请教！ — 编程爱好者社区

主题：请教！

zhouzhj5158 [专家分：0] 发布于 2005-04-05 23:02:00

请大家帮个忙：
    把自然数1~6分别填入图中的每个圆圈中，使这个三角形每边上的三个数之和都相等，请打印出所以的填法。
        A
    B        F
C        D       E

谢谢各位！1

本帖地址： http://bbs.pfan.cn/post/69326.html

回复列表（共6个回复）

沙发

xuzhenyi [专家分：850] 发布于 2005-04-06 20:48:00

var
i,k,j,h,g,f:integer;
begin
for i:=1 to 6 do
for k:=1 to 6 do
for j:=1 to 6 do
for h:=1 to 6 do
for g:=1 to 6 do
for f:=1 to 6 do
begin
if (i+k+j=j+h+g) and (j+h+g=g+f+i) then
write(i,' ',k,' ',j,' ',h,' ',g,' ',f);
end;
end.

板凳

huyichen [专家分：80] 发布于 2005-04-06 20:53:00

程序有问题！！

3 楼

zhouzhj5158 [专家分：0] 发布于 2005-04-06 22:05:00

注意：把自然数1~6分别填入图中的每个圆圈中，是分别填入啊！！

4 楼

faintzw [专家分：2660] 发布于 2005-04-06 22:31:00

数学＋枚举
或者直接DFS

5 楼

yuxiaonsu [专家分：90] 发布于 2005-04-07 18:20:00

再判断一下是否6个数中有一样的不就行了？

6 楼

zhouzhj5158 [专家分：0] 发布于 2005-04-12 20:04:00

能不能整个程序拿出来看一下啊，谢谢！

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：请教！

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请教！

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）