Pascal : Program Konversi Suhu menggunakan Case

Program konversi Suhu --- Program selanjutnya tentang konversi suhu dengan menggunakan bahasa pemrograman pascal. seperti artikel sebelumnya yang mengenai program kalkulator, program ini akan sangat membantu kita dalam belajar tentang pemrograman pascal dengan melakukan praktikum langsung membuat suatu program dengan pascal. Konversi suhu ini bisa kita gunakan untuk menghitung besar suhu menurut jenisnya masing-masing seperti Celcius, Fahrenheit, Reamur dan Kelvin.

Program konversi suhu berikut bisa kita modifikasi sesuai keinginan serta ditingkatkan menjadi aplikasi yang berbasis desktop.

Berikut script code programnya:

program konversisuhu;
uses crt;
label menu;
var
pilihan:char;
F,C,K,R:real;
begin
menu :
clrscr;
writeln('                              ====================================');
writeln('                       ==PROGRAM KONVERSI SUHU TekProgApp==');
writeln('                              ====================================');
writeln;
writeln('       =PILIH MENU BERIKUT=');
writeln('       ====================');
writeln('(1) Konversi Celcius - Fahrenheit');
writeln('(2) Konversi Celcius - Reamur');
writeln('(3) Konversi Celcius - Kelvin');
writeln('(4) Keluar Program');
writeln;
write('Masukkan Pilihan Anda : ');readln(pilihan);
writeln;
case pilihan of
        '1' : begin
                write('Masukkan Suhu Dalam Celcius : ');

                readln(C);
                f:=(9/5)*C+32;
                writeln(C:0:2,' Celcius = ',F:0:2,' Fahrenheit');
                end;
        '2' : begin
                write('Masukan Suhu Dalam Celcius : ');readln(R);
                R:=(4/5)*C;
                writeln(C:0:2,' Celcius = ',R:0:2,' Reamur');
                end;
        '3' : begin
                write('Masukan Suhu Dalam Celcius : ');readln(K);
                K:=C+273;
                writeln(C:0:2,' Celcius - ',K:0:2,' Kelvin');
                end;
        '4' : begin halt(0);
                end;

end;

writeln;
writeln('                         ====================================');
writeln('                         Tekan Sembarang Tombol Untuk Ke Menu');
writeln('                         ====================================');
readln;
goto menu;


readln;
end.

Hasil Running:

Kurang lebih seperti itu code untuk membuat aplikasi konversi suhu dengan Pascal. Semoga Bermanfaat, Wassalam.

Bagikan ke:

Facebook Google+ Twitter