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...