Penggunaan If dan Case pada Pascal

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.


label : accessories external. | Free Wallpapers | Property | Anti Vir | Free Games | car body design | Free Theme

0 comments to "Penggunaan If dan Case pada Pascal"

:: Kalender Hijriah::

::LiNkQ::

asriyani.blogspot.com

Tukeran Link Yuk...!
Silahkan copy kode di atas...!
Saya akan segera link balik...!

::Online::

.:: Guest::.


ShoutMix chat widget

.:Bahan UAS Kelas XI :.

.:Bahan UAS Kelas XI :.


.:Jadwal Sholat:.

::GallerY::

::About Me::

Me............
Seorang Muslimah yang berusaha menjadi lebih baik dari hari kemarin.....Insya 'allah..
Keep Finght..!!
Keep Smille ^_^
selamat Melihat-lihat Tulisan yang Bermanfaat......^_^
Web hosting for webmasters