25 April 2016

Membuat Program Konversi Suhu Menggunakan Pascal

.

Ups, Kamu Sedang Dialihkan.. Tunggu Sebentar Ya


Pada kesempatan ini kita akan membuat sebuah program konversi suhu di pemrograman pascal. Pada postingan sebelumnya kita sempat membahas pembuatan program menghitung jarak. Membuat program konversi suhu ini cukup mudah, kita akan menggunakan pernyataan case. Untuk lebih lengkapnya silahkan ikuti langkah - langkah petunjuk dibawah ini dengan benar.

Langkah - Langkah / Tutorial :
  • 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 ngoding..

Buka Komentar


EmoticonEmoticon