Diktat Bab 4 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)