25 April 2016

Membuat Program Konversi Suhu Menggunakan Pascal

Pada kesempatan ini kita akan membuat sebuah program konversi suhu menggunakan bahasa pemrograman pascal. Cara membuatnya cukup mudah, disini kita akan menggunakan pernyataan case. Untuk lebih lengkapnya silahkan ikuti langkah - langkah petunjuk dibawah ini dengan benar.

Membuat Program Konversi Suhu Menggunakan Bahasa Pascal

  • Pertama silahkan buka program pascalnya dan jangan lupa buka proyek baru / new project
  • Masukan kode berikut ini
Program Konversi_Suhu;
uses
crt;
label menu;

var
 pilihan : char;
 F,C,K,R : real;

begin
 menu :
 clrscr;
 writeln('Program Konversi Suhu');
 writeln('---------------------');
 writeln;
 writeln('Pilih menu berikut dengan menekan tombol 1..4');
 writeln('[1] Konversi Celcius - Fahrenheit');
 writeln('[2] Konversi Celcius - Reamur');
 writeln('[3] Konversi Celcius - Kelvin');
 writeln('[4] Keluar Program');
 writeln;
 write(' Masukan pilihan anda :'); readln(pilihan);
 writeln;

case pilihan of
    '1' : begin
                write('Masukan 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('Tekan sembarang tombol untuk ke menu');
    readln;
    goto menu;

readln;
end.
  • Kemudian silahkan simpan
  • Setelah itu silahkan klik menu Execute lalu klik Compile. Atau untuk mempermudah silahkan tekan CTRL+F9 pada keyboard sobat
  • Tunggu sampai selesai proses compilenya.
  • Setelah itu silahkan klik menu Run untuk melihat/menjalankan program. (Menu Run dibawah menu Compile)
  • Selesai
 Dan berikut ini adalah hasil berupa gambar dari pembuatan program diatas
Itulah cara membuat program konversi suhu di pascal. Semoga bermanfaat dan happy coding.

Buka Komentar


EmoticonEmoticon