PROGRAM PASCAL; KONVERSI SUHU

Posted By journals »

Friday, April 3, 2015

Berikut ini adalah contoh program Konversi Suhu, disini saya menggunakan aplikasi Free Pascal IDE

program suhu; uses crt; var cel, pil:integer; hasil : real; param: string; begin clrscr; writeln('---------------'); writeln('KONVERSI SUHU'); writeln('---------------'); writeln('1. celcius->elvin'); writeln('2. celcius->fahrenheit'); writeln('3. celcius->reamur'); writeln('-----------------'); write('Masukan pilihan: '); readln(pil); write('Masukan besar suhu dalam celcius: ') ; readln(cel); case pil of 1: begin hasil:= cel+273; param:='kelvin'; end; 2: begin hasil:= cel*1.8+32; param:='Fahrenheit'; end; 3: begin hasil:= cel*0.8; param:='reamur'; end; else writeln('input salah..'); end; writeln(cel, 'celcius = ',hasil:10:2, ' ',param); readln(); end. Ketika sudah disimpan, tekan Ctrl+f9, maka akan muncul hasilnya...