7 lines
174 B
QBasic
7 lines
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
|