bahasa pascal adalah salah satu bahasa pemrograman yang cukup terkenal, dimana merupakan salah satu baha tingkat tinggi, disini saya akan memberikan sebuah contoh struktur dari bahasa pascal
Contoh Penghitungan Gaji
Ketentuan Soal :
1. Input Nama Karyawan
2. Input Jabatan
Direktur : Gaji 3000000, Tunjangan 20 % dari gaji
Manager : Gaji 2000000 , Tunjangan 15% dari gaji
Karyawan : Gaji 1000000 , Tunjangan 10% dari gaji
OB : Gaji 800000 , Tunjangan 5% dari gaji
3. PPN 10 % dari gaji
4. Gaji Bersih : gaji + tunjangan – PPN
Penyelesaian :
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);
If (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Gaji:=3000000;
Tunj:=0.2* gaji;
End
Else If (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Gaji:=2000000;
Tunj:=0.15* gaji;
End
Else If (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.05* 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.
semoga bermanfaat.,.,.,.,