ERROR PADA TURBO PASCAL & CONTOH SCRIPT TURBO PASCL GAJI

Terlambat ga yach....?

Secara program ini udah ga dipake lagi, tapi ga ada ilmu yang ga bermanfaatkan!

Pada waktu kita compile script di turbo pascal biasanya kalo tidak sukses pasti muncul error dan error itu bermacam-macam, nah saya punya beberapa contoh error dan sedikit penjelasannya:

1. Error 85 : ";" expected = kurang tanda (;) atau seharusnya tanda (;)
2. Error 86 : ":" expected = kurang tanda (:)
3. Error 3 : Unknown identifier = kurang satu huruf, kurang tanda kutip satu (') atau salah ketik huruf
4. Error 10 : Unexpected end of file = kurang titik (.) sebagai pengakhir program
5. Error 94 : "." expected = seharusnya titik (.) bukan titik koma (;)
6. Error 106 : Invalid numeric format = salah format, seharusnya nomor
7. Error 113 : Error in Statement = salah pemberian statemen

nah untuk no. 7 itu agak sulit nyarinya karena berhubungan dengan alogaritma dan rumus yang diterapkan pada script yang anda buat, solusinya lihat lagi script yang dibuat.

Monggo buat yang masih ngasih alogaritma dengan turbo pascal atau yang dikuliahnya dapet tugas buat aplikasi pake tubro pascal mudah-mudahan berguna.

nah buat penutup dikasih contoh script penggunaan if dan else pada penggajian :

========================================================

uses crt;

var

nama,jabatan :string;

kode,lama,jam,i:integer;

lembur,gapok,tunjangan,tot_lembur,total:real;

begin

clrscr;

begin

writeln;

write ('Nama = ');readln (nama);

write ('Masukan kode jabatan = ');readln (kode);

write ('Masukan Lama kerja = ');readln (lama);

write ('Masukan jam lembur = ');readln (jam);

clrscr;

if (kode =1) then

begin

jabatan := 'Manajer';

gapok := 4000000;

lembur := 15000;

end

else if (kode =2) then

begin

jabatan := 'Wakil Manager';

gapok := 2800000;

lembur := 15000;

end

else if (kode = 3) then

begin

jabatan := 'Staf';

gapok := 1500000;

lembur := 15000;

end

else

writeln ('Anda salah memasukan kode');

if (lama > 10) then

begin

tunjangan := 1500000;

end

else if (lama > 5) or (lama =10) then

begin

tunjangan :=900000

end

else if (lama > 2) or (lama =5) then

begin

tunjangan :=500000

end

write('Silahkan tekan sembarang tombol untuk proses ');readkey;

writeln ('Nama = ',nama);

write ('kode jabatan = ',kode); writeln (' | Jabatan = ',jabatan);

writeln ('Lama Kerja = ',lama,' tahun');

tot_lembur:=jam*lembur;

write ('jam lembur = ',jam);write (' x ',lembur:2:0);writeln (' = ',tot_lembur:2:0);

writeln ('Gaji Pokok = ',gapok:2:0);

writeln ('tunjangan = ',tunjangan:2:0);

total:=gapok+tunjangan+tot_lembur;

write ('gajih bersih ',total:2:0);

end;

readkey;

end.

========================================================

Monggo dicoba tapi belom rapih yach, kalo mo dirapihkan atu di tambah lebih bagus.