用Mathematica做:寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的,不要其他东西做的
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 13:36:47
![用Mathematica做:寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的,不要其他东西做的](/uploads/image/z/13094853-69-3.jpg?t=%E7%94%A8Mathematica%E5%81%9A%EF%BC%9A%E5%AF%BB%E6%89%BE100%E4%BB%A5%E5%86%85%E7%9A%84%E5%8B%BE%E8%82%A1%E6%95%B0.%E6%B1%82%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%E5%8F%8A%E7%BB%93%E6%9E%9C%E6%88%91%E8%A6%81%E7%9A%84%E6%98%AF%E7%94%A8Mathematica%E5%81%9A%E7%9A%84%EF%BC%8C%E4%B8%8D%E8%A6%81%E5%85%B6%E4%BB%96%E4%B8%9C%E8%A5%BF%E5%81%9A%E7%9A%84)
用Mathematica做:寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的,不要其他东西做的
用Mathematica做:寻找100以内的勾股数.求程序设计及结果
我要的是用Mathematica做的,不要其他东西做的
用Mathematica做:寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的,不要其他东西做的
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