Algoritma

TUGAS ALGORITMA

TUGAS 1

Tuliskan algoritma yang membaca tiga buah bilangan bulat, lalu menentukan dari ketiga bilangan yang terbesar !

PENYELESAIAN

·        Analisis Kasus

            kasus 1 : jika a > b, maka set maks = a

            kasus 2 : jika b ≥ a, maka set maks = b

            bandingkan maks dengan c : jika c > maks, maka set maks dengan c

·        Bahasa Algoritmik

            Program Maksimum {menentukan nilai terbesar dari tiga bilangan}

               

DEKLARASI

                A,B,C,maks : integer

               

ALGORITMA

                read (A,B,C)

                {cari nilai maksimum antara A dan B}

                if A > B then

                                maks ß A

                else { B ≥ A }

                                maks ß B

               

                {bandingkan maks dengan C}

                if C > maks then

                                maks ß C

                endif

                write (maks)

·        Bahasa Pascal

program bil_trbsr;

uses wincrt;

var

a,b,c : integer;

terbesar : integer;

begin

writeln('       PROGRAM MENCARI BILANGAN TERBESAR');

writeln('       -------------------------------------------------------------');

writeln;

writeln('Masukkan 3 Buah bilangan');

writeln;

write('Bilangan Ke-1 :'); readln(a);

write('Bilangan Ke-2 :'); readln(b);

write('Bilangan Ke-3 :'); readln(c);

                terbesar:=0;

                if (a > b) then

                terbesar:= a

                else terbesar:=b;

                if (terbesar > c) then

                terbesar:= terbesar

                else terbesar:= c;

                writeln;

                write ('Jadi Bilangan Terbesarnya Adalah :',terbesar);

end.

TUGAS 2

Karyawan honorer di STKIP Sumenep digaji berdasarkan jumlah jam kerjanya selama satu minggu, upah per jam adalah Rp. 2000,00. bila jumlah jam kerja lebih besar dari 48 jam, maka sisanya dianggap sebagai jam lembur. Upah lembur misalkan Rp. 3000,00/jam. Tulislah algoritma yang membaca jumlah jam kerja seorang karyawan selama satu minggu, lalu menentukan upah mingguannya.

PENYELESAIAN:

Analisis Kasus

        kasus 1 : jika JJK ≤ 48, maka upah = JJK*2000

        kasus 2 : jika JJK > 48, maka

                                        lembur = JJK – 48

                                        upah = (48*2000)+(lembur*3000)

·   Bahasa algoritmik

program menentukan gaji

DEKLARASI

nama :string[20];
jumlah jam kerja,lembur: integer;
upah,upah lembur :longint;

ALGORITMA

Read(nama)
read (jumlah_jam)

(Menentukan Upah)
if jumlah_jam ≤ 48 then
upah = jumlah jam kerja*2000

(Menentukan Upah Lembur)
if jumlah jam kerja > 48 then

lembur = jumlah jam kerja - 48
upah lembur = lembur*3000
upah = (48*2000)+(upah lembur)

endf.
Write (lembur)
write (upah lembur)
write (upah)

·  Bahasa Pascal

program menentukan_gaji;

uses wincrt;

var

nama :string[20];

jjk,lembur :integer;

upah,rp_lembur :longint;

begin

writeln('PROGRAM MENENTUKAN GAJI DOSEN');

writeln('-------------------------------------------------------');

writeln;

write('Jumlah Jam Mengajar Selama 1 Minggu :'); readln(jjk);

             

              if (jjk < 48) then

              begin

              upah :=jjk*2000;

              end

              else if (jjk > 48) then

              begin

              lembur :=jjk-48;

              rp_lembur :=lembur*3000;

              upah :=48*2000+rp_lembur

              end;

               writeln('Jam lembur =',lembur);

              writeln('Upah Lembur =',rp_lembur);

              writeln('upah + Upah Lembur =',upah);

              write('Jadi gaji Yang Diterima "',nama);

              write('"');

              write(' Sebesar Rp.',upah);

end.