membuat program konversi suhu

Langsung copy mass:

begin

writeln;

writeln('Nama : Fajar Bella Syara');

writeln;

writeln('-==PROGRAM KONVERSI SUHU==-');

writeln;

writeln('Pilih salah satu menu KONVERSI');

               writeln('1.konversi kelvin-celcius');

               writeln('2.konversi kelvin-fahrenheit');

               writeln('4.keluar');

               writeln;

               write('pilih konversi yang ingin anda gunakan :');readln(pilihan);

{procedure program}

if pilihan='1' then

begin

write('suhu dalam kelvin: ');readln(K);

C:=(K-273.15);

writeln('suhu dalam celcius= ',C:2:2);

end;

{procedure program}

if pilihan='2' then

begin

write('suhu dalam kelvin: ');readln(K);

F:=(K*(9/5)-495.67);

writeln('suhu dalam fahrenheit=' ,F:2:2);

end;

end.

Hasil: