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

• Pascal : Menghitung nilai Jajar Genjang dengan Turbo Pascal For Windows (TPW 1.5)
• Pascal : Penggunaan script Repeat Until dan Case Break
• Pascal : Membuat Program Menghitung detik menggunakan DIV MOD
• Pascal : Program Konversi Suhu menggunakan Case
• Mempelajari Algoritma Pemrograman Berorientasi Objek dikenal OOP
• Web : Cara mengatur Paragraf html code menjadi lebih teratur
• HTML : Belajar HTML Memasukkan link Bahasa Pemrograman WEB
• Belajar HTML Pemrograman Web
• Download Turbo Pascal for Windows (TPW 1.5)
• Pemrograman Pascal : Program Kalkulator Kali, Bagi, Jumlah dan Kurang
• Mengenal Bahasa Pemrograman Pascal
• Program Pascal : Belajar Coding Dasar Membuat Program Pascal Hello
• Pemrograman Pascal : Contoh Coding Pemrograman Dasar Pascal Perulangan While Do
• Pascal : Cara membuat Program Generator Tulisan Terbalik
• Aplikasi Free Pascal Download Gratis disertai Cara Download dan Cara Instal Lengkap
• Program Pascal : Cara Membuat Program Mencari Nilai Luas Trapesium
• Program Pascal : Contoh penggunaan PROCEDURE dan perulangan IF ELSE membuat piramid Bilangan
• Program Pascal : Contoh program pascal menggunakan Array
• Mempelajari Array Penyimpanan data dalam Pemrograman dunia IT
• Program Pascal : Membuat program untuk menghitung Nilai berpangkat dengan Procedure