Conto Konversi Suhu Farenheit, Kelvin dan Reamur

Pernah mendengar kata-kata seperti Celcius, Fahrenheit, Reamur dan Kelvin???, Celcius, Fahrenheit, Reamur dan Kelvin bukanlah nama-nama binatang apalagi nama tumbuh-tumbuhan, tetapi Celcius, Fahrenheit, Reamur dan Kelvin merupakan satuan yang sering digunakan pada temperatur suhu. Jika anda pernah mendengarnya, Pernahkan anda melakukan konversi suhu dari suatu satuan ke satuan lainnya?.

Versi Pascal yang saya pakai adalah Pascal versi Windows. Jika anda menggunakan Pascal for DOS / Turbo Pascal, silahkan ganti statement Uses WinCrt dengan Uses Crt dan diawal program utama ditambahkan dengan ClrScr.

            view source1 :

            Program KonversiSuhu;

            uses wincrt;

            var InpSuhu:real; {C=Celcius, R=Reamur, F=Fahrenheit, K=Kelvin}

                OutC, OutR, OutF, OutK:real;

                JenisSuhu:char;

                InpSuhuString:string; {var penampung input suhu dalam string}

                tempSuhu:real;        {var sementara untuk konver string ke real}

                ErrCode:integer;      {var untuk menampung error saat konversi string ke real}

             

            label 100,200;

             

            {program utama}

            begin

                 {menu}

                 100: {label 100}

                 write('Masukan jenis suhu C/R/F/K  : ');

                 readln(JenisSuhu);

                 JenisSuhu:=upcase(JenisSuhu); {mengubah jenis suhu ke upper case}

             

                 if (JenisSuhu <> 'C') then

                    if (JenisSuhu <> 'R' )  then

                       if (JenisSuhu <> 'F' ) then

                          if (JenisSuhu <> 'K' ) then

                          begin

                             writeln ('Jenis suhu salah, silahkan ulangi!');

                             writeln;

                             goto 100;

                          end;

             

                 200: {label 200}

                 write('Masukan besar suhu          : ');

                 readln(InpSuhuString);

                 val(InpSuhuString,inpSuhu,ErrCode);

                 if ErrCode <> 0 then

                 begin

                    writeln('Data suhu yang dimasukan tidak valid, masukan data numerik!');

                    writeln;

                    goto 200;

                 end;

             

                 writeln;

             

                 { hitung konversi suhu}

             

                 writeln('Hasil Konversi Suhu, Untuk Suhu ', inpSuhu:6:2,' ',JenisSuhu);

                 writeln('--------------------------------------');

                 if (JenisSuhu = 'C') then {jika input suhu dalam celcius}

                 begin

                      OutR:=InpSuhu * 4/5;

                      OutF:=(InpSuhu *9/5) + 32;

                      OutK:=InpSuhu + 273;

             

                      writeln('Suhu dalam Reamur      = ', OutR:6:2);

                      writeln('Suhu dalam Fahrenheit  = ', OutF:6:2);

                      writeln('Suhu dalam Kelvin      = ', OutK:6:2);

                 end

                 else if (JenisSuhu = 'R')  then  {jika input suhu dalam reamur}

                 begin

                      OutC:=InpSuhu * 5/4;

                      OutF:=(InpSuhu * 9/4) + 32;

                      OutK:=(InpSuhu * 5/4) + 273;

             

                      writeln('Suhu dalam Celcius     = ', OutC:6:2);

                      writeln('Suhu dalam Fahrenheit  = ', OutF:6:2);

                      writeln('Suhu dalam Kelvin      = ', OutK:6:2);

                 end

                 else if (JenisSuhu = 'F') then  {jika input suhu dalam fahrenheit}

                 begin

                      OutC:=InpSuhu * 5/9;

                      OutR:=(InpSuhu * 4/9) + 32;

                      OutK:=(InpSuhu * 5/9) + 273;

             

                      writeln('Suhu dalam Celcius     = ', OutC:6:2);

                      writeln('Suhu dalam Reamur      = ', OutR:6:2);

                      writeln('Suhu dalam Kelvin      = ', OutK:6:2);

                 end

                 else if (JenisSuhu = 'K') then  {jika input suhu dalam kelvin}

                 begin

                      OutC:=InpSuhu - 273;

                      OutR:=(InpSuhu - 273) * 4/5;

                      OutF:=((InpSuhu - 273) * 9/5) + 32;

             

                      writeln('Suhu dalam Celcius     = ', OutC:6:2);

                      writeln('Suhu dalam Reamur      = ', OutR:6:2);

                      writeln('Suhu dalam Fahrenheit  = ', OutF:6:2);

                 end;

                 readln;

            end. {end program}

view source1 :

Program celcius_fahrenheit_kelvin_reamur;

Uses wincrt;

Var pilihan: byte;

C,f,k,r: real;

Begin

Writeln(‘pilihan’);

Writeln(‘1.menghitung celcius ke fahrenheit’);

Writeln(‘2.menghitung celcius ke kelvin’);

Writeln(‘3.menhitung celcius ke reamur’);

Writeln(‘0.selesai.’);

Pilihan :=5;

While(pilihan<0) style="mso-bidi-font-weight: normal">or (pilihan>3)do

Begin

Writeln(‘pilih nomor(0-3) ?’);

Readln(pilihan);

End;

If pilihan =1 then

Begin

Write(‘ketik berapa derajat celcius? ‘);

Readln(c);

F := 32+c*1.8;

Writeln;

Writeln(c,’derajat celcius adalah ‘,F,’derajat Fahrenheit’);

Readln;

End;

If pilihan =2 then

Begin

Write(‘ketik berapa derajat celcius? ‘);

Readln(c);

K := c+273.15;

Writeln;

Writeln(c,’derajat celcius adalah ‘,K,’derajat Kelvin’);

Readln;

End;

If pilihan =3 then

Begin

Write(‘ketik berapa derajat celcius? ‘);

Readln(c);

R := c*0.8;

Writeln;

Writeln(c,’derajat celcius adalah ‘,R.’derajat reamur’);

Readln;

End;

End.

Sekarang kamu sudah bisa kan membuat sebuah program?

Nah, sekian pembahasan saya kali ini mengenai Konversi Suhu Farenheit, Kelvin dan Reamur.

Selamat Mencoba !!

» JANGAN LUPA LIKE N Komentarnya Yeach...

= Baca Juga Sob =