Minggu, Oktober 27, 2013

if gaji (pascal)

sedikit contoh tentang pascal bro..,., itung2an gaji pagawai.,., walau aku hanya buruh, bukan pagawai,., hahahaa,.
langsung aja nich bray...

PROGRAM COBA;
USES CRT;
VAR
    NP     : STRING[15];
    GOL     : CHAR;
    GP,TJ,GT : REAL;


BEGIN
    CLRSCR;
    WRITE ('NAMA PELANGGAN : ');READLN(NP);
    WRITE ('GOLONGAN     : ');READLN(GOL);
    IF GOL='A' THEN
        BEGIN; GP:=5000000; TJ:=15/100*GP; END
    ELSE IF GOL='B' THEN
        BEGIN; GP:=4000000; TJ:=10/100*GP; END
    ELSE
        BEGIN; GP:=300000; TJ:=7/100*GP; END
    GT:=GP+TJ;
    WRITELN('GAJI POKOK : ',GP:10:2);
    WRITELN('TUNJANGAN  : ',TJ:10:2);
    WRITELN('GAJI TOTAL  : ',GT:10:2);
    READLN;
END.

nah itu bray scriptnya,.,. slamat mencoba,,,

Tidak ada komentar:

Posting Komentar

Komentar yang sopan bro...