DefDbl A-Z
Dim crlf$, used(25)
Private Sub Form_Load()
ChDir "C:Program Files (x86)DevStudioVBprojects looble"
Text1.Text = ""
crlf$ = Chr(13) + Chr(10)
Form1.Visible = True
DoEvents
Min = 0.001
For s = 1 To 10000000
cr = s ^ (1 / 3)
rounded = Int(cr + 0.5)
diff = cr - rounded
If diff > 0 Then
If diff < Min Then
Text1.Text = Text1.Text & s & Str(cr) & crlf
DoEvents
Min = diff
End If
End If
Next
Text1.Text = Text1.Text & crlf & " done"
End Sub
finds, after other, larger U:
S T+U
...
5735340 179.000010403337
5832001 180.000010288065
5929742 181.000010174699
6028569 182.000010063196 last min before answer
6128488 183.000009953516 answer
6229505 184.00000984562
6331626 185.000009739469
6434857 186.000009635025
...
Edited on September 26, 2014, 1:55 pm
|
|
Posted by Charlie
on 2014-09-26 13:50:49 |
computer solution
