pengguna if dan case

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

           

            Keterangan

            Write                            à menapilkan tulisan

            Writeln                         à menapilkan tulisan pada garis baru

            Read                            à menginput data

            Readln                                     à manginput data pada garis baru

            Var                              à variable

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.

Posted in: Pemrograman