bab 4 (algoritma-Nya)

4.1

Algoritma Maksimum

{Menentukan nilai terbesar antara dua bilangan bulat}

Deklarasi:

                A,B : integer

Deskripsi:

                Read(A,B)

                If(A>B) then write (‘Bilangan terbesar adalah = ‘A)

                Else write (‘Bilangan terbesar adalah = ‘B)

Endif

4.2 a

Algoritma Nilai_Maksimum

{Membaca tiga buah bilangan bulat, menentukan bilangan terbesar diantara tiga buah bilangan tersebut dan menampilkannya kelayar}

Deklarasi:

                X,y,z : iteger

Deskripsi:

                Read(x,y,z)

                If(x>y) and (x>z) then write (‘Bilangan terbesar adalah = ‘x)

                Else if(y>z) and (y>z) then write (‘Bilangan terbesar adalah = ‘y)

                Else write (‘Bilangan tersebar adalah = ‘z)

                End if

4.2 b

Algoritma Nilai_Maksimum

{ Membaca tiga buah bilangan bulat, menentukan bilangan terbesar diantara tiga buah bilangan tersebut dan menampilkannya kelayar}

Deklarasi:

                X,y,z : iteger

                Maks : iteger

Deskripsi:

                Read(x,y,z)

                Maks ß x

                If (y > maks) then maks ß y end if

                If (z > maks) then maks (z end if

                Write (‘Bilangan terbesar adalah = ‘maks)

4.3

Algoritma Persamaan_Kuadrat

{Menghitung akar-akar persamaan kuadrat Ax^2+Bx+C=0}

Deklarasi:
                A,B,C : integer

                Disk : logint

                X1,x2 : real

Deskripsi:

                Read (A,B,C)

                Disk ß B*B-4*A*C

                If(A=0) then write (‘Bukan persamaan kuadrat’)

                Else if disk >0 then

                                X1 (-B+ sqrt (disk)/2*A

                                X1 (-B- sqrt (disk)/2*A

                Else if disk = 0 then

                                X1 (-B/2*A

                                X2(x1

                Else write (‘Akar Imajiner’)

End if

Write(x1,x2)

4.4

Algoritma Konversi_Nilai

{Mengkonversikan nilai angka menjadi nila huruf}

Deklarasi:

                Nilai : iteger

                Nilai_huruf : char

Deskripsi:

                Read (nilai)

                If(nilai>0) and (nilai <= 20 ) then nilai_huruf ß ‘E’

                Else if (nilai > 20) and (nilai <=40) then nilai_huruf ß ‘D’

                Else if (nilai > 40) and (nilai <=60) then nilai_huruf ß ‘C’

                Else if (nilai > 60) and (nilai <=80) then nilai_huruf ß ‘B’

                Else nilai_huruf ß ‘A’

                Endif

                Write (nilai_huruf)

4.5

Algoritma menentukan_hari

{Masukkan integer 1 sampai 7, akan ditentukan hari apa yang sesuai}

Deklarasi

                Hari_ke : iteger

                Hari : string

Deskripsi:

                Read(hari_ke);

                Case (hari_ke)of

                                1 : hari ß ‘Senin’;

                                2 : hari ß ‘Selasa’;

                                3 : hari ß ‘Rabu’;

                                4 : hari ß ‘Kamis’;

                                5 : hari ß ‘Jumat’;

                                6 : hari ß ‘Sabtu’;

Else hari ß’Minggu’;

                End case

                Write (hari)