根号x+根号y=根号1968求x
我同意Borwnho 的结果, mx10811 也精采。 我只是另一种解法:
有3组解
x+y = 492 + 492 = 984
x+y = 1107 + 123= 1230
x+y = 1968 + 0 = 1968
这是求解程序
Private Sub Form_Load()
Dim i, j, x, y, xx(0 To 10), yy(0 To 10) As Integer
For x = 0 To 1968
For y = 0 To 984
If 4 * x * y + 3936 * (x + y) - (x + y) * (x + y) = 3873024 Then
xx...全部
我同意Borwnho 的结果, mx10811 也精采。
我只是另一种解法:
有3组解
x+y = 492 + 492 = 984
x+y = 1107 + 123= 1230
x+y = 1968 + 0 = 1968
这是求解程序
Private Sub Form_Load()
Dim i, j, x, y, xx(0 To 10), yy(0 To 10) As Integer
For x = 0 To 1968
For y = 0 To 984
If 4 * x * y + 3936 * (x + y) - (x + y) * (x + y) = 3873024 Then
xx(i) = x
yy(i) = y
i = i + 1
End If
Next y
Next x
For j = 0 To i - 1
Text1 = Text1 & xx(j) & " "
Text2 = Text2 & yy(j) & " "
Next j
。收起