Contoh Lanjutan Instruksi Pemilihan Bahasa Pascal

Contoh-contoh Instruksi Pemilihan Bahasa Pascal

Berikut akan disajikan contoh-contoh program instruksi bahasa pascal yang merupakan lanjutan pembahasan tulisan terkait instruksi pemilihan bahasa pascal.

Contoh-contoh :
Program bonus pegawai

Pegawai perusahaan digolongkan menjadi dua golongan, yaitu staf dan non staf. Staf akan mendapatkan bonus sebesar 1 juta rupiah dengan syarat bahwa ia telah bekerja paling tidak 5 tahun dan umurnya sudah mencapai 50 tahun; staf yang bekerja kurang dari 5 tahun dan berapapun umurnya, hanya mendapat bonus sebesar Rp. 500.000. Pegawai non staf yang telah bekerja lebih dari 5 tahun akan mendapat bonus sebesar Rp. 400.000 jika berumur lebih dari 50 tahun sedangkan pegawai non staf yang berumur kurang dari 50 tahun hanya mendapat bonus Rp. 250.000. Pegawai staf yang umurnya kurang dari 50 tahun akan mendapat bonus Rp. 300.000

Program bonus_karyawan; uses crt; type               jabatan =(staf,nonstaf); var nama:string; golongan : jabatan; umur,bekerja : integer;   begin               clrscr;               writeln ('PENENTUAN BONUS PEGAWAI');               writeln ('=======================');               writeln ('!masukkan data dengan jujur!');               write ('Nama : ');               readln (nama);               write ('Masukkan golongan anda staf/nonstaf : ');               readln (golongan);               write ('Lama Bekerja (tahun) : ');               readln (bekerja);               write ('Umur (tahun) : ');               readln (umur);                               if golongan=staf then               begin                              if (bekerja>=5) and (umur>=50) then                                            begin                                            writeln ('BONUS ANDA 1000000 RUPIAH');                                            end;                              if (bekerja<5) then                                            begin                                            writeln ('BONUS ANDA 500000 RUPIAH');                                            end;                              if (umur<50) then                                            begin                                            writeln ('BONUS ANDA 300000 RUPIAH');                                            end;               end               else               begin                              if (bekerja>5) or (umur>=50) then                              begin                              writeln ('BONUS ANDA 400000 RUPIAH');                              end                              else                              begin                              if (bekerja<5) and (umur<50) then                                            begin                                            writeln ('BONUS ANDA 250000 RUPIAH');                                            end;                              end;               end;               readkey; end.

 

Program hasil pengukuran suhu (derajat celcius)
a. Suhu sama atau kurang dari 0 (nol) tuliskan ‘beku’.
b. Suhu lebih dari 0 (nol) dan kurang dari 100 tuliskan ‘cair’, dan
c. Suhu sama atau lebih dari 100 tuliskan ‘uap’.

Program suhu_air; Uses Crt; Var     Suhu: Integer; Begin     Clrscr;     Writeln('PROGRAM MENENTUKAN KONDISI AIR');     Writeln('==============================');     Write('Masukkan Suhu Air (Celcius) = ');     Readln(Suhu);     If suhu<=0 then         begin             writeln('BEKU');         end;     if (suhu>0) and (suhu<100) then         begin            writeln('CAIR');         end;     if suhu>=100 then         begin            writeln('UAP');         end;     Readln; end.

 

Program Jadwal Mata Kuliah

Senin mata kuliah yang diberikan Algoritma dan Pemrograman I
Selasa mata kuliah yang diberikan Kalkulus
Rabu mata kuliah yang diberikan Bahasa Indonesia
Kamis mata kuliah yang diberikan Pengantar Teknik Informatika
Jum’at mata kuliah yang diberikan Bahasa Inggris
Sabtu mata kuliah yang diberikan Basis Data

program Hari_matkul; uses crt; var hari,senin,selasa,rabu,kamis,jumat,sabtu : string; begin               writeln ('JADWAL MATA KULIAH');               writeln ('==================');               writeln ('!silakan cek mata kuliah anda!');               write ('Masukkan Hari (senin/selasa/rabu/kamis/jumat/sabtu) : ');               readln (hari);                             if hari='senin' then                              begin                              writeln('Hari senin anda belajar pada mata kuliah Algoritma dan Pemrograman');                              end;               if hari='selasa' then                              begin                              writeln('Hari senin anda belajar pada mata kuliah Kalkulus');                              end;               if hari='rabu' then                              begin                              writeln('Hari senin anda belajar pada mata kuliah Bahasa Indonesia');                              end;               if hari='kamis' then                              begin                              writeln('Hari senin anda belajar pada mata kuliah Pengantar Teknik Informatika');                              end;               if hari='jumat' then                              begin                              writeln('Hari senin anda belajar pada mata kuliah Bahasa Inggris');                              end;               if hari='sabtu' then                              begin                              writeln('Hari senin anda belajar pada mata kuliah Basis Data');                              end;                             writeln ('SELAMAT BELAJAR!');                 readln; end.

Program Menu
Mempunyai menu sebagai berikut:
MENU
1. Baca data
2. Cetak data
3. Ubah data
4. Hapus data
5. Keluar program

