用Mathematica做：寻找100以内的勾股数。求程序设计及结果

For[i = 1, i <100, i++,

For[j = i, j <100, j++,

For[k = j, k <100, k++,

If[i^2 + j^2 == k^2,

Print[i, " ", j, " ", k]

]

]

]

]

直接复制进去，Shift+Enter ，结果为：

3 4 5

5 12 13

6 8 10

7 24 25

8 15 17

9 12 15

9 40 41

10 24 26

11 60 61

12 16 20

12 35 37

13 84 85

14 48 50

15 20 25

15 36 39

16 30 34

16 63 65

18 24 30

18 80 82

20 21 29

20 48 52

21 28 35

21 72 75

24 32 40

24 45 51

24 70 74

25 60 65

27 36 45

28 45 53

30 40 50

30 72 78

32 60 68

33 44 55

33 56 65

35 84 91

36 48 60

36 77 85

39 52 65

39 80 89

40 42 58

40 75 85

42 56 70

45 60 75

48 55 73

48 64 80

51 68 85

54 72 90

57 76 95

60 63 87

65 72 97

n = 2000000list := RandomInteger[{1, 10}, n]probability = Length[Position[list, 10]]/n // N其中n是重复实验的次数，输出结果是概率

打字不易，如满意，望采纳。

球体的体积：

正圆球 程序：v=4\3 Pi r r r

椭圆球 程序：v=4\3 Pi a b c

(mathematics中空格相当于乘号，Pi必须大写首字母，把r和abc的值带进去就可以了)

---