求助。关于编程问题

douzeyang

编写一个程序。用以寻求边长为整数且面积为整数的三角形。
# U, m6 W* N6 T! g- {! I我的思路是先让边长都等于n，然后再逐次减一，看是否构成三角形，若才、构成三角形再判断是否面积为整数。下边是我的程序。
0 E" ^7 S' e+ w3 H# D9 E/ e
f[n_] := For[i = 1, i ≤ n, i++,
            For[j = 1, j ≤ n, j++,
            For[k =  1, k ≤ n, k++,
0 M& |$ m1 c" E6 E( P3 e$ |+ Q            If[i + j > k && i - j < k,
            For[z = 1, z < 2, z++,
            If[Mod[Sqrt[(i + j + k)/2*((i + j + k)/2 - i)*((i + j + k)/2 - j)*((i + j + k)/2 - k)], 1] == 0, Print[i     , j     , k     ]]]]]]]
可是运行出来是不对的。求大侠帮忙看看程序哪里有问题。拜谢。要是我的程序完全不对。麻烦大侠给一个正确的。

mathcd

这里使Mathematica 版吧

yellowaug

C语言的？？？？？

mathcd

程序：

1. f[x_, y_] := Module[7 Z! j8 H' B7 [% l! G/ S
   
2.    {tmp, s, p, i, lst, S},. h5 Y' k$ B' ]* z8 i
   
3.    tmp = (#1 + #2 + #3)/2 &;
   $ M# B  q+ j! U& L
4.    lst = {};
   8 n) f\" @9 t9 o# R
5.    For[i = 1, i <= y, i++,6 |# _# x+ ~# f! B: J
   
6.     p = RandomInteger[x, 3];
   4 V) d+ U/ q0 O- M) N# I
7.     s = tmp @@ p;6 ]3 c+ D) i\" M, v* p\" _
   
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;\" I0 @\" f: y2 t9 q  _4 c
   
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,
   ! B6 R; w& u7 _: c) x8 j+ e% {9 Q
10.      AppendTo[lst, {p, S}]];) ^4 J. l5 o$ Y9 \/ w
    
11.     ];) Z1 v& P) w! K( z% o9 A
    
12.    lst. b/ E! C6 @- G
    
13.    ];

复制代码

- X/ f9 \  g1 p5 m( `7 K# u' D
) e# k. Q  K5 u! J8 p1 o说明：
程序f[x,y]采用随机算法。
第一个参数x：边长取值范围
第二个参数y：循环次数

, x2 e7 a% j" ^, w1 g0 g例子：
4 x$ ]7 v' r& ?
5 ]; U7 H7 x' ^6 a. D0 R

1. f[100, 10000] // MatrixForm

复制代码

. A4 _2 ?6 z8 o7 V0 Z结果：

wert

强人，佩服死了。呵呵，不错啊

myqlzx

我要把这个帖子一直往上顶，往上顶！

chxq666

哦～～

sjs914915

试试运气啦~~~~~~~~~~~

流氓兔

哦～～

futures

我要把这个帖子一直往上顶，往上顶！