Program
konversi_derajat_celcius_ke_rheamur;
Uses
crt;
Var
C,r:real;
Begin
Clrscr;
Writlen(‘PROGRAM
KONVERSI DERAJAT CELCIUS KE RHEAMUR’);
Writeln(‘============================================’);
Writeln;
Write(‘Berapa
Celcius? ‘);
Read(c);
R:=c*0.8;
Writeln(c,’
celcius menjadi ‘,r,’Rheamur’);
Readln;
End.
0 comments:
Post a Comment