Seputar laptop - Source Code Data Pegawai dalam Pascal

Source Code Data Pegawai dalam Pascal - Program berikut berfokus pada penghitungan honor karyawan menurut pendidikan terakhir dan usang bekerja.

Berikut ini source code data pegawai memakai compiler dev-pascal :

uses crt; type pkj=record    nama: string[25];    lama_kerja: integer;    pendidikan: string[3];    golongan: char;    jabatan: string[20];    gaji_pokok: real;    tunjangan: real;    total_gaji: real; end; var    p: pkj;    lagi: char; begin clrscr;    lagi:='y';    while upcase(lagi)='Y' do    begin    clrscr;       gotoxy(30,2); write('INPUT DATA PEKERJA');       gotoxy(3,3) ; write('____________________________________________________________________________');       gotoxy(3,5) ; write('Nama                   : '); readln(p.nama);       gotoxy(3,7) ; write('Lama Kerja (Tahun)     : '); readln(p.lama_kerja);       gotoxy(3,9) ; write('Pendidikan (sma,d3,s1) : '); readln(p.pendidikan);          if p.lama_kerja <= 5 then             begin             if p.pendidikan='sma' then                begin                   p.golongan:='1';                   p.jabatan:='Office Boys';                end             else             if p.pendidikan='d3' then                begin                   p.golongan:='2';                   p.jabatan:='Staff Administrasi';                end             else             if p.pendidikan='s1' then                begin                   p.golongan:='3';                   p.jabatan:='Kasi';                end             end             else           if p.lama_kerja <= 10 then             begin             if p.pendidikan='sma' then                begin                   p.golongan:='2';                   p.jabatan:='Staff Administrasi';                end             else             if p.pendidikan='d3' then                begin                   p.golongan:='3';                   p.jabatan:='Kasi';                end             else             if p.pendidikan='s1' then                begin                   p.golongan:='4';                   p.jabatan:='Kabag';                end             end             else             if p.lama_kerja > 10 then             begin             if p.pendidikan='sma' then                begin                   p.golongan:='3';                   p.jabatan:='Kasi';                end             else             if p.pendidikan='d3' then                begin                   p.golongan:='4';                   p.jabatan:='Kabag';                end             else             if p.pendidikan='s1' then                begin                   p.golongan:='5';                   p.jabatan:='Manager';                end             end;       gotoxy(3,11); write('Golongan    : ',p.golongan);       gotoxy(3,13); write('Jabatan     : ',p.jabatan);             if p.golongan='1' then                begin                   p.gaji_pokok:=700000;                   p.tunjangan:=20*p.gaji_pokok/100;                end                else             if p.golongan='2' then                begin                   p.gaji_pokok:=900000;                   p.tunjangan:=18*p.gaji_pokok/100;                end                else             if p.golongan='3' then                begin                   p.gaji_pokok:=1200000;                   p.tunjangan:=17*p.gaji_pokok/100;                end                else             if p.golongan='4' then                begin                   p.gaji_pokok:=1700000;                   p.tunjangan:=15*p.gaji_pokok/100;                end                else             if p.golongan='5' then                begin                   p.gaji_pokok:=2200000;                   p.tunjangan:=12*p.gaji_pokok/100;                end;       gotoxy(3,15); write('Gaji Pokok  : ',p.gaji_pokok:8:0);       gotoxy(3,17); write('Tunjangan   : ',p.tunjangan:8:0);       p.total_gaji:=p.gaji_pokok+p.tunjangan;       gotoxy(3,19); write('Total Gaji  : ',p.total_gaji:8:0);       gotoxy(3,23); write('MASUKAN DATA LAGI ? '); readln(lagi); end; end. 

Sekian artikel wacana Source Code Data Pegawai dalam Pascal, biar bermanfaat.

Sumber http://www.materi-it.com/