program coba; uses crt ; label atas ; var pilihan : byte; nama,nim,kelas,asal : string ; lagi : char ; begin clrscr; atas : writeln('          MENU                        '); writeln('1. BACA DATA       '); writeln('2. CETAK DATA    '); writeln('3. UBAH DATA      '); writeln('4. HAPUS DATA    '); writeln('5. KELUAR PROGRAM'); write('PILIH MENU: '); readln (pilihan); Case Pilihan of     1 : Begin             writeln('INPUT DATA ANDA');             writeln('---------------');             write ('Nama :' );             readln (nama) ;             write ('NIM :' );             readln (nim) ;             write ('Kelas :' );             readln (kelas) ;             write ('Asal Kota :' );             readln (asal) ;             writeln('---------------');             writeln('Terima Kasih');             writeln('SELANJUTNYA SILAKAN CETAK DATA');          End;     2 : Begin             writeln('CETAK DATA ANDA');             writeln('---------------');             writeln ('Nama :',nama );             Writeln ('NIM :',nim );             writeln ('Kelas :',kelas );             writeln ('Asal Kota :',asal );             writeln('---------------');             writeln('Terima Kasih');             writeln('SELAMAT BERAKTIVITAS');          End;     3 : Begin             writeln('UBAH DATA ANDA');             writeln('---------------');             write ('Nama :' );             readln (nama) ;             write ('NIM :' );             readln (nim) ;             write ('Kelas :' );             readln (kelas) ;             write ('Asal Kota :' );             readln (asal) ;             writeln('---------------');             writeln('Terima Kasih');             writeln('SELANJUTNYA SILAKAN CETAK DATA');           End;     4 : Begin             writeln('HAPUS DATA ANDA');             writeln('---------------');             writeln('DATA ANDA DIHAPUS');           End;     5 : Begin             writeln ('Keluar Program Pilih T')           End;   Else         Begin             Writeln ('Pilihannya hanya 1, 2, 3, 4, 5 !!!' );             Writeln ('silahkan ulangi lagi' );          End ;   End ;   write ('ULANGI [Y/T] : ');   readln (lagi);   if (lagi = 'Y') then   goto atas; readln; end.

Program Kalkulator
Simulasikan sebuah kalkulator sederhana untuk melakukan operasi aritmatika.

Program kalkulator_sederhana; uses crt; var a,c,d : integer; operasi :char; begin clrscr; writeln('PETUNJUK:'); writeln('1. Masukkan angka pertama'); writeln('2. Masukkan operator (+, -, /, *)'); writeln('3. Masukkan Angka kedua'); writeln ('-------------------------------'); writeln('KALKULATOR SEDERHANA: '); writeln ('------------------------------'); write('Masukkan angka: '); readln(a); write('Operator: '); readln(Operasi); write('Angka ke dua: '); readln(c); case operasi of '+': d:=a + c; '-': d:=a - c; '/': d:=a div c; '*': d:=a * c; end; writeln('Hasil: ',d); readln; end.

Program Menentukan Hari

Program yang membaca sebuah integer, dari 1 sampai dengan 7, dan menuliskan nama hari yang bersesuaian dengannya di layar.

program harihari; uses crt ; var angka : integer; begin clrscr; writeln ('Menentukan Hari-hari'); writeln ('--------------------'); write('Masukkan angka (1-7) : '); readln (angka); write ('Angka Tersebut menunjukkan Hari '); Case angka of 1 : writeln('Ahad'); 2 : writeln ('Senin'); 3 : writeln('Selasa'); 4 : writeln ('Rabu'); 5 : writeln ('Kamis'); 6 : writeln('Jumat'); 7 : writeln ('Sabtu'); else writeln ('angka salah'); end; readln; end.

Program Menentukan Hasil Ujian

Jika pengguna menginputkan nilai diluar 0 s.d. 100 maka program langsung memberikan pesan salah menginput nilai kemudian selesai.

program coba5; uses crt; Var angka : integer; begin clrscr; writeln ('KETERANGAN NILAI'); writeln ('----------------'); write ('Masukkan Nilai Anda : '); readln (angka); if (angka>100) or (angka<0) then               writeln ('Anda Salah Input Nilai');               readln;               exit; case angka of 0..59 : writeln ('Anda tidak lulus'); 60..100 :               begin               write ('Anda Lulus ');                              case angka of                              60..69 : writeln ('dengan Cukup Memuaskan');                              70..79 : writeln ('dengan Baik');                              80..100 : writeln ('dengan Sangat Baik');                              end;               end; else writeln ('Anda Salah Input Nilai'); end; readln; end.

Program Menentukan Hasil Ujian
Modifikasi nested(Bersarang) CASE berubah menjadi single CASE tanpa mengubah output program.

program coba5; uses crt; Var angka : integer; begin clrscr; writeln ('KETERANGAN NILAI'); writeln ('----------------'); write ('Masukkan Nilai Anda : '); readln (angka); case angka of 0..59 : writeln ('Anda tidak lulus'); 60..69 : writeln ('Anda Lulus dengan Cukup Memuaskan'); 70..79 : writeln ('Anda Lulus dengan Baik'); 80..100 : writeln ('Anda Lulus dengan Sangat Baik'); else writeln ('Anda Salah Input Nilai'); end; readln; end.

Materi terkait instruksi pemilihan bahasa pascal. klink tautan berikut atau cari di kolom pencarian untuk melihat materi terkait instruksi pemilihan  bahasa pascal.

Terima Kasih Telah Membaca semoga bermanfaat, jika ada saran, kritik, dan pertanyaan silakan sampaikan di kolom komentar ya !!! see you...

Categories: PEMROGRAMAN