nah kalo yang kemarin udah download yang program pascal dari halaman
Download Pascal, nah ini ada contoh untuk program pascal nya. sederhana sih dan ini ini juga bukan aku yang buat sendiri. hasil ngopy dari blog tetangga, namun masih ada kesalahan tadinya jadi gak bisa di RUN atau di compile.
owh iya, yang mau nyoba ini, ini aku bikinnya make TPW 1.5, jadi kalo kamu make yang lain tinggal sesuaikan aja ya.
Program contoh_perhitungan_gaji;
Uses wincrt;
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.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);
gajibersih:= gaji-ppn;
Writeln('Total Gaji : Rp.',gajibersih:9:2);
Readln;
End.
kalo udah tinggal di RUN aja dan hasilnya akan seperti ini :
ok sampai disini dulu dan silahkan di modifikasi sendiri.. :D