Algoritma Program Nilai

Program Nilai

{Program untuk menginputkan, nama, nim, mata kuliah, dan nilai akhir mahasiswa}

Deklarasi

type

mhs=record

<Nama:String[25]

Nim:String[11]

MK:String[15]

NA:char >

            Data:Array[1..100]of Mhs

            i,n:integer

Algoritma

            readln(n)

            for i          1 to n do

            begin

            readln(data[i].nama)       

readln(data[i].nim)

            readln(data[i].mk)

            readln(data[i].na)

            end

            clrscr

            for i          1 to n do

            begin

            Writeln('Nama        : ',data[i].nama)

            Writeln('NIM         : ',data[i].nim)

            Writeln('Mata Kuliah : ',data[i].mk)

            Writeln('Nilai Akhir : ',data[i].na)

            if(data[i].na='D') or (data[i].na='d') or (data[i].na='E') or (data[i].na='e') then

            begin

                        Writeln('Anda Perlu Mengulang')

            end

            else

            begin

                        Writeln('Anda Tidak Perlu Mengulang')

            end

            endif