求助。关于编程问题

douzeyang

编写一个程序。用以寻求边长为整数且面积为整数的三角形。
" k! A: @- ^. ~3 f" ]! b我的思路是先让边长都等于n，然后再逐次减一，看是否构成三角形，若才、构成三角形再判断是否面积为整数。下边是我的程序。
$ d  s7 ]' K# Z4 b2 h% f; J
' b$ G/ w5 g  ]; yf[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,
            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     ]]]]]]]
可是运行出来是不对的。求大侠帮忙看看程序哪里有问题。拜谢。要是我的程序完全不对。麻烦大侠给一个正确的。
- a! v! n$ x1 J

mathcd

这里使Mathematica 版吧

yellowaug

C语言的？？？？？

mathcd

程序：

1. f[x_, y_] := Module[; N! E/ y( `\" Q\" v
   
2.    {tmp, s, p, i, lst, S},
   6 s( |# |6 U  D3 t3 ~/ Y6 F
3.    tmp = (#1 + #2 + #3)/2 &;0 z7 V$ u\" a5 k! {( {2 P5 W# t/ ^
   
4.    lst = {};- D0 z, u1 z! m
   
5.    For[i = 1, i <= y, i++,
   ; J3 Q0 m* T; u: n9 n+ k
6.     p = RandomInteger[x, 3];
   : _1 E) x8 U. }\" K7 r4 V: V' h
7.     s = tmp @@ p;
   # N# F# S5 V* b1 Z3 V$ K$ W: u- q( k) T
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
   # O1 P4 B' K9 ^- J# L. {0 z1 F/ Q% C
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,
   ; J' e2 R% c8 v: Y; _- H) R! `7 S
10.      AppendTo[lst, {p, S}]];2 b7 ^* Q+ X& N4 ^+ e/ h9 p  T) {
    
11.     ];
    9 E\" ^7 x/ y# W/ j5 W) F7 f
12.    lst
    # [# ~! n! j\" b
13.    ];

复制代码

说明：
程序f[x,y]采用随机算法。
7 @4 }* E9 N$ k4 \/ i2 V第一个参数x：边长取值范围
) q) T5 h- x' s; e9 W7 N第二个参数y：循环次数
% w/ l. s. E  l. K3 D2 q3 d7 `
例子：
- z' x) i% O5 N2 ^
0 c; N4 n0 l% C) Y

1. f[100, 10000] // MatrixForm

复制代码

1 f+ y  _/ I4 z% J$ v& W
结果：
. B) _' V5 }0 Q5 ]
7 E: d% k; l' J' T: n9 X

) @4 p  w8 C; j

wert

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

myqlzx

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

chxq666

哦～～

sjs914915

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

流氓兔

哦～～

futures

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