用Mathematica做:寻找100以内的勾股数.求程序设计及结果
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/27 16:34:10
用Mathematica做:寻找100以内的勾股数.求程序设计及结果
我要的是用Mathematica做的,不要其他东西做的
我要的是用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
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
用Mathematica做:寻找100以内的勾股数.求程序设计及结果
求大神做下matlab的程序设计
用C语言遍的“100以内的整数四则运算测试程序设计”
vf 100以内能被3整除的数程序设计 要求用do while语句
程序设计输出100以内被7整除的数
用C语言循环结构求解1-100之间的所有素数.写出程序设计思路、关键语句及解释、程序输出结果
用mathematica积分 求出的结果看不懂
用Mathematica求矩阵的特征值W,算不出结果啊,急,恳请高人赐教!
求100以内的质数(用C语言做)
VFP程序设计题:求100以内使得算式1/(1*2)+1/(2*3)+…+1/(n*(n+1))的值小于0.952的最大
程序设计,功能:输出100以内能被3整除且个位数为6的所有整数.
用数学软件Mathematica能否做下面的方程?求解题命令