求助。关于编程问题

douzeyang

编写一个程序。用以寻求边长为整数且面积为整数的三角形。
+ _, F  q/ A; O6 y9 ?; Z我的思路是先让边长都等于n，然后再逐次减一，看是否构成三角形，若才、构成三角形再判断是否面积为整数。下边是我的程序。
" h. I% S- k2 |/ Z* N
f[n_] := For[i = 1, i ≤ n, i++,
            For[j = 1, j ≤ n, j++,
# v( }% L5 {+ L/ b            For[k =  1, k ≤ n, k++,
/ S- P% ?4 Z4 \$ R/ L: N            If[i + j > k && i - j < k,
            For[z = 1, z < 2, z++,
. {# L8 {* I# C1 B' f. O5 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     ]]]]]]]
可是运行出来是不对的。求大侠帮忙看看程序哪里有问题。拜谢。要是我的程序完全不对。麻烦大侠给一个正确的。
* K! U. Z. |1 l8 \2 ^! C

mathcd

这里使Mathematica 版吧

yellowaug

C语言的？？？？？

mathcd

程序：

1. f[x_, y_] := Module[
   7 m. S% L- \+ x/ H
2.    {tmp, s, p, i, lst, S},
   , R! O, Y9 J/ q* z: c' o5 a
3.    tmp = (#1 + #2 + #3)/2 &;7 L: B! G6 `0 _3 a6 [! B4 G0 Q
   
4.    lst = {};
   ' ?7 i5 D  I5 X* Z
5.    For[i = 1, i <= y, i++,! T6 J; b6 v+ E! H2 h  M) f7 X. j6 W
   
6.     p = RandomInteger[x, 3];
   0 Y6 U8 N9 \6 D5 w\" R
7.     s = tmp @@ p;6 [: S) n4 O4 k0 w* g6 h
   
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
   : g; G2 v5 c( F2 w
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,
   / j( H4 G* r! n( |  z0 k
10.      AppendTo[lst, {p, S}]];0 A# U# x5 Y4 B7 I) q
    
11.     ];! v; y- S0 U& W9 O. q( W
    
12.    lst' @- ^* v0 W& r: D  s6 [! R2 `+ i
    
13.    ];

复制代码

4 b; [) L9 Z( d
0 B/ E' a8 U# \& U5 h说明：
. Q0 }/ z- S( G1 T& S! u程序f[x,y]采用随机算法。
: d/ G) E5 \3 C" `4 P第一个参数x：边长取值范围
9 b2 f  W' _- V+ T' N- R第二个参数y：循环次数

例子：
! y- k4 P+ y6 \9 m; d- E
# ~! r. @4 }. }& B7 j, t3 h$ n

1. f[100, 10000] // MatrixForm

复制代码

6 `4 ?" D* f$ G; A结果：
+ P: j& P& J8 A; B% z! g" b


4 A$ n% I: |: n1 ]4 _

wert

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

myqlzx

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

chxq666

哦～～

sjs914915

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

流氓兔

哦～～

futures

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