Hi guys
I'm new to Programming, and I have an assignment that keep me stuck. Can you guys help me?
Here's the code :
Program IFLAB;
uses crt;
TYPE karyawan = record nama : String;
jml_lembur,gol : integer;
gaji_pokok,bonus_tetap,bonus_lembur,gaji_bulan,gaji_total: integer;
end;
var
a : karyawan
begin
clrscr;
writeln('Masukkan nama karyawan : '); readln(a.nama);
writeln('Golongan Karyawan : ');
writeln(' 1. Golongan I ');
writeln(' 2. Golongan II ');
writeln(' 3. Golongan III ');
writeln('Masukkan golongan karyawan : '); readln(a.gol);
writeln('Masukkan jumlah lembur : '); readln(a.jml_lembur);
case a.gol of
1 : begin
a.gaji_pokok := 250000;
end;
2 : begin
a.gaji_pokok := 500000;
end;
3 : begin
a.gaji_pokok := 750000;
end;
a.bonus_tetap := 0.25*a.gaji_pokok;
a.bonus_lembur := a.jml_lembur*a.bonus_tetap;
a.gaji_bulan:= a.gaji_pokok+a.bonus_tetap+a.bonus_lembur;
writeln('---Jumlah Gaji---');
writeln('Nama Karyawan : ',a.nama);
writeln('Golongan Karyawan : ',a.gol);
writeln('Jumlah lembur : ',a.jml_lembur);
writeln('Total Gaji per Bulan : Rp. ',a.gaji_bulan:0:0); readln;
end.
it always said (12,1) Fatal : Syntax error, ";" expected but BEGIN found