mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-09 22:25:12 +00:00
17 lines
321 B
QBasic
17 lines
321 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
|
||
|
|
|