uses wincrt;
var
k:string;
gol,pil,nip:integer;
Gaji_Pegawai,Lama_Pinjaman:real;
Bunga,Total_Bunga,Jumlah_Terima,Angsuran:real;
Jumlah_Pinjaman,Jumlah_Biaya:real;
begin
write(‘NIP :’);readln;
write(‘Nama Pegawai :’);readln(k);
write(‘Golongan (1/2,3) :’);readln(gol);
write(‘Gaji Pegawai :’);readln(Gaji_Pegawai);
write(‘Lama Pinjaman :’);readln(Lama_Pinjaman);
case gol of
1:begin
writeln(‘Nama Karyawan =’,k);
writeln(‘Gaji Karyawan =Rp’,Gaji_Pegawai:10:2);
Jumlah_Pinjaman:=7500000;
writeln(‘Jumlah Pinjaman (Golongan I) =Rp ‘,Jumlah_Pinjaman:10:2);
Jumlah_Biaya:=150000;
writeln(‘Jumlah Biaya =Rp ‘,Jumlah_Biaya:10:2);
writeln(‘ ———–’);
Jumlah_Terima:=Jumlah_Pinjaman-Jumlah_Biaya;
writeln(‘Jumlah Terima =Rp ‘,Jumlah_Terima:10:2);
Bunga:=8/100;
Total_Bunga:=Jumlah_Pinjaman*8/100*Lama_Pinjaman;
Angsuran:=(Jumlah_Pinjaman+Total_Bunga)/(Lama_Pinjaman*12);
writeln(‘Jumlah Angsuran =Rp ‘,Angsuran:10:2);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
end;
2:begin
writeln(‘Nama Karyawan =’,k);
writeln(‘Gaji Karyawan =Rp’,Gaji_Pegawai:10:2);
Jumlah_Pinjaman:=10000000;
writeln(‘Jumlah Pinjaman (Golongan II) =Rp ‘,Jumlah_Pinjaman:10:2);
Jumlah_Biaya:=250000;
writeln(‘Jumlah Biaya =Rp ‘,Jumlah_Biaya:10:2);
writeln(‘ ———–’);
Jumlah_Terima:=Jumlah_Pinjaman-Jumlah_Biaya;
writeln(‘Jumlah Terima =Rp ‘,Jumlah_Terima:10:2);
Bunga:=10/100;
Total_Bunga:=Jumlah_Pinjaman*10/100*Lama_Pinjaman;
Angsuran:=(Jumlah_Pinjaman+Total_Bunga)/(Lama_Pinjaman*12);
writeln(‘Jumlah Angsuran =Rp ‘,Angsuran:10:2);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
end;
3:begin
writeln(‘Nama Karyawan =’,k);
writeln(‘Gaji Karyawan =Rp’,Gaji_Pegawai:10:2);
Jumlah_Pinjaman:=12500000;
writeln(‘Jumlah Pinjaman (Golongan III)=Rp ‘,Jumlah_Pinjaman:10:2);
Jumlah_Biaya:=300000;
writeln(‘Jumlah Biaya =Rp ‘,Jumlah_Biaya:10:2);
writeln(‘ ———–’);
Jumlah_Terima:=Jumlah_Pinjaman-Jumlah_Biaya;
writeln(‘Jumlah Terima =Rp ‘,Jumlah_Terima:10:2);
Bunga:=12/100;
Total_Bunga:=Jumlah_Pinjaman*12/100*Lama_Pinjaman;
Angsuran:=(Jumlah_Pinjaman+Total_Bunga)/(Lama_Pinjaman*12);
writeln(‘Jumlah Angsuran =Rp ‘,Angsuran:10:2);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
end;
end;
end.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
