CARA MEMBUAT FUNGSI IF PADA PASCAL DENGAN MUDAH

Oleh peistar

Sunday, 21 February 2016

Bagikan :

Tweet

Banyak yang binggung pada saat membuat program dengan fungsi IF pada pascal namun tanpa kita sadari sebenarnya penggunaan fungsi IF ini tidaklah terlalu sulit untuk dipelajari, kali ini saya akan memberikan sedikit tutorial mengenai bagaimana cara membuat program sederhana dengan menfaatkan fungsi IF dalam pascal.

Contoh kasus pada materi ini mengenai bagaimana cara menampilkan Pajak secara otomatis tanpa harus kita inputkan dengan cara memilih salah satu golongan yang telah ditentukan dalam program.

Adapun langkah-langkah pengerjaannya sebagai berikut :

- Pertama : Masukan sintax program dibawah ini kedalam area kerja pascal dengan benar.

Program Fungsi_IF;
uses crt;
Var NIK, NAMA, Golongan   : String;
    Gaji, Pajak  : Real;
Begin
Clrscr;
Writeln ('+++++++++++++++++++++++++++++');
Writeln ('       PAJAK KARYAWAN        ');
Writeln ('+++++++++++++++++++++++++++++');
Writeln;
Write   ('NIK                 =');Readln(NIK);
Write   ('NAMA KARYAWAN       =');Readln(NAMA);
Write   ('GOLONGAN [I/II/III] =');Readln(Golongan);
Write   ('GAJI POKOK          =Rp.');Readln(Gaji);
IF (Golongan ='I') Then
   Pajak :=0
Else IF (Golongan ='II') Then
   Pajak :=0.1 * Gaji
ELse IF (Golongan ='III') Then
   Pajak :=0.2 * Gaji
Else Writeln('Golongan Yang Dimasukan Tidak Ditemukan');
Writeln;
Write   ('PAJAK               =Rp.',Pajak:9:0);
Readln;
end.

- Kedua : Selanjutnya dapat kita pahami fungsi IF barada pada saat kita memilih salah satu golongan yang telah ditentukan dalam program.

Demikianlah tutorial yang sederhana ini semoga bermanfaat bagi kita semua terimaksih atas kunjungan saudara. Wasalammm!!!

Tag : Pemrograman Pascal