Tugas Algo.docxedit

TUGAS ALGO DAN PEMROGRAMAN I

A M I K

OLEH : ANGGIA TRESYA NANDA Mi-2B

Dosen Pembimbing : Nasrullah, S.Kom.

AKADEMI MANAJEMEN INFORMATIKA KOMPUTER (AMIK) BOEKITTINGGI 2009 uses wincrt;

var np, gol ,st :string; gp, tis, ja, ta, gb :real; begin write ('nama pegawai:') ; readln(np); write ('golongan:') ; readln(gol); if gol='I' then gp:=1000000 else if gol='II' then gp:=1500000 else if gol='III' then gp:=2000000 else if gol='IV' then gp:=3000000; writeln ('gaji pokok:',gp:6:0); write ('status:');readln(st); if (gol='I') and (st='menikah') then tis:=0.05*gp else if (gol='II') and (st='menikah') then tis:=0.07*gp else if (gol='III') and (st='menikah') then tis:=0.09*gp else if (gol='IV') and (st='menikah') then tis:=0.1*gp; writeln ('tunjangan istri:',tis:6:0); write ('jumlah anak:');readln(ja); if gol='I' then begin if ja<3 then ta:= 0.02*gp*ja else if ja>=3 then ta:= 0.02*gp*3 end else if gol='II' then begin if ja<3 then ta:= 0.03*gp*ja else if ja>=3 then ta:= 0.03*gp*3 end else if gol='III' then begin if ja<3 then ta:= 0.04*gp*ja else if ja>=3 then ta:= 0.04*gp*3 end else if gol='IV' then begin if ja<3 then ta:= 0.05*gp*ja else if ja>=3 then ta:= 0.05*gp*3 end; writeln('tunjangan anak:',ta:6:0); gb:= gp+tis+ta; writeln('gaji bersih:',gb:6:0);

end.