Program Data Pegawai

Apr 10, 2009 5 Comments by Sahabat

Seorang pemilik perusahaan meminta kepada programmer perusahaannya, untuk membuat program penggajian karyawan.
langkah2 penggunaan:

  1. input NIP
  2. input nama
  3. input golongan (golongan 1-3) guna menentukan gaji pokok
  4. input masa kerja

kurang lebih listing program seperti ini, mohon maaf klo ada yg salah ketik. Lampu diwarnet baru diperbaiki, gelap (huruf di keyboard ga keliatan)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Program DataPegawai;
Uses Wincrt;
Type Pegawai = record
NIP       : String[9];
Nama      : String[50];
Golongan  : Char;
Jamkerja  : Real;
End;
Var
Data                 : Pegawai;
Gapok               : Real;
Insentif,Gaber    : Real;
Ul                    : Char;
Begin
  Repeat
    Clrscr;
    Writeln('Entry Data Pegawai PT. Punya gua');
    Writeln('==========================');
    Writeln;
    Write('NIP          : ');Readln(Data.NIP);
    Write('Nama         : ');Readln(Data.Nama);
    Write('Golongan     : ');Readln(Data.Golongan);
    Write('Jam Kerja    : ');Readln(Data.Jamkerja);
    Writeln;
    Writeln;
    Case Data.Golongan of
      '1'  : Gapok:=1000000;
      '2'  : Gapok:=1500000;
      '3'  : Gapok:=2000000;
      Else
        Gapok:=0;
    End;
 
    if Data.Jamkerja>200 then
      Insentif:=(Data.Jamkerja-200)*10000
    else
      Insentif:=0;
    Gaber:=Gapok+Insentif;
    Clrscr;
    Writeln('Laporan Gaji Pegawai');
    Writeln('PT. XYZ');
    Writeln;
    Writeln('============================================================================');
    Writeln('|NIP       | Nama                    | Golongan | Jam Kerja | Gaji         |');
    Writeln('============================================================================');
    Writeln('|',Data.NIP: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.

Devy Cahya Mulyono
[email protected]

Kata Kunci

program pascal gaji karyawan, program gaji karyawan pascal, program data pegawai, rumus array dan record algoritma absensi pegawai, struktur program data pegawai, contoh pascal data pegawai, contoh algoritma menggunakan if dan input banyak siswa dan hasil ulangan masing-masing siswa dan output memuaskan atau tidak memuaskan, flowchart data pegawai, cara membuat program data karyawan dengan turbo pascal, program gaji pegawai record tpw.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

5 Responses to “Program Data Pegawai”

  1. atlan says:

    tolong dong, cariin contoh soal soal buat olimpiade beserta penyelesaiannya…..
    terimakasih…

  2. andi says:

    punya sintak2 sama pnjelasannya gk?klo ada minta y?mksih

  3. havidz says:

    Koq gk bsa di compile y maz??

  4. deny syahputra says:

    mas mau tanyak gimna ya buat data karyawan sama tabelnya…???

Leave a Reply