Program Karyawan (Pascal)-Ara

Program DataKaryawan;

Uses Wincrt;

Type Karyawan = record

ERN       : String[9];

Nama      : String[50];

Golongan  : Char;

Jamkerja  : Real;

End;

Var

Data                 : Karyawan;

Gapok               : Real;

Insentif,Gaber    : Real;

Ul                    : Char;

Begin

  Repeat

    Clrscr;

    Writeln('Entry Data Karyawan PT. Authoraa');

    Writeln('==========================');

    Writeln;

    Write('ERN          : ');Readln(Data.ERN);

    Write('Nama Karyawan         : ');Readln(Data.Nama);

    Write('Golongan     : ');Readln(Data.Golongan);

    Write('Jam Kerja    : ');Readln(Data.Jamkerja);

    Writeln;

    Writeln;

    Case Data.Golongan of

      '1'  : Gapok:=1800000;

      '2'  : Gapok:=2000000;

      '3'  : Gapok:=3000000;

      Else

        Gapok:=0;

    End;

    if Data.Jamkerja>200 then

      Insentif:=(Data.Jamkerja-200)*10000

    else

      Insentif:=0;

    Gaber:=Gapok+Insentif;

    Clrscr;

    Writeln('Laporan Gaji Karyawan');

    Writeln('PT. Unisem');

    Writeln;

    Writeln('============================================================================');

    Writeln('|ERN      | Nama Karyawan                   | Golongan | Jam Kerja | Gaji         |');

    Writeln('============================================================================');

    Writeln('|',Data.ERN:10,'|',Data.Nama:25,'|',Data.Golongan:10,'|',Data.Jamkerja:11:0,'|',Gaber:14:2,'|');

    Writeln('============================================================================');

    Writeln;

    Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);

  Until Upcase(Ul) <> 'Y';

End.