Halo pemirsa! DanKus masih akan membagikan program pascal. Kali ini kita akan membahas program penggajian pegawai dengan pascal. Program ini adalah versi 3 karena sebelumnya DanKus sudah post tentang program penggajian pegawai dengan pascal ini dengan 2 versi berbeda, nanti bisa cek link di bawah.
Sebelum ke script, DanKus akan bahas dulu tentang program terlebih dahulu. Jadi program ini akan sedikit berbeda dari program penggajian pegawai sebelumnya. DanKus sertakan tampilan menu terlebih dahulu di awal, jadi nantinya bisa dikembangkan lagi untuk digabung dengan program lain sehingga tinggal pilih di menu utama tersebut.
Program penggajian pegawai ini akan meminta user untuk menginputkan NIK, Nama Pegawai, Golongan, Jabatan, Masa Jabatan. Untuk isian pada Golongan adalah memasukan angka 1, 2, atau 3. Masing-masing angka mewakili Golongan 1 dengan gaji pokok Rp1.500.000,- , Golongan 2 dengan gaji pokok Rp2.500.000,- , dan Golongan 3 dengan gaji pokok Rp3.000.000,-.
Isian pada Jabatan bisa diisi bebas, misalnya Direktur, Supervisor, Manager, dll. Pada isian Masa Jabatan adalah lama pegawai tersebut bekerja dalam satuan tahun. Setiap pekerja yang telah bekerja lebih dari sama dengan 2 tahun akan mendapatkan tunjangan sebesar Rp250.000,-. Selebihnya program akan menghitung secara otomatis untuk Pajar sebesar 10% dan Gaji Bersih.
Oke sekarang kita masuk ke script program penggajian pegawai dengan pascal di bawah :

wincrt;
var
   nip,nm_pgawai,gol,jbtan:array[1..20]of string;
   gapok,tunj,pajak,gaji_brsh:array[1..20]of real;
   masjab:array[1..20]of integer;
   x,y,pilih:integer;
   ulang:char;



procedure input;
begin
     x:=0;
     repeat
     x:=x+1;
     clrscr;
     writeln('==================================================');
     writeln('         Form Input Data Penggajian Pegawai       ');
     writeln('             Dani Kustiawan Corporation           ');
     writeln('==================================================');
     writeln;
     write  ('NIK               : '); readln(nip[x]);
     write  ('Nama Pegawai      : '); readln(nm_pgawai[x]);
     write  ('Golongan          : '); readln(gol[x]);

     if gol[x] = '1' then gapok[x]:=1500000
     else
     if gol[x] = '2' then gapok[x]:=2500000
     else
     if gol[x] = '3' then gapok[x]:=3000000;

     write  ('Jabatan           : '); readln(jbtan[x]);
     writeln('Gaji Pokok        : ',gapok[x]:0:0);
     write  ('Masa Jabatan      : '); readln(masjab[x]);

     if masjab[x] < 2 then tunj[x]:=0
     else
     tunj[x]:=250000;

     writeln('Tunjangan         : ',tunj[x]:0:0);

     pajak[x]:=(gapok[x]+tunj[x])*0.1;

     writeln('Pajak Penghasilan : ',pajak[x]:0:0);

     gaji_brsh[x]:=gapok[x]+tunj[x]-pajak[x];

     writeln('Gaji Bersih       : ',gaji_brsh[x]:0:0);
     writeln;
     write('Ada Data Lagi [Y/T]  ? '); readln(ulang);

     until  upcase (ulang) <> 'Y';

    

end;

procedure output;
begin
     clrscr;
     writeln('=================================================');
     writeln('             Laporan Gaji Pegawai                ');
     writeln('          Dani Kustiawan Corporation             ');
     writeln('=================================================');
     writeln;
     for y:=1 to x do
     begin
     gotoxy(1,6); write('NIP');
     gotoxy(7,6); write('Nama');
     gotoxy(15,6); write('Golongan');
     gotoxy(24,6); write('Jabatan');
     gotoxy(32,6); write('Gaji Bersih');
     writeln;
     writeln('=================================================');
     writeln;
     gotoxy(1,7+y); write(nip[y]);
     gotoxy(7,7+y); write(nm_pgawai[y]);
     gotoxy(15,7+y); write(gol[y]);
     gotoxy(24,7+y); write(jbtan[y]);
     gotoxy(32,7+y); write(gaji_brsh[y]:0:0);
     writeln;
     end;
     writeln('=================================================');
     write('Tekan Sembarang Tombol Untuk Kembali'); readkey;


