Conto Konversi Suhu Farenheit, Kelvin dan Reamur

Konversi Suhu Farenheit, Kelvin, 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 =



Ditulis Oleh : Marwan Setiawan ~ Berbagi Ilmu Pengetahuan

Artikel Conto Konversi Suhu Farenheit, Kelvin dan Reamur ini diposting oleh Marwan Setiawan. Sobat diperbolehkan mengcopy paste atau menyebar-luaskan artikel ini, namun jangan lupa untuk meletakkan link AKTIF artikel ini sebagai sumbernya. Terimakasih atas kunjungan Anda serta kesediaan Anda membaca artikel ini. Kritik dan saran dapat anda sampaikan melalui kotak komentar.

::..Get Free Daily Email Updates..::

Comments
0 Comments

Tidak ada komentar:

Posting Komentar

Baru Lama HomE
to Top