Program mencari gaji dengan menggunakan Procedure

Program Mencari_gaji;

Uses crt;

Type

  Pegawai = Record

    NIP  : string[8];

    Nama : string[20];

    GOL  : string[3];

  end;

Var

  rPeg      : Array[1..20] of Pegawai;

  i,j       : byte;

  Gaji,TGaji: longint;

  lg          : char;

Procedure InputPegawai;

  Procedure FormPegawai;

  begin

    clrscr;

    Gotoxy(20,2); write('INPUT DATA GAJI PEGAWAI');

    Gotoxy(10,3); write('___________________________________');

    Gotoxy(10,4); write('NIP           :');

    Gotoxy(10,5); write('Nama          :');

    Gotoxy(10,6); write('GOL [I,II,II] :');

    Gotoxy(10,7); write('___________________________________');

    Gotoxy(10,8); write('Isikan Data Lagi[Y/T] :');

  end;

  begin

    Repeat

      FormPegawai;

      With Rpeg[i] do

      begin

         Gotoxy(27,4); readln(NIP);

         Gotoxy(27,5); readln(Nama);

         Gotoxy(27,6); readln(GOL);

         Gotoxy(33,8); readln(lg);

      end;

      inc(i);

      Until upcase(lg)='T';

  end;

  Procedure TabelPegawai;

  begin

    clrscr;

    Gotoxy(3,3); write('LAPORAN DATA GAJI PEGAWAI');

    Gotoxy(3,4); write('_____________________________________________________');

    Gotoxy(3,5); write('   No  NIP      NAMA               GOL   GAJI RP.');

    Gotoxy(3,6); write('_____________________________________________________');

  end;

  Procedure HitGaji(cGol : string; Var nGaji :longint);

  begin

    if cGol ='I' then nGaji:=750000

    else if cGol ='II' then nGaji:=1000000

    else if cGol ='III' then nGaji:=1500000

    else nGAji:=0;

  end;

  begin

    i:=1;

    InputPegawai;

    TabelPegawai;

    for j:=1 to I-1 do

    begin

      With RPeg[j] do

      begin

      HitGAji(Gol,Gaji);

      Gotoxy(5,6+j); write(j:2,'  ',NIP:8,'  ',NAMA);

      Gotoxy(38,6+j); write(Gol);

      Gotoxy(43,6+j); write(Gaji:8);

      TGaji := TGaji+Gaji;

    end;

  end;

  Gotoxy(3,7+j); write('_____________________________________________________');

  Gotoxy(3,8+j); write('TOTAL GAJI                      RP.',tgaji:10);

  Repeat until keypressed;

End.

Setelah kita buat Programnya, maka tekan tombol F9 untuk mengetahui sukses ngak nya program tersebut. setelah sukses tekan tombol Ctrl+F9 untuk menjalankannya…