danikustiawan.id - Halo sobat semua, kali ini DK kembali dengan artikel tutorial untuk pemrograman Pascal. Sebelumnya sobat bisa tentu sudah mengetahui dasar-dasar dari pemrograman Pascal, jadi DK di sini tidak akan menjelaskan lagi hal tersebut.

Oke, DK untuk kali ini akan membagikan tutorial sederhana implementasi dari aritmatika dalam pemrograman Pascal. Kita akan menuangkannya dalam Program Penghitung Luas Segitiga. Berikut script untuk program penghitung luas segitiga dengan pascal.

program luas_segitiga;
uses wincrt;
var
a,t: real;
L: real;
begin
clrscr;
write('Masukan Nilai Alas:');
readln (a);
write('Masukan Nilai Tingi:');
readln(t);
writeln(' ');
L:=(a*t)/2;
writeln('Luas Segitiga adalah =',L:6:2);
readln;
end.

Next, setelah mengetikan script di atas kita jalankan program dengan menekan Ctrl + F9, berikut hasilnya :
Ini adalah tampilan awal saat program dijalankan. User akan diminta untuk memasukan nilai dari alas segitiga.
Sebagai contoh kita masukan angka 5 untuk nilai alas lalu tekan enter, maka program akan meminta inputan kembali untuk nilai tinggi segitiga, masukan 12 dan tekan enter. Program akan secara otomatis menghitung luas segitiga.

Sebagaimana diketahui rumus luas segitiga adalah L=(a x t)/2. Untuk membuktika apakan hitungan dari program ini benar, mari kita hitung bersama.
L=(5 x 12)/2
L=60/2
L=30

Hasil perhitungan manual dan program pencari luas segitiga ternya sama, artinya program ini berjalan dengan benar. Oke sekian untuk tutorial sederhana kali ini. Sobat semua bisa download program penghitung luas segita melalui link di bawah. Semoga berguna.

Download Program Penghitung Luas Segitiga

「Dani Kustiawan」

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」