10 lines
235 B
Text
10 lines
235 B
Text
include c:\cxpl\codes;
|
|
real K, C, F, R;
|
|
[ChOut(0, ^K); K:= RlIn(0);
|
|
C:= K - 273.15;
|
|
ChOut(0, ^C); RlOut(0, C); CrLf(0);
|
|
F:= 1.8*C + 32.0;
|
|
ChOut(0, ^F); RlOut(0, F); CrLf(0);
|
|
R:= F + 459.67;
|
|
ChOut(0, ^R); RlOut(0, R); CrLf(0);
|
|
]
|