Tugas Pemograman2

Ahaaaa...
Ni Ada Tugas Pemograman lagi.., Bagi bagi Gratis  daaahh... lumayan kan kalo Bisa dapet 90, wkwkw

tapi Biar kalian mau berusaha,, pelajari yang INI , nanti baru deeh dapetin yang Cause Of'a.. Ok



Program upah_if;
uses crt;
var
  gol, jjk : integer;
  upah,uj,ul   : longint;
Begin
Clrscr;

writeln(':::::::::::::::Fungsi IF');
{ input }
write  ('Masukkan golongan anda ,*Pilih 1,2,3,4,5 :');
readln(gol);
write  ('Masukkan jumlah jam kerja Anda             :');
readln(jjk);
{ fungsi If }

if gol =1 then uj := 2000 else
if gol =2 then uj := 2500 else
if gol =3 then uj := 3000 else
if gol =4 then uj := 5000 else
uj := 7000;
if gol =1 then ul := 3000 else
if gol =2 then ul := 4000 else
if gol =3 then ul := 5000 else
if gol =4 then ul := 7000 else
ul :=9000;

{ Proses }
if jjk<= 40 then upah := (uj *jjk) else
upah := (uj * 40)+(ul*(jjk-40));
{ Hasil }
writeln('Upah yang anda terima                           :',upah);
readln;
writeln('::::::::::::::::::Program  By Arfi Zulfiansyah');
readln;
End.


Endddd Selesai... hee
nahh.. kalo Mau DOWNLOAD file'a , Klik

>>  http://www.ziddu.com/download/12977868/AZ_if-then.zip.html