A: "I remember that on a certain day in Winter both Celsius and Fahrenheit temperature readings showed the digit 5 as the units digit..."
B(after some mental calculation): "I'm certain it was not the coldest day..."
How cold was it?
The answer is -15°C or 5°F.
It led me to wonder what if the specific digit weren't given--just that the Fahrenheit's units digit matched that of the Celsius. The results show it's possible among reasonably cold temperatures other than the above only if you round the temperatures to the nearest whole degree:
exact rounded
F C F C
-19.5 -28.6 -19 -29
-19.4 -28.6 -19 -29
-18.5 -28.1 -18 -28
-18.4 -28.0 -18 -28
-18.3 -27.9 -18 -28
-18.2 -27.9 -18 -28
-18.1 -27.8 -18 -28
-18.0 -27.8 -18 -28
-17.9 -27.7 -18 -28
-17.8 -27.7 -18 -28
-17.7 -27.6 -18 -28
-17.6 -27.6 -18 -28
-17.5 -27.5 -17 -27
-17.4 -27.4 -17 -27
-17.3 -27.4 -17 -27
-17.2 -27.3 -17 -27
-17.1 -27.3 -17 -27
-17.0 -27.2 -17 -27
-16.9 -27.2 -17 -27
-16.8 -27.1 -17 -27
-16.7 -27.1 -17 -27
-16.6 -27.0 -17 -27
-15.7 -26.5 -16 -26
-15.6 -26.4 -16 -26
4.5 -15.3 5 -15
4.6 -15.2 5 -15
4.7 -15.2 5 -15
4.8 -15.1 5 -15
4.9 -15.1 5 -15
5.0 -15.0 5 -15
5.1 -14.9 5 -15
5.2 -14.9 5 -15
5.3 -14.8 5 -15
5.4 -14.8 5 -15
11.4 -11.4 11 -11
11.5 -11.4 11 -11
17.6 -8.0 18 -8
17.7 -7.9 18 -8
17.8 -7.9 18 -8
17.9 -7.8 18 -8
18.0 -7.8 18 -8
18.1 -7.7 18 -8
18.2 -7.7 18 -8
18.3 -7.6 18 -8
18.4 -7.6 18 -8
23.9 -4.5 24 -4
24.0 -4.4 24 -4
24.1 -4.4 24 -4
24.2 -4.3 24 -4
24.3 -4.3 24 -4
24.4 -4.2 24 -4
30.5 -0.8 31 -1
30.6 -0.8 31 -1
30.7 -0.7 31 -1
30.8 -0.7 31 -1
30.9 -0.6 31 -1
31.0 -0.6 31 -1
DefDbl A-Z
Dim crlf$, age(4), digits$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
For f = -20 To 40 Step 0.1
c = (f - 32) * 5 / 9
fcomp$ = mform(Int(f + 0.5), "###0")
ccomp$ = mform(Int(c + 0.5), "###0")
a$ = mform(f, "##0.0")
b$ = mform(c, "##0.0")
If Right(fcomp, 1) = Right(ccomp, 1) Then
Text1.Text = Text1.Text & mform(f, "##0.0") & " " & mform(c, "##0.0") & " "
Text1.Text = Text1.Text & fcomp & " " & ccomp & crlf
End If
DoEvents
Next
Text1.Text = Text1.Text & crlf & " done"
End Sub
Function mform$(x, t$)
a$ = Format$(x, t$)
If Len(a$) < Len(t$) Then a$ = Space$(Len(t$) - Len(a$)) & a$
mform$ = a$
End Function
|
|
Posted by Charlie
on 2018-01-06 16:02:12 |
An aside, beyond the solution
