Penggunaan Case dan If

Pendahuluan

Pascal merupan salah satu program yang terkemuka karena struktur penulisannya yang mengalir seperti algoritma, saat ini kita akan mempelajari perbedaan antara case dan if pada pascal 1.5 (TPW 1.5). sebelum itu perhatikan keterangan berikut ini struktur dasarnya

Program namaprogram;            à judul program

Var jenis : variable;      à jenis variabel

            Begin ;                         à memulai program

            Clrscr                           à membersihkan layar (boleh digunakan dan tidak)

            Isi                                à isi program

            End.                             à akhir program

Isi

CASE

program case1;

uses wincrt;

var nip,nama : string;

    pendapatan,pajak : real;

    gol : char;

begin

clrscr;

writeln('--------- DAFTAR PAJAK ----------');

writeln('_________________________________');

write  ('NIP               : ');readln(nip);

write  ('Nama Karyawan     : ');readln(nama);

write  ('Golongan [A,B,C]  : ');readln(gol);

write  ('Pendapatan        : ');readln(pendapatan);

       case upcase(gol) of

       'A' : begin

             writeln('Golongan ini bebas pajak');

             pajak := 0;

             end;

       'B' : pajak := 0.1 * pendapatan;

       'C' : pajak := 0.2 * pendapatan;

       else write('Salah melakukan Penginputan data ');

       end;

       writeln('Pajak : Rp. ',pajak:9:2);

end.

            Tampilan saat case Di running

Sedangkan untuk program IF

program if1;

uses wincrt;

var nip,nama : string;

    pendapatan,pajak : real;

    gol : char;

begin

clrscr;

writeln('--------- DAFTAR PAJAK ----------');

writeln('_________________________________');

write  ('NIP               : ');readln(nip);

write  ('Nama Karyawan     : ');readln(nama);

write  ('Golongan [A,B,C]  : ');readln(gol);

write  ('Pendapatan        : ');readln(pendapatan);

       if (gol = 'A' )or (gol = 'a') then

             pajak := 0

       else if (gol = 'B') or (gol = 'b') then

            pajak := 0.1 * pendapatan

       else if (gol = 'C') or (gol = 'c') then

            pajak := 0.2 * pendapatan

       else write('Salah melakukan Penginputan data ');

       writeln('Pajak : Rp. ',pajak:9:2);

end

Penutup

Semoga dengan ini kita dapat terus menambah wawasan kita dan bekal kita. Belajar –belajar dan belajarlah, “Jika kita dapat bermanfaat bagi orang lain maka kita sangat bermanfaat bagi diri kita”

           

            Keterangan

            Write                            à menapilkan tulisan

            Writeln                         à menapilkan tulisan pada garis baru

            Read                            à menginput data

            Readln                                     à manginput data pada garis baru

            Var                              à variable