中外数字媒体艺术:勾股定理中的3个数的关系编程

来源:百度文库 编辑:高考问答 时间:2024/04/30 14:17:15
例如
a的平方加b的平方等于c的平方

我这样来理解你的问题,不知对不对:在正整数中3,4,5是符合勾股定理的,即勾三股四弦五。那么在一个正整数范围内,有多少符合勾股定理呢?
可以这样编程来算一下:
Private Sub command1_click()
Dim x%, y%, z%, n%, m%

Print "勾", "股", "弦"
m = InputBox("请输入一个正整数。")

n = 0
For x = 1 To m
For y = x To m
For z = y To m
If x * x + y * y = z * z Then
Print x, y, z
n = n + 1
End If
Next z
Next y
Next x
Print "共有" & n & "组合"
End Sub

运行后,输入20,结果如下:
勾 股 弦
3 4 5
5 12 13
6 8 10
8 15 17
9 12 15
12 16 20
共有6种组合

用什么语言啊?问题太模糊了