PROGRAM PASCAL GAJI KARYAWAN

PROGRAM PASCAL GAJI KARYAWAN

{JAMIAH}
USES WINCRT;
VAR
NAMAPEGAWAI :ARRAY[1..100] OF STRING[25];
GOLONGAN    :ARRAY[1..100] OF STRING[1];
GAJIPOKOK   :ARRAY[1..100] OF REAL;
TUNJAGAN    :ARRAY[1..100] OF REAL;
PAJAK       :ARRAY[1..100] OF REAL;
GAJIBERSIH  :ARRAY[1..100] OF REAL;
BULAN       :STRING;
I,JD           :INTEGER;

BEGIN
WRITE('BULAN :  ');READLN(BULAN);
WRITELN('BANYAK DATA YANG DIBUTUHKAN:  ');READLN(JD);
FOR I := 1 TO JD DO
       BEGIN
            WRITELN('DATA KE:',I);
            WRITELN('INPUTKAN NAMA KARYAWAN:  ');READLN(NAMAPEGAWAI[I]);
            WRITELN('INPUTKAN GOLONGAN     :'  );READLN(GOLONGAN[I]);
            WRITELN('================================================');
       if GOLONGAN[I]= 'A' then
          begin
            GAJIPOKOK[I] := 1000000;
            PAJAK[I]     :=0.1 * GAJIPOKOK[I];
            GAJIBERSIH[I]:=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
          end
        else if GOLONGAN[I]= 'B' then
          begin
           GAJIPOKOK[I] := 1500000;
           PAJAK[I]     :=0.15 * GAJIPOKOK[I];
           GAJIBERSIH[I]:=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
        end
        else
          begin
          GAJIPOKOK[I]  := 2000000;
          PAJAK[I]      :=0.2 * GAJIPOKOK[I];
          GAJIBERSIH[I] :=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
          end;
         END;

         WRITELN('                LAPORAN DATA GAJI MAHASISWA                            ');
         WRITELN('================================================================================');
         WRITELN('NO    NAMA      GOLONGAN    GAJI POKOK   TUNJAGAN   PAJAK   GAJI BERSIH');
         WRITELN('=======================================================================');
                 FOR I := 1 TO I DO
                 BEGIN
                 WRITELN(I:3,NAMAPEGAWAI[I]:10,GOLONGAN[I]:2,GAJIPOKOK[I]:10,TUNJAGAN[I]:12:0,PAJAK[I]:12:0,GAJIBERSIH[I]:12:0)
                 END;
       WRITELN('=========================================================================');

  END.

Source: http://jamilahsalwalala.blogspot.com/2012/04/program-pascal-gaji-karyawan.html

Posted in: Program Pascal