contoh Program Menghitung Gaji

hari ini kawan saya akan berbagi mengenai program menghitung gaji pegawai dengan program PASCAL
lihat lisensinya berikut
=========================================
program menghitung_gaji;
Uses crt;
 Var nama:string[20];jabatan:string;
 Gaji:longint;
 Tunj,ppn,gajibersih:real;
 Begin
 Clrscr;
 Write('Nama Karyawan : '); readln(nama);
 Write('Masukkan Jabatan : '); readln(jabatan);
 case jabatan of
 'Deirektur':Begin
writeln('
 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.1* gaji;
 End
 Else
 Begin
 Gaji:=800000;
 Tunj:=0.1* gaji;
 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.
===============================================




By Muhammad Rasyid