Gol = A, Gapok = 5000, Tunjangan = 20% x Gapok
Gol = B, Gapok = 4000, Tunjangan = 10% x Gapok
Gol = C, Gapok = 3000, Tunjangan = 5% x Gapok
Gol = D, Gapok = 1000, Tunjangan = 2% x Gapok
Program
USES CRT;
VAR
GOL : CHAR;
GAPOK :LONGINT;
TUNJANG :REAL;
BEGIN
CLRSCR;
GOTOXY (4,5);WRITE('MASUKKAN GOLONGAN :'); READLN(GOL);
IF GOL='A' THEN
BEGIN
GAPOK:= 5000;
TUNJANG := 0.2* GAPOK;
END
ELSE IF GOL='B' THEN
BEGIN
GAPOK:= 4000;
TUNJANG := 0.1* GAPOK;
END
ELSE IF GOL='C' THEN
BEGIN
GAPOK:=3000;
TUNJANG:=0.05* GAPOK;
END
ELSE
BEGIN
GAPOK:=1000;
TUNJANG:=0.02* GAPOK;
END;
GOTOXY (4,6);WRITELN('GAJI POKOK ANDA :',GAPOK);
GOTOXY (4,7);WRITELN('TUNJANGAN ANDA :',TUNJANG:9:0);
READKEY;
END.