Beberapa skala satuan suhu yaitu Celcius (C), Reamur (R), Fahrenheit (F), dan Kelvin (K). Diantara skala satuan suhu tersebut, skala Celcius merupakan skala yang paling banyak dipakai di berbagai negara di seluruh dunia.

  • Konversi suhu dari Celcius (C) ke Reamur (R), Fahrenheit (F), dan Kelvin (K) adalah:

R = (4/5) C
F = (9/5) C + 32
K = C + 273

  • Konversi suhu dari Fahrenheit (F) ke Celcius (C), Reamur (R), dan Kelvin (K) adalah:

C = 5/9 (F-32)
R = 4/9 (F-32)
K = 5/9 (F-32) + 273

  • Konversi suhu dari Reamur (R) ke Celcius (C), Fahrenheit (F), dan Kelvin (K) adalah:

C = (5/4) R
F = (9/4) R + 32
K = C + 273 = (5/4) R + 273

  • Konversi suhu dari Kelvin (K) ke Celcius (C), Reamur (R), Fahrenheit (F) adalah:
Baca juga :  Pemrograman Web HTML

C = K – 273
R = 4/5 (K-273)
F = 9/5 (K-273) + 32

 

program Konversi_suhu;
uses wincrt;
var
suhu : integer;
lagi : char;
procedure fahrenheit;

var
f : real;

begin
f := 1.8 * suhu + 32;
writeln('Suhu dalam Fahreinheit = ',f:0:2);
end;


procedure reamur;
var
r : real;
begin
r := 0.8 * suhu + 32;
writeln('Suhu Dalam Reamur = ',r:0:2);
end;

procedure kelvin;
var
klv : real;
begin
klv := suhu + 273;
writeln('Suhu Dalam Kelvin = ',klv:0:2);
end;

BEGIN
repeat

writeln('   _______________________________________ ');

writeln('         KONVERSI SUHU DARI CELCIUS       ');

writeln('   _______________________________________ ');

writeln;

write('Silahkan Ketik Angka Suhu Derajat Celcius : ');
readln(suhu);
writeln;
fahrenheit;
reamur;
kelvin;
writeln;
write('Tekan Y Untuk menghitung lagi atau T untuk keluar = ');
readln(lagi);
until UPCASE(lagi) <> 'Y';
END

 

 

0 CommentsClose Comments

Leave a comment