Halo pemirsa! DanKus kali ini akan membagikan sebuah game yang dibuat dengan pascal. Game ini adalah game tebak angka. Jadi game ini bisa menebak angka yanag dipikirkan oleh si pengguna. Gak percaya? Mari kita buktikan.
Pertama buat dulu game-nya dengan script di bawah ini :

uses wincrt;

var
        x, jumlah : byte;
        ch : char;
        hitung : longint;

procedure tampil(kartu :byte);

var
        x: byte;
begin
        for x:=1 to 20 do
        begin
        hitung := hitung +1;
                if (x and (1shl (kartu-1)) <>0 ) then
                write (x:4,' ');
                if hitung mod 2 = 0 then
                writeln;
        end;
end;

begin
        clrscr;
        writeln ('Konsentrasi, Pikirkan Sebuah Bilangan Antara 1 Sampai 20');
        writeln ('Jika Sudah, Tekan Sembarang Tombol');
        ch := readkey;

        jumlah :=0;
        for x:=1 to 5 do
        begin
                clrscr;
                tampil (x);
                writeln;
                write ('Apakah Bilangan Yang Anda Pikirkan Ada Di Atas?? (Y/T)');
                ch :=readkey;
                writeln;
                if (ch='y') or (ch='Y') then inc (jumlah, 1 shl (x-1));
        end;

clrscr;
        writeln ('Anda Memikirkan Bilangan : ', jumlah);
        readkey;
        readln;

        end.

Oke sekarang kita jalankan programnya.
Saat pertama dijalankan, program akan memiliki tampilan seperti ini

「Dani Kustiawan」

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」