TUGAS PETRUK :KONVERSI SUHU (ALGORITMA - PASCAL )

• ALGORITMA

algoritma koversi_suhu
{untuk mengkonversi suhu dari celsius ke kelvin dan fahrenheit}
deklarasi
   C,K,F : real
deskripsi
begin
     read(C)
K ← 273 + C
F ← (1.8*C)+32
write(K,F)
end.

• PASCAL

program konversi_suhu;
{untuk mengkonversi suhu dari celsius ke kelvin dan fahrenheit}
uses wincrt;
var
   c,k,f:real;
begin
     write('suhu dalam celsius =');readln(c);
k := 273 + c;
f := (1.8*c)+32;
writeln('suhu dalam kelvin = ',k:0:2);
writeln('suhu dalam fahrenheit = ',f:0:2);
end.

• HASIL

---

Artikel Terkait: