mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 02:20:25 +00:00
9ee89d6ff4
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
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
|
|
|