Tugas – tugas

Tugas – tugas ( selama kuliah – kuliahan) :

1. Algoritma

Program upah;

  var

     conts jk:48;

     conts upjk:5000;

     conts upjkl:6000;

     nm:string;

     jum_jk:integer;

     upah:longint;

  begin

     write(‘Nama karyawan : ‘); readln(nm);

     write(‘Jumlah jam kerja : ‘); readln(jum_jk);

      if  jum_jk<=jk then

         upah:= jum_jk*upjk

        if jum>jk then

          upah:=jum_jk*upjk+(jum_jk-jk)*upjl;

     writeln(‘Upah : Rp. ‘,upah);

     readln;

  End.

2).Tentukan Gaji

Nama   : susi

status : nikah

Gol    : 1

Gaji : Rp.110.000.00

Nikah

Gol

Tunjangan anak

Gaji pokok

 

1

10.000

100.0000

 

2

20.000

200.0000

 

3

30.000

300.000

 

Jawaban

1.Program gaji_pokok;

  var

    nm,status =string;

    gol =integer;

    gaji =longint;

  begin

    write(‘Nama : ‘); readln(nm);

    write(‘Status : ’); readln(status);

    write(‘Gol : ’); readln(gol);

     if status =’Nikah’

       case gol of

        1: begin

            tunj_anak := 10.000

            gapok := 100.000

           end;

        2: begin

            tunj_anak := 20.000

            gapok := 200.000

           end;

        3: begin

            tunj_anak := 30.000

            gapok := 300.000

            end;

     end;

     else

       begin

        case gol of

         1:gapok := 100.000

         2:gapok := 200.000

         3:gapok := 100.000

       end;

         tunj_anak:= 0

        end;

    gaji:= tunj_anak + gapok

    writeln(‘Gaji :Rp.’,gaji);

    readln;

  end. 

Iklan

April 10, 2008 at 4:17 am



%d blogger menyukai ini: