7 lines
No EOL
174 B
QBasic
7 lines
No EOL
174 B
QBasic
FUNCTION DegF(DegC AS DOUBLE) AS DOUBLE
|
|
DegF = DegC * 9.0 / 5.0 + 32.0
|
|
END FUNCTION
|
|
|
|
FUNCTION DegC(DegF AS DOUBLE) AS DOUBLE
|
|
DegC = (DegF - 32.0) * 5.0 / 9.0
|
|
END FUNCTION |