Program Konversi Suhu (bag.1)

Asslau’alaikum para blogger.........................

Setelah sekian lama gak mosting, hari ini saya akan mosting tentang Cara membuat program konversional suhu dengan bahasa Pascal. Pada program ini, kita juga akan belajar fungsi if

ganda pada Pascal. Dan program ini ada dua bagian. Bagian yang pertama yaitu konver suhu celcius, dan yang kedua konver suhu farenhit. Tanpa basa-basi lagi mari kita mulai belajar.

Berikut codingnya untuk konver celcius:
“ uses crt;

var

c,f,r,k: real;

pil:byte;

begin

clrscr;

 writeln('     Menu konver Celcius');

 writeln('==============================');

 writeln('1.Celsius Ke Farenhit');

 writeln('2.Celsius ke Reamur');

 writeln('3.Celcius ke Kelvin');

 writeln('===============================');

 write('Pilihan :');

 readln(pil);

 if pil=1 then

 begin

   clrscr;

   writeln( 'Konver Celcius ke Farenhit');

   writeln('============================');

   write('Suhu Celcius:  ');

   readln(c);

   f:= 9/5 * c + 32  ;

   writeln('Suhu Farenhit:  ',f:2:0);

 End

  else if pil=2 then

 begin

 clrscr;

  writeln( 'Konver Celcius ke Reamur');

   writeln('============================');

   write('Suhu Celcius:  ');

   readln(c);

   r:=4/5*c ;

   writeln('Suhu Reamur:  ',r:2:0);

end

 else if pil=3 then

begin

clrscr;

 writeln( 'Konver Celcius ke Kelvin');

   writeln('============================');

   write('Suhu Celcius:  ');

   readln(c);

   k:=c+273 ;

   writeln('Suhu Kelvin:  ',k:2:0);

   end;

   readln;

 end.   “

Dan ini dia eksekusinya:

Dan berikut adalah coding untuk suhu farenhit:

“  uses crt;

var

c,f,r,k: real;

pil:byte;

begin

clrscr;

 writeln('     Menu konver Farenhit');

 writeln('==============================');

 writeln('1.Farenhit ke Celcius');

 writeln('2.Farenhit ke Reamur');

 writeln('3.Farenhit ke Kelvin');

 writeln('===============================');

 write('Pilihan :');

 readln(pil);

 if pil=1 then

 begin

   clrscr;

   writeln( 'Konver Farenhit Ke Celcius');

   writeln('============================');

   write('Suhu Farenhit:  ');

   readln(f);

   c:= (5/9) * (f - 32)  ;

   writeln('Suhu Celcius:  ',c:2:0);

 End

  else if pil=2 then

 begin

 clrscr;

  writeln( 'Konver Farenhit ke Reamur');

   writeln('============================');

   write('Suhu Farenhit:  ');

   readln(f);

   r:=(4/9)*(f-32) ;

   writeln('Suhu Reamur:  ',r:2:0);

end

 else if pil=3 then

begin

clrscr;

 writeln( 'Konver Farenhit ke Kelvin');

   writeln('============================');

   write('Suhu Farenhit:  ');

   readln(f);

   k:=(5/9)*(f-32)+273 ;

   writeln('Suhu Kelvin:  ',k:2:0);

   end;

   readln;

 end.   “

Dan, tampilannya seperti ini:

 Sekilan dulu untuk hari ini dan selamat belajar ..................