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]

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:
    24 August 2011 at 20:07

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

  2. andi says:
    9 November 2012 at 16:10

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

  3. havidz says:
    17 April 2013 at 15:20

    Koq gk bsa di compile y maz??

  4. deny syahputra says:
    27 September 2013 at 15:33

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

Leave a Reply

You must be logged in to post a comment.