program konversi_suhu;
uses crt;
var
C, F, R, K : real;
pilihutama : string;
pilihmenu : integer;
A, B : string;
begin
clrscr;
writeln('Program Konversi Suhu');
writeln;
writeln('Pilih Program Konversi : ');
writeln('A. Celcius ke Satuan Lainnya');
writeln('B. Satuan Lainnya ke Celcius');
writeln('Pilihan Anda (A/B): ');
readln(pilihutama);
if pilihutama=A then
begin
clrscr;
writeln('Pilih Menu Konversi :');
writeln('1. Celcius ke Reamur');
writeln('2. Celcius ke Fahrenheit');
writeln('3. Celcius ke Kelvin');
writeln('Pilihan Anda (1/2/3): ');
readln(pilihmenu);
if pilihmenu=1 then
begin
writeln('Masukkan Suhu Dalam Celcius: ');
readln(C);
R:=(4/5)*C;
writeln('Maka Suhu Hasil Konversi: ',R:0:2);
end else
if pilihmenu=2 then
begin
writeln('Masukkan Suhu Dalam Celcius: ');
readln(C);
F:=(9/5)*C+32;
writeln('Maka Suhu Hasil Konversi: ',F:0:2);
end else
begin
writeln('Masukkan Suhu Dalam Celcius: ');
readln(C);
K:=C+273;
writeln('Maka Suhu Hasil Konversi: ',K:0:2);
end;
end else
begin
clrscr;
writeln('Pilih Menu Konversi :');
writeln('1. Reamur ke Celcius');
writeln('2. Fahrenheit ke Celcius');
writeln('3. Kelvin ke Celcius');
writeln('Pilihan Anda (1/2/3): ');
readln(pilihmenu);
if pilihmenu=1 then
begin
writeln('Masukkan Suhu Dalam Reamur: ');
readln(R);
C:=(5/4)*R;
writeln('Maka Suhu Hasil Konversi: ',C:0:2);
end else
if pilihmenu=2 then
begin
writeln('Masukkan Suhu Dalam Fahrenheit: ');
readln(F);
C:=(5/9)*F-32;
writeln('Maka Suhu Hasil Konversi: ',C:0:2);
end else
begin
writeln('Masukkan Suhu Dalam Kelvin: ');
readln(K);
C:=K-273;
writeln('Maka Suhu Hasil Konversi: ',C:0:2)
end;
end;
readkey;
end.
selamat mencoba.
.jpg)
