-40°C = -40°F; multiple is 1
-20°C = -4°F; multiple is 5
-18°C = -.4°F; multiple is 45
-16°C = 3.2°F; multiple is-5
-15°C = 5°F; multiple is -3
The pairs of integers are (1,-40), (5,-20), (45,-18), (-5,-16), (-3,-15)
The Fahrenheit temperatures need not be integers, only the Celsius.
DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
For c = -273 To 1000000
DoEvents
f = c * 9 / 5 + 32
If c <> 0 Then
ratio = c / f
If ratio = Int(ratio) Then
Text1.Text = Text1.Text & c & Str(f) & Str(ratio) & crlf
End If
End If
Next
Text1.Text = Text1.Text & " done"
End Sub
|
|
Posted by Charlie
on 2016-06-22 08:16:39 |
five solutions
