作业帮 > 数学 > 作业

直角三角形一条直角边长度固定为8,且斜边长度不超过100,要求找出所有满足条件的整数边长的直角三角形

来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/04/29 07:33:02
直角三角形一条直角边长度固定为8,且斜边长度不超过100,要求找出所有满足条件的整数边长的直角三角形
要VB语言
急!
用一个循环就可以了:
Dim I%,J%,L#
For I = 1 To Int(Sqr(100 ^ 2 - 8 ^ 2))
L = Sqr(I ^ 2 + 8 ^ 2)
If L = Int(L) Then
Print "直角三角形三边分别为:8," & I & "," & L
End If
Next I
Print "查找结束!"