mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 08:50:25 +00:00
17 lines
337 B
QBasic
17 lines
337 B
QBasic
REM This is a program that converts Fahrenheit temperatures to Celsius
|
|
REM temperatures.
|
|
|
|
CONST SHIFT# = 32#
|
|
CONST SCALE = 1.8#
|
|
CONST TFChar = "F "
|
|
CONST TCchar = "C "
|
|
|
|
DIM TF AS DOUBLE
|
|
DIM TC AS DOUBLE
|
|
CLS
|
|
INPUT "Enter the temperature in Fahrenheit "; TF
|
|
TC = (TF - SHIFT) / SCALE
|
|
PRINT TF; TFChar; "="; TC; TCchar
|
|
END
|
|
|