Program Nilai mahasiswa
{IS : Memberikan masukan berupa nama mahasiswa dan nilai mahasiswa[format0-100]}
{FS : Memberikan keluaran beruapa nilai rata-rata mahasiswa }
kamus :
Type Mahasiswa ( Nama : string
Nilai : integer
indeks : char
)
mahasiswa : mhs
menu,jumlah,i,total : integer
rata : real
procedure Memasukan_daftar(
Output("Masukan jumlah mahasiwa :")
input(jumlah)
for i:=1 to jumlah do
output("Nama[",i,"] :") input(mhs.nama[i])
output("Nilai[",i,"]:") input(mhs.nilai[i])
)
procedure menampilakan_data(
for i:=1 to jumlah do
output("Nama[",i,"] :", mhs.nama[i])
output("Nilai[",i,"]:", mhs.nilai[i])
output("Indeks[",i,"]:", mhs.indeks[i])
gantibaris
)
fungsi nilai_rata(I: mhs.nilai : mahasiswa) -> real
{IS : Memasukan nilai mahasiswa}
{FS : Mengeluarkan nilai rata2}
for i:=1 to jumlah do
total = total + mhs.nilai[i]
rata <-total / jumlah
output('Nilai rata-rata :',rata)
fungsi konversi_indeks(I: mhs.nilai : mahasiswa) -> char
{IS : Memasukan nilai mahasiswa}
{FS : Mengeluarkan nilai menjadi indeks}
for i:=1 to jumlah do
if mhs.nilai[i] =>0 and mhs.nilai[i] =< 26 then mhs.indeks <-'E'
if mhs.nilai[i] =>26 and mhs.nilai[i] =< 40 then mhs.indeks <-'D'
if mhs.nilai[i] =>41 and mhs.nilai[i] =< 60 then mhs.indeks <-'C'
if mhs.nilai[i] =>61 and mhs.nilai[i] =< 75 then mhs.indeks <-'B'
if mhs.nilai[i] =>76 and mhs.nilai[i] =< 100 then mhs.indeks <-'A'
ALGORITMA
Output('Penghitung nilai rata-rata mahasiswa')
output('Menu')
output('1.Masukan Nama dan Nilai')
output('2.Menampilakan data')
output('3.Hitung rata-rata')
output('4.Konversi Indeks')
output('5.Exit')
output('pilihan menu :')
input(menu)
depend on(menu)
1 : procedure Memasukan_daftar
2 : procedure menampilkan_daftar
3 : fungsi nilai_rata(I: mhs.nilai : mahasiswa ) -> real
4 : fungsi konversi_indeks(I: mhs.nilai : mahasiswa) -> char
5 : output('EXIT')