FUNGSI IF

PROGRAM PASCAL DATA PEGAWAI MENGGUNAKAN IF

Program dp;
uses wIncrt;
var np,nm,g:string[25];
    t,h,gp,gk,gb :reaL;
    u:char;


Begin
REPEAT
CLRSCR;
Write('nip      = ');readln(np);
Write('nama     = ');readln(nm);
Write('golongan = ');readln(g);
Write('tunjangan= ');readln(t);
Write('hutang   = ');readln(h);

(*rumus*)
if g = 'IIIB' THEN BEGIN GP:=2000000 END
ELSE IF G = 'iiib'THEN BEGIN GP:= 2000000 END
ELSE  GP:= 1500000;

GK:= GP + T;
GB:= GP - H;

WRITELN('   GAJI POKOK : ',GP:0:0);
WRITELN('   GAJI KOTOR : ',GK:0:0);
WRITELN('   GAJI BERSIH : ',GB:0:0);
writeln('masukan data kembali [Y/T] ' ); READLN (U);
UNTIL UPCASE (U) <> 'Y';

End.