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:
- Error 85 : ";" expected = kurang tanda (;) atau seharusnya tanda (;)
- Error 86 : ":" expected = kurang tanda (:)
- Error 3 : Unknown identifier = kurang satu huruf, kurang tanda kutip satu (') atau salah ketik huruf
- Error 10 : Unexpected end of file = kurang titik (.) sebagai pengakhir program
- Error 94 : "." expected = seharusnya titik (.) bukan titik koma (;)
- Error 106 : Invalid numeric format = salah format, seharusnya nomor
- 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.
