Wednesday, July 3, 2013

Program Kasus3;
Uses wincrt;
Var Nama:string;
    Status,Ja:integer;
    T,ti,Ta,gapok,gaber:real;
Begin
 Clrscr;
 write('Masukan Nama Pegawai : ');readln(Nama);
 write('Masukan Gaji Pokok   : ');readln(Gapok);
 write('Masukan Status       : ');readln(Status);
 if status=1 then
  begin
   write('Masukan Jumlah Anak : ');readln(Ja);
   ti:=0.1*gapok;
   ta:=0.05*ja*gapok;
   t:=ti+ta;
  end
  else if status=2 then
        begin
         t:=0;
        end
        else if status=3 then
              begin
               write('Masukan Jumlah Anak : ');readln(ja);
               ti:=0;
               ta:=0.05*Ja*Gapok;
               T:=Ti+Ta;
              end;
 Gaber:=Gapok+T;
 Write('Nama : ',Nama,' Gaji Bersih Anda : ',Gaber:10:2);
 readln;
End.

0 comments:

Post a Comment