Program Sederhana Pascal (First Episode)

Sebelum baca tolong diperhatikan, *Jika anda belum mempunyai Program Pascal silahkan anda mendownload file saya dengan cara cukup Klik Disini*
*Dan jika anda sudah mendownload filenya silahkan di Instal dan di jalankan Program Pascalnya*

Bagi yang sudah mempunyai Pascal tidak usah mendownload file di atas ^_^ cukup membaca bacaan di bawah ini :

Kali ini saya akan meng-share kan beberapa ilmu saya

dengan susah payah dan semedi beberapa tahun (4L4Y)

ini adalah salah satu contoh program sederhana untuk pemograman pascal ^_^
langsung saja Cekidot :

Contoh Program Gaji Karyawan pada pascal :

Berikut adalah data pengolahan gaji karyawan;

• Nomor Induk Karyawan

• Nama Karyawan

• Status

• Jumlah Anak

• Jabatan

• Gaji Pokok

• Tunjangan Istri

• Tunjangan Anak

• Tunjangan jabatan

• Jamsostek

• Pajak

• Gaji Bersih

Catatan;
Tunjangan istri

• jika status 'menikah' maka tunjangan istri 10 persen dari gaji pokok

• Selain itu tidak dapat tunjangan

Tunjangan anak

• Jika jumlah anak kurang atau sama dengan 3 orang, tunjangan anak 5 persen dari gaji pokok untuk masing-masing anak

• Jika jumlah anak lebih dari 3, tunjangan anak maksimal untuk 3 orang anak.

• selain itu tidak dapat tunjangan

Tunjangan jabatan

• Jika jabatan 'manager' maka tunjangan jabatan Rp. 2000000

• Jika jabatan 'Supervisor' maka tunjangan jabatan Rp. 1500000

• Jika jabatan 'Mandor' maka tunjangan jabatan Rp. 1000000

• Selain itu tidak ada tunjangan

Hitungan untuk gaji bersih
Gaji bersih = (gaji pokok + akumulasi tunjangan)-(pajak+jamsostek)

dibawah ini adalah contoh list programnya
Silakan dipelajari ^_^
program Gaji;
uses crt;
var gp,gb,pjk,js,tis,ta,tjb:real;
nik:string[10];
nk:string[27];
sts:string[9];
jb:string[15];
ja:byte;
begin
clrscr;
textcolor(green);
gotoxy(18,1);
writeln('*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*');
goto(18,2);
writeln('*==========Welcome to my site===========*');
gotoxy(18,3);
writeln('*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*');
writeln();
writeln();
writeln();
write('Nomor Induk Karyawan=');
readln(nik);
write('Nama Karyawan=');
readln(nk);
write('Status=');
readln(sts);
write('Jumlah Anak=');
readln(ja);
write('Jabatan=');
readln(jb);
write('Gaji Pokok=');
read(gp);
if sts='menikah' then begin
tis:=0.1*gp;
end
else begin
tis:=0;
end;
if ja<=3 then begin ta:=0.05*gp*ja; end else if ja>3 then begin
ta:=0.05*gp*3;
end
else begin
ta:=0;
end;
if jb='manager' then begin
tjb:=2000000;
end
else
if jb='supervisor' then begin
tjb:=1500000;
end
else
if jb='mandor' then begin
tjb:=1000000;
end
else begin
tjb:=0;
end;
pjk:=0.025*gp;
js:=0.01*gp;
gb:=(gp+tis+ta+tjb)-(pjk+js);
writeln('Tunjangan Istri=', tis:3:2);
writeln('Tunjangan Anak=', ta:3:2);
writeln('Tunjangan Jabatan=', tjb:3:2);
Writeln('Pajak=', pjk:3:2);
writeln('Jamsostek=', js:3:2);
writeln('Gaji Bersih=', gb:3:2);
delay(100);
gotoxy(16,22);
writeln('*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#');
gotoxy(16,23);
writeln('# ==Created Design by : Arvin Janathan Adhim== *');
gotoxy(16,24);
writeln('*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#');
readkey;
end.

Nih Contoh Screen yang telah di-Run


Baca juga Artikel tentang :


Startup lambang LP
Skin MAU putih
Skin DA ungu
Cheat Analyzer AO
Software Your Uninstaler
RF Black Skin
Skin White DA
Startup lambang COD
Skin rf terbaru
Skin DA beberapa warna
Skin Bow beberapa macam
Skin armor interest
Skin macem sege

Program Sederhana Pascal (First Episode) 2012-04-11T20:38:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown