Pengertian dan Contoh Pascal

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Nah, dibawah ini adalah contoh menghitung gaji, tunjangan pegawai sesuai dengan jabatannya menggunakan bahasa pascal..

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih,total:real; Begin
Clrscr;
Write('Nama Karyawan : '); readln(nama);
Write('Masukkan Jabatan : '); readln(jabatan);
If (jabatan='Direktur') or (jabatan='direktur')
then Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan='Manager') or
(jabatan='manager') then Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan='Karyawan') or
(jabatan='karyawan') then Begin
Gaji:=1000000;
Tunj:=0.02* gaji;
End
Else
Begin Gaji:=800000;
Tunj:=0.01* gaji;
writeln('Jabatan Anda adalah OB')
End;
Writeln('Gaji Bersih : Rp.',gaji);
Writeln('Tunjangan Jabatan : Rp.',tunj:9:2); Ppn:=0.1*gaji;
Writeln('PPN 10 % : Rp.',ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln('Total Gaji : Rp.',total:9:2);
Readln;
End.

trimakasih, semoga bermanfaat :)