*
高老师的勾股数组分享
举报
发布于：2022-11-03
更新于：2022-11-03
7
492
作品介绍:
寻找勾股数组。[1，n]之间的所有整数能构成直角三角形的三边的组数，n=50，60,100等。 vb程序： Sub 勾股数组() n = 0 t = 2 s = 2 For i = 1 To 50 For j = 1 To i For k = 1 To j If j ^ 2 + k ^ 2 = i ^ 2 Then n = n + 1 Cells(s, t) = i Cells(s, t + 1) = j Cells(s, t + 2) = k t = 2 s = s + 1 End If Next k, j, i Cells(1, 3) = n End Sub
操作说明:
点击后，输入勾股数的范围n=50或者100等，可以导出你的勾股数组数据。