Program pascal konversi suhu

program konversi_suhu;

uses crt;

 VAR

 CELCIUS,REAMUR,FAHRENHEIT,KELVIN:REAL;

FUNCTION R(C:REAL):REAL;

BEGIN

R:=4/5*C;

END;

FUNCTION F(C:REAL):REAL;

BEGIN

F:=(9/5*C)+32;

END;

FUNCTION K(C:REAL):REAL;

BEGIN

K:=C+273;

END;

BEGIN

CLRSCR;

WRITE('MASUKAN DERAJAD CELCIUS : ');READLN(CELCIUS);

REAMUR:=R(CELCIUS);

FAHRENHEIT:=F(CELCIUS);

KELVIN:=K(CELCIUS);

WRITELN('REAMUR     : ',REAMUR:4:2);

WRITELN('FAHRENHEIT : ',FAHRENHEIT:4:2);

WRITELN('KELVIN     : ',KELVIN:4:2);

READLN;

END.