x^2 + 3xy + 2*911x + 2*911y +911^2 = 0.
Solve the bolded equation for an integer couple (x,y)
x y
-607 -92416
-911 0
276033 -92416
from
For x0 = 0 To 1000000
For x = -x0 To x0 Step 2 * x0
y = -(x * x + 1822 * x + 829921) / (3 * x + 1822)
yr = Int(y + 0.5)
If Abs(y - yr) < 0.000001 Then
Text1.Text = Text1.Text & x & " " & Str(y) & crlf
End If
If x0 = 0 Then Exit For
Next
DoEvents
Next
|
Posted by Charlie
on 2018-08-03 12:01:41 |