Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi suhu.

Program Konversi_Suhu;
Uses Wincrt;
Var
C,K,F:real;
Begin
Write ('Masukkan suhu dalam Celcius= ');readln(C);
F:=((9/5)*C)+32;
K:=C+273;
Writeln ('Suhu dalam Fahrenheit= ',(F):5:2);
Writeln ('Suhu dalam Kelvin= ',(K):5:2);
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi suhu.

program Konversi_Suhu;
uses wincrt;
var
a:real;
b,c,d:real;
begin
write ('Masukkan suhu dalam Celcius=');readln(a);
b:=(5/9*a)+32;
c:=(4/5*a);
d:=a+273;
writeln ('Suhu dalam Fahrenheit=',(b):5:2);
writeln ('Suhu dalam Reamur=',(c):5:2);
writeln ('Suhu dalam Kelvin=',(d):5:2);
end.

Posted in: konversi suhu,pascal