A B F C
-20 -4 -4.00000000 -20.00000000
-5 -3 -16.00000000 -26.66666667
-2 -2 -40.00000000 -40.00000000
1 3 80.00000000 26.66666667
2 18 40.00000000 4.44444444
For b = Int(-272 / 80) To 100000
If b <> 0 Then
c = 80 / b
f = 9 * c / 5 + 32
a = 80 / f
arounded = Int(a + 0.5)
If Abs(arounded - a) < 0.00001 Then
Text1.Text = Text1.Text & mform(a, "###0") & mform(b, "###0") & " "
Text1.Text = Text1.Text & mform(f, "###0.00000000") & mform(c, "###0.00000000") & crlf
End If
End If
Next b
|
Posted by Charlie
on 2016-10-31 11:53:55 |