求助。关于编程问题

douzeyang

编写一个程序。用以寻求边长为整数且面积为整数的三角形。
- }" q6 z, K3 e; E# @我的思路是先让边长都等于n，然后再逐次减一，看是否构成三角形，若才、构成三角形再判断是否面积为整数。下边是我的程序。
1 G& u8 `9 g/ P) I  q, Z) q1 Z
f[n_] := For[i = 1, i ≤ n, i++,
            For[j = 1, j ≤ n, j++,
  Y* ]6 ~" S# ]7 d6 ~            For[k =  1, k ≤ n, k++,
6 h( T3 p* L6 m4 V  ~8 g) k6 Q1 Z            If[i + j > k && i - j < k,
            For[z = 1, z < 2, z++,
) e0 T8 K, ]- k; x3 O7 g0 t& t            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 W, p$ b' ]* R& @& A1 P  v
   
2.    {tmp, s, p, i, lst, S},
   9 W: M# V  R/ L( G- j6 N# r* w
3.    tmp = (#1 + #2 + #3)/2 &;
   # m0 B+ J  K% I# y
4.    lst = {};7 ?# K$ q& {' m
   
5.    For[i = 1, i <= y, i++,
   : {) n* x, [' A& V; p9 C8 t& v. N
6.     p = RandomInteger[x, 3];; f1 ~+ @4 J  f/ g& E7 E  Q! i- E( z
   
7.     s = tmp @@ p;$ D6 J7 d2 s7 G) M
   
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
   # m3 ^; _) Q2 p8 l0 {5 L
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0, ) y4 w# Z' J. o) _- W) f  N4 z9 ~
   
10.      AppendTo[lst, {p, S}]];
    1 c8 ~5 V! a% r3 x! m  y
11.     ];
    - M3 @& D; C& }! b& n* |( J- b/ s
12.    lst  J( E$ E$ [$ ?! e
    
13.    ];

复制代码

1 v! K3 D  n, H- q8 D" k* N
说明：
, z7 G8 a: N/ b5 y, e! K程序f[x,y]采用随机算法。
第一个参数x：边长取值范围
第二个参数y：循环次数
" i# a8 v: o, ]; E9 O& ~7 Z6 b! c
例子：
$ l# @; w# C$ E/ G+ o
9 F: O; }2 g' o0 v

1. f[100, 10000] // MatrixForm

复制代码

7 Y/ |8 T6 Z3 _$ U$ w  g  w
, x5 ^6 h$ d& W* E# j! s结果：
) o0 L* {5 A  Q6 r/ U+ G# L

9 b0 t& ^( }( @2 f% v

wert

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

myqlzx

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

chxq666

哦～～

sjs914915

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

流氓兔

哦～～

futures

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