Program pascal Case Of

Dengan Demikian , Saudara-saudaraku ... heem , Tadinya mau di bisnissin,,
Tugas , Nilai 90 = 5000 rupiaah,...
Hemp..Pdahal Wat Modal Usaha Tuhh, heeheee

tapa Daah , Rezeki mah ga kemana-mana..
Ni Tugas pemograman CaseOf nya... Silahkan Di pelajari , Download juga Bisaa.


Program upah_case;
Uses crt;
Var
gol, jjk     : integer;
upah,uj,ul   : longint;
Begin
Clrscr;
Writeln('Case Of');
Write  ('Masukkan golongan anda ,*Pilih 1,2,3,4,5 :');
Readln(gol);
Write  ('Masukkan jumlah jam kerja Anda           :');
Readln(jjk);
Case gol Of
   1 : begin
     uj := 2000;
     ul := 3000;
         End;
   2 : begin
     uj := 2500;
     ul := 4000;
         End;
   3 : begin
     uj := 3000;
     ul := 5000;
         End;
   4 : begin
     uj := 5000;
     ul := 7000;
         End;
   5 : begin
     uj := 7000;
     ul := 9000;
         End;
End;
Case jjk Of
    0  .. 40 : begin
     upah := (uj *jjk);
         End;
    40 .. 100: begin
    upah := (uj * 40)+(ul*(jjk-40));
         End;
End;

Writeln('Upah yang anda terima                    :',upah);
Readln;
Writeln('Program Case Of By Arfi Zulfiansyah S1C');
Readln;
End.

Sekiann...
yang mau File nya.. Download
http://www.ziddu.com/download/12992639/AZ_case-of.zip.html