end;

procedure menu;
begin
     clrscr;
     writeln('=====================================');
     writeln('             MAIN MENU               ');
     writeln('=====================================');
     writeln;
     writeln(' 1. Input Data');
     writeln(' 2. Keluar');
     writeln;
     write  ('Pilih Menu         : '); readln(pilih);
     case pilih of
     1:begin
            input;
            output;
            menu;
       end;
     2:donewincrt;

     end;
end;

   
begin
     menu    
    
end.

Script-nya cukup panjang karena ada tambahan menu dan juga tampilan untuk laporan data gaji pegawai.

 



Lihat juga :
Program Penggajian Pegawai Dengan Pascal (Versi 1)
Program Penggajian Pegawai Dengan Pascal (Versi 2)

Yang males ngetik bisa download di sini.

「Dani Kustiawan」

Halo pemirsa! Kali ini DanKus akan membagikan satu program pascal. Program ini berfungsi untuk menentukan bilangan yang diinput pada program adalah bilangan genap atau ganjil. Jadi nanti user akan diminta untuk memasukan sebuah nilai, lalu program secara otomatis akan memberi tahu user apakah bilangan tersebut termasuk bilangan ganjil atau bilangan genap.
Berikut adalah script program pencari bilangan ganjil atau genap dengan pascal :

Program Bilangan_Genap_Ganjil;
uses wincrt;
var
   bilangan:integer;
begin
     write('Masukan Bilangan    : '); readln(bilangan);
     Writeln(' ');
     if bilangan mod 2=0 then write(bilangan,' adalah Bilangan Genap')
     else write(bilangan,' adalah Bukan Bilangan Genap');
end.

Script-nya pendek ya karena programnya juga sederhana.
Oke sekian dulu untuk kali ini, semoga berguna.

Yang males ngetik bisa download file di sini.

「Dani Kustiawan」

Halo pemirsa! Kali ini DanKus akan membagikan sebuah program pascal untuk mencari nilai akhir. Program ini akan meminta user untuk memasukan nilai dari kehadiran, nilai tugas, nilai UTS, dan nilai UAS.

Setelah menghitung nilai akhir dari keempat nilai di atas, program ini juga bisa menentukan grade dari nilai yang telah didapatkan.

Langsung saja, berikut script untuk program penghitung nilai akhir dengan pascal :

program menentukan_kelulusan;
uses wincrt;
var
nilai:real;
nm:string;
ab,tgs,uts,uas:integer;
n:integer;
begin
write('masukan nama:');read(nm);
write('masukan nilai absensi:');read(ab);
write('masukan nilai tugas:');read(tgs);
write('masukan nilai uts:');read (uts);
write('masukan nilai uas:');read (uas);
writeln;
nilai:=(ab*20/100)+(tgs*15/100)+(uts*25/100)+(uas*40/100);
Write('hasil nilainya adalah=',round(nilai));
writeln;
writeln;

begin
n:=round(nilai);
if (nilai>=85) then
writeln('grade A:')else
if (nilai>=75)then
writeln ('grade B:')else
if (nilai>=65) then
writeln('grade C:')else
if (nilai>=55)then
writeln('grade D:')else
writeln('grade E:');
begin
case n of
0..64     :Writeln ('TIDAK LULUS');
65..74    :writeln ('LULUS CUKUP');
75..84    :writeln('LULUS BAIK');
85..100   :writeln ('LULUS MEMUASKAN');
end;
end;
end;
end.

Jalankan programnya, maka hasilnya adalah sebagai berikut :

 Yang malas ngetik bisa download file-nya di sini.

Sekian postingan kali ini, semoga berguna.

「Dani Kustiawan」

Bilangan prima adalah bilangan asli yang lebih besar dari angka 1, yang faktor pembaginya adalah 1 dan bilangan itu sendiri. 2 dan 3 adalah bilangan prima. 4 bukan bilangan prima karena 4 bisa dibagi 2. Sepuluh bilangan prima yang pertama adalah 2, 3, 5, 7, 11, 13, 17, 19, 23 dan 29.

 Sekarang kita akan membuat program pencari bilangan prima dengan bahasa pemrograman pascal.