Progaram Mencari Bilangan Terbesar Dalam Bahasa Pascal

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.