Pages

Kamis, 26 April 2012

PASCAL TUNJANGAN KERJA

03.42    No comments

program tunjangankerja1;
uses wincrt;
var
   NIK,Nama: string;
   golongan,mk: integer;
   tk: real;
begin
clrscr;
 write('NIK=');readln(NIK);
 write('Nama=');readln(Nama);
 write('golongan=');readln(golongan);
 write('mk=');readln(mk);
If (golongan = 1)and (mk<=2)then
writeln ('tk = 200000')
else if (golongan = 1)and (mk>2)then
writeln ('tk = 350000')
else if (golongan = 2)and (mk<=4)then
writeln ('tk = 500000')
else if (golongan =2)and (mk>4)then
writeln ('tk = 750000')
else
Writeln('golongan yang diinput tidak ada');
readln;
end.

0 komentar:

:)) ;)) ;;) :D ;) :p :(( :) :( :X =(( :-o :-/ :-* :| 8-} :)] ~x( :-t b-( :-L x( =))

Posting Komentar