Program Pascal Gaji

program Gaji;
uses crt;
var
    paj,gb,gk,jumA,tunjK : real;
    stat,anak : char;
    gol :longint;
const gol1 =1000000;
      gol2 =2000000;
      gol3 =3000000;
label a, b;

begin
     clrscr;
     A:
     write('Untuk memulai perhitungan gaji anda silahkan tekan ENTER');
     readln;
     write('Golongan ke-berapa Anda? ( 1 / 2 / 3 ) ');
     readln(gol);
     case (gol) of
     1: gol := gol1;
     2: gol := gol2;
     3: gol := gol3;
     else goto A;
     end;
     writeln;
     writeln('Masukkan (y) untuk YES dan (n) untuk NO');
     write('Untuk memulai pertanyaan perhitungan tunjangan anda silahkan tekan ENTER');
     readln;
     write('1. Sudah Berkeluargakah Anda?(y/n) ');
     readln(stat);
     case (stat) of
     'y':begin
              tunjK :=200000;
              B:
              writeln;
              write('2. Anda Punya Anak?(y/n) ');
              readln(anak);
     case (anak) of
     'y': begin
               writeln;
               write('3. Berapakah Anak Anda?');
               readln(jumA);
               if jumA>=3 then jumA :=3 else jumA := jumA;
               end;
               'n': jumA :=0
               else
               begin
               writeln('Masukkan (y) untuk YES dan (n) untuk NO');
               goto B;
               end;
               end;

               end;
     'n': begin
               writeln;
               end;
     else
     end;
     writeln;
     writeln('========================================');
     writeln('****************************************');
     writeln('========================================');
     gk := gol + (tunjK+(jumA*100000));
     paj:= 0.02 * gk;
     gb := gk - paj;
     writeln;
     writeln('Gaji Kotor        =Rp',gk:10:0);
     writeln('Terkena Pajak     =Rp',paj:10:0);
     writeln('Gaji Total Anda   =Rp',gb:10:0);
     write;
     readln;
     write('Gaji anda bisa di ambil dibagian bendahara');
     readln;
readln;
end.

Artikel Terkait