conoh sintax pascal

Uses Wincrt;

Var

nik,nama,j_kel,pend,st_ker,st_nkh : String;

jm_ank,absen,gapok,trans,tj_ist,tj_ank,total : Real;

Begin

gotoxy(5,3);Write(' PT. MAJU-MUNDUR-TERUS ');

gotoxy(5,4);Write('===========================================');

gotoxy(5,5);Write(' PERSONALIA ');

gotoxy(5,6);Write(' PERHITUNGAN GAJI KARYAWAN ');

gotoxy(5,7);Write('-------------------------------------------');

gotoxy(5,8);Write(' NIK :');

gotoxy(5,9);Write(' NAMA :');

gotoxy(5,10);Write(' JENIS KELAMIN [L/P] :');

gotoxy(5,11);Write(' PENDIDIKAN :');

gotoxy(5,12);Write(' STATUS KERJA :');

gotoxy(5,13);Write(' STATUS NIKAH :');

gotoxy(5,14);Write(' JUMLAH ANAK :');

gotoxy(5,15);Write(' KEHADIRAN :');

gotoxy(5,16);Write('-------------------------------------------');

gotoxy(5,17);Write(' GAJI POKOK :');

gotoxy(5,18);Write(' TRANSPORTASI :');

gotoxy(5,19);Write(' TUNJANGAN ISTRI :');

gotoxy(5,20);Write(' TUNJANGAN ANAK :');

gotoxy(5,21);Write('-------------------------------------------');

gotoxy(5,22);Write(' TOTAL GAJI :');

Gotoxy(30,8);Readln(nik);

Gotoxy(30,9);Readln(nama);

Gotoxy(30,10);Readln(j_kel);gotoxy(48,11);Write('Isi Dengan : SMA/D-1/D-3/S-1');

Gotoxy(30,11);Readln(pend);gotoxy(48,12);Write('Isi Dengan : TETAP/HONOR');

Gotoxy(30,12);Readln(st_ker);gotoxy(48,13);Write('Isi Dengan : NIKAH/BELUM');

Gotoxy(30,13);Readln(st_nkh);gotoxy(48,14);Write('Jika Belum Menikah isi dengan 0');

Gotoxy(30,14);Readln(jm_ank);

Gotoxy(30,15);Readln(absen);

if (st_ker='TETAP') and ((pend='D-1')or(pend='SMA')) then gapok:=750000;

if (st_ker='TETAP') and (pend='D-3') then gapok:=950000;

if (st_ker='TETAP') and (pend='S-1') then gapok:=1200000;

if (j_kel='L') and (st_nkh='NIKAH') and (st_ker='TETAP') then tj_ist:=gapok*0.05

else tj_ist:=0;

if (st_ker='TETAP') and (st_nkh='NIKAH') and (jm_ank<=3) then tj_ank:=jm_ank*gapok*0.025;

if (st_ker='TETAP') and (st_nkh='NIKAH') and(jm_ank>3) then tj_ank:=gapok*0.025*3;

if (st_ker='TETAP') then trans:=15000*absen

else trans:=12500*absen;

if (st_ker='TETAP') then total:=gapok+trans+tj_ist+tj_ank

else total:=absen*20000;

Gotoxy(30,17);Write('Rp. ',gapok:2:0);

Gotoxy(30,18);Write('Rp. ',trans:2:0);

Gotoxy(30,19);Write('Rp. ',tj_ist:2:0);

Gotoxy(30,20);Write('Rp. ',tj_ank:2:0);

Gotoxy(30,22);Write('Rp. ',total:2:0);

END.