Program Konversi Suhu Pascal (Celcius, Fahrenheit, Reamur dan Kelvin)

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:

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

Program:

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.

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email