kasus 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)

kasus 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)

kasus 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)

kasus 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)

kasus 4.2

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

kasus 4.1

Algoritma mencari nilai 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

Write

Refleksi pertemuan 6

Refleksi pertemuan ke-Enam

Alhamdulillah minggu ke-6 ini saya sukses bisa datang kuliah tepat waktu. Selasa kemaren dosen telat datang tiga menit karena beliau merasa tidak enak badan. Seperti biasa kami memulai perkuliahan dengan kuis selama 15 menit. Kami membahas tentang materi iteratif dan rekursif. Seperti biasa juga kami mendapat tugas blog dan refleksi mingguan. Kami juga mendapat tugas buat mengerjakan latihan ebook maksimal sampai hari selasa depan jam 07.00. Bapak dosen juga memberi masukan dan pengarahan tentang semangat belajar dan cara meng-handle tugas-tugas yang cukup banyak.