h1

Program Gaji Sederhana dengan Pascal

October 26, 2011

Awal-awal kuliah di jurusan TI pasti ketemu nich sama model pemrograman struktural satu ini ……

ok langsung saja, kemaren dapet tugas buat pascal penggajian sederhana dengan bonus dan jabatan… ni scriptnya….. monggo.

program perhitungan_gaji_JamKid104;
uses crt;
label
step1;
label
step2;
var
nama,posisi: array[1..10] of string;
jamkerja,gapok,bonus,gaji: array[1..10] of longint;
kode,i,cek : integer;
jawab,kode1,jamkerja1 : string;
begin
for i:=1 to 10 do
begin
clrscr;
    Writeln('Entry Data Pegawai PT. JamKid104');
    Writeln('================================');
    Writeln;
    Write('Nama         : ');Readln(nama[i]);
    Writeln('----------------------------------------------------------------------------');
    Writeln('|No Kode | Jabatan     |');
    Writeln('____________________________________________________________________________');
    Writeln('|1       |Kepala Bagian|');
    Writeln('|2       |Mandor       |');
    Writeln('|3       |Operator     |');
    Writeln('____________________________________________________________________________');
    Writeln;
    step1:
    Write('No. Kode Jabatan     : ');Readln(kode1);
    val (kode1,kode,cek);
    if cek=1 then GoTo step1;
    if kode=0 then GoTo step1;
    if kode>3 then GoTo step1;
    step2:
    Write('Jam Kerja    : ');Readln(jamkerja1);
    val(jamkerja1,jamkerja[i],cek);
    if cek=1 then GoTo step2;
    if jamkerja[i]=0 then GoTo step2;
    Writeln;
    Writeln;

   Case kode of
      1  : Posisi[i]:=('Kepala Bagian');
      2  : Posisi[i]:=('Mandor');
      3  : Posisi[i]:=('Operator');
      else
       Posisi[i]:=('tidak terdaftar');
       end ;

       if jamkerja[i] >45 Then
    Case kode of
      1  : Gapok[i]:=3000*45;
      2  : Gapok[i]:=2000*45;
      3  : Gapok[i]:=1000*45;
      else
      end
      Else
      Case kode of
      1  : Gapok[i]:=3000*jamkerja[i];
      2  : Gapok[i]:=2000*jamkerja[i];
      3  : Gapok[i]:=1000*jamkerja[i];
      End;

      if jamkerja[i]>45 Then
    Case kode of
      1  : bonus[i]:=((2*3000)*(jamkerja[i] - 45));
      2  : bonus[i]:=((2*2000)*(jamkerja[i] - 45));
      3  : bonus[i]:=((2*1000)*(jamkerja[i] - 45));
      else
        bonus[i]:=0;

        end;

    gaji[i]:=gapok[i]+bonus[i];

   write ('Apakah ingin mengentri lagi Y/N ?'); readln (jawab);
   if jawab= 'n' then
   begin
   break;
   end
   else
   end ;
   begin
   clrscr;
   Writeln('Laporan Gaji Pegawai');
    Writeln('PT. JamKid104');
    Writeln;
    Writeln('============================================================================');
    Writeln('          Nama           |    Jabatan    | Jam Kerja |         Gaji         |');
    Writeln('============================================================================');

   for i:=1 to i do
   begin
   Writeln(nama[i]:25,'|',posisi[i]:15,'|',jamkerja[i]:11,'| Rp.',gaji[i]:18,'|');



   end;
   Writeln('============================================================================');
   writeln ('selesai');
   readln;
   end;
   end.

Script ini aku jalankan menggunakan Free Pascal, karena saat aku coba dengan turbo pascal for windows  ada beberapa sintaks yang ga mau jalan, tapi pas aku coba di free pascal mau jalan. Sampai saat ini aku juga belum tahu kenapa bisa begitu.

ini adalah tampilan saat kita menjalankan script diatas.

gambar diatas menunjukkan validasi data yang dilakukan, apabila kode jabatan dimasuki selain angka maka akan diulang kembali.

ini adalah hasil dari apa yang kita entri tadi…..

sekian mungkin bisa membantu……

assalamualaikum

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

  • islamic calender

  • Recent Posts

  • Tulisan Teratas

  • arsip

  • Meta

  • install libreoffice komputer libreoffice office backtrack 5 pengetahuan uncatagorized uneg-uneg
  • RSS chip home

  • %d bloggers like this: