Pemrograman 1 - Gaji (Menggunakan Statement Case Of)

Program Gaji

• Source Code pada Turbo Pascal

 PROGRAM GAJI;

USES CRT;

VAR gol:integer;

    g_pokok,TJ,g_total :real;

BEGIN

     CLRSCR;

     TEXTCOLOR(LIGHTGREEN+BLINK);WRITELN('Program Menghitung Gaji');

     TEXTCOLOR(WHITE);WRITELN('-----------------------');

     WRITE('Berapa golongan anda?  ');READLN(gol);

     CASE gol OF

          1: begin {golongan 1}

             g_pokok:=100000;

             TJ:=0.05*g_pokok;

             g_total:=g_pokok+TJ;

             end;

          2: begin {golongan 2}

             g_pokok:=120000;

             TJ:=0.1*g_pokok;

             g_total:=g_pokok+TJ;

             end;

          3: begin {golongan 3}

             g_pokok:=150000;

             TJ:=0.1*g_pokok;

             g_total:=g_pokok+TJ;

             end;

          4: begin {golongan 4}

             g_pokok:=175000;

             TJ:=0.1*g_pokok;

             g_total:=g_pokok+TJ;

             end;

          5: begin {golongan 5}

             g_pokok:=200000;

             TJ:=0.1*g_pokok;

             g_total:=g_pokok+TJ;

             end;

          6: begin {golongan 6}

             g_pokok:=220000;

             TJ:=0.13*g_pokok;

             g_total:=g_pokok+TJ;

             end;

          7: begin {golongan 7}

             g_pokok:=250000;

             TJ:=0.17*g_pokok;

             g_total:=g_pokok+TJ;

             end;

          end;

          IF gol<=7 THEN

          begin

          Writeln('Gaji Pokok        : ',g_pokok:0:0);

          writeln('Tunjangan Jabatan : ',TJ:0:0);

          writeln('Gaji Total        : ',g_total:0:0);

          end

          ELSE

          write('Golongan tidak ada, data tidak bisa diproses!');

     readln;

end.

• Hasil Eksekusi