Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
MODULE TempConv;
IMPORT InOut;
VAR c,f: REAL;
PROCEDURE cToF(c: REAL): REAL;
BEGIN RETURN c*9/5+32 END cToF;
PROCEDURE fToC(f: REAL): REAL;
BEGIN RETURN (f-32)*5/9 END fToC;
BEGIN
InOut.WriteString("25°C = "); InOut.WriteReal(cToF(25),2); InOut.WriteLn;
InOut.WriteString("77°F = "); InOut.WriteReal(fToC(77),2); InOut.WriteLn;
END TempConv.Coding works best on desktop or with an external keyboard.