Berikut adalah cara membuat algoritma tentang cara penghitungan gaji pegawai :
Program Perincian_gaji;
Uses crt;
Var Nama,Jabatan:string[20];
Gaji_pokok:longint;
Tunjangan,Pajak,total:real;
begin
Clrscr;
Writeln('%%%%%%%%technologic-b.blogspot.com%%%%%%%');
Writeln('----------------------------------------------------------------------');
Writeln('********GAJI KARYAWAN PT.ALGORITMA********');
Writeln('-----------------------------------------------------------------------');
Writeln('%%%%%%%%%%%%%%%%%%%%%%%%%%%%');
Write('NAMA ANDA :');readln(Nama);
Write('JABATAN :');readln(Jabatan);
if(Jabatan='direktur')or(Jabatan='Direktur')then
begin
Gaji_pokok:=3000000;
Tunjangan:=0.1*Gaji_pokok;
end
else if(Jabatan='Manager')or(Jabatan='manager')then
begin
Gaji_pokok:=2000000;
Tunjangan:=0.05*Gaji_pokok;
end
else if(Jabatan='Karyawan')or(Jabatan='karyawan')then
begin
Gaji_pokok:=1000000;
Tunjangan:=0.02*Gaji_pokok;
end
else if(Jabatan='OB')or(Jabatan='officeboy')then
begin
Gaji_pokok:=800000;
Tunjangan:=0.01*Gaji_pokok;
end;
Writeln('------------------------------------------');
Writeln(' PERINCIAN GAJI ');
Writeln('------------------------------------------');
Writeln('');
Writeln('Gaji Pokok : Rp.',Gaji_pokok);
Writeln('------------------------------------------');
Writeln('');
Writeln('Tunjangan : Rp.',Tunjangan:9:2);
Pajak:=Gaji_pokok*0.1;
Writeln('Pajak : Rp.',Pajak:9:2);
Writeln('------------------------------------------');
Total:=(Gaji_pokok+tunjangan)-pajak;
Writeln('Total gaji : Rp.',Total:9:2);
Writeln('');
Writeln('------------------------------------------');
Writeln(' -Mari Belajar Algoritma- ');
Writeln('------------------------------------------');
Writeln(' Copyright@ ');
Writeln(' technologic-b.blogspot.com ');
Writeln('------------------------------------------');
Readln;
End.
[Read More...]
Program Perincian_gaji;
Uses crt;
Var Nama,Jabatan:string[20];
Gaji_pokok:longint;
Tunjangan,Pajak,total:real;
begin
Clrscr;
Writeln('%%%%%%%%technologic-b.blogspot.com%%%%%%%');
Writeln('----------------------------------------------------------------------');
Writeln('********GAJI KARYAWAN PT.ALGORITMA********');
Writeln('-----------------------------------------------------------------------');
Writeln('%%%%%%%%%%%%%%%%%%%%%%%%%%%%');
Write('NAMA ANDA :');readln(Nama);
Write('JABATAN :');readln(Jabatan);
if(Jabatan='direktur')or(Jabatan='Direktur')then
begin
Gaji_pokok:=3000000;
Tunjangan:=0.1*Gaji_pokok;
end
else if(Jabatan='Manager')or(Jabatan='manager')then
begin
Gaji_pokok:=2000000;
Tunjangan:=0.05*Gaji_pokok;
end
else if(Jabatan='Karyawan')or(Jabatan='karyawan')then
begin
Gaji_pokok:=1000000;
Tunjangan:=0.02*Gaji_pokok;
end
else if(Jabatan='OB')or(Jabatan='officeboy')then
begin
Gaji_pokok:=800000;
Tunjangan:=0.01*Gaji_pokok;
end;
Writeln('------------------------------------------');
Writeln(' PERINCIAN GAJI ');
Writeln('------------------------------------------');
Writeln('');
Writeln('Gaji Pokok : Rp.',Gaji_pokok);
Writeln('------------------------------------------');
Writeln('');
Writeln('Tunjangan : Rp.',Tunjangan:9:2);
Pajak:=Gaji_pokok*0.1;
Writeln('Pajak : Rp.',Pajak:9:2);
Writeln('------------------------------------------');
Total:=(Gaji_pokok+tunjangan)-pajak;
Writeln('Total gaji : Rp.',Total:9:2);
Writeln('');
Writeln('------------------------------------------');
Writeln(' -Mari Belajar Algoritma- ');
Writeln('------------------------------------------');
Writeln(' Copyright@ ');
Writeln(' technologic-b.blogspot.com ');
Writeln('------------------------------------------');
Readln;
End.