求助。关于编程问题

douzeyang

编写一个程序。用以寻求边长为整数且面积为整数的三角形。
我的思路是先让边长都等于n，然后再逐次减一，看是否构成三角形，若才、构成三角形再判断是否面积为整数。下边是我的程序。
& y. {4 U. G0 H! `5 n+ T" F
! X  O  H8 X# G3 Y9 k8 R5 @f[n_] := For[i = 1, i ≤ n, i++,
            For[j = 1, j ≤ n, j++,
            For[k =  1, k ≤ n, k++,
            If[i + j > k && i - j < k,
+ c. C0 [0 _5 {- x8 {3 j0 V6 J            For[z = 1, z < 2, z++,
. N3 U/ g- {  t" V0 z& k' |            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     ]]]]]]]
可是运行出来是不对的。求大侠帮忙看看程序哪里有问题。拜谢。要是我的程序完全不对。麻烦大侠给一个正确的。
( z' z, I% ^+ k7 A" q8 J0 |

mathcd

这里使Mathematica 版吧

yellowaug

C语言的？？？？？

mathcd

程序：
9 ?* l, H! E' p7 d5 a

1. f[x_, y_] := Module[
   \" |6 I! M* `/ M8 |# n5 h
2.    {tmp, s, p, i, lst, S},
   7 G6 ]1 ^! [/ j$ r9 d+ A
3.    tmp = (#1 + #2 + #3)/2 &;
   / }3 T! u5 T: H. f8 l) M
4.    lst = {};
   4 c4 O0 [4 R7 h. \) f
5.    For[i = 1, i <= y, i++,
   & C6 n& N8 ]: t1 d$ W
6.     p = RandomInteger[x, 3];
   ! J# l6 j( q& @; R* b( V$ b
7.     s = tmp @@ p;
   6 _* k$ ~' h. R( K, J8 {5 S7 ]1 s
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;8 F% z6 v9 k; L: y4 t& ]+ S+ T
   
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0, * W4 m  Q0 k  g8 H0 ^% H& g: b; F% }
   
10.      AppendTo[lst, {p, S}]];
    7 J3 X% u( q1 E; f
11.     ];+ E7 d% k4 T( g! m+ w1 m' C
    
12.    lst
    6 E+ T1 d. _0 N: N7 R
13.    ];

复制代码

说明：
程序f[x,y]采用随机算法。
第一个参数x：边长取值范围
: h0 R8 ]! t* g1 K4 ^第二个参数y：循环次数

: T# k7 s$ `2 O8 b7 i+ ]例子：
/ c& u: @3 e, M, H3 q% s

1. f[100, 10000] // MatrixForm

复制代码

结果：
0 n9 l0 C* G$ n  V  t9 O3 M


, R  e9 G- b! r5 }

wert

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

myqlzx

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

chxq666

哦～～

sjs914915

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

流氓兔

哦～～

futures

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