Lab.Algoritma. Mencari nilai rata-rata

20.22 Melek.it

Program Mahasiswa;
uses crt;
var
npm,nama,jur:string;
mat,fis,kim,indo,ingg,bio,rata2:real;
jml:integer;

begin
clrscr;
writeln ('Masukkan Data-Data Berikut Dengan Lengkap  !! ');
writeln ('---------------------------------------------------');
write ('NPM                                                       : ');readln (npm);
write ('Nama Lengkap                                        : ');readln (nama);
write ('Jurusan                                                    : ');readln (jur);
writeln;
writeln ('Mata Kuliah                                          Nilai ');
writeln('-------------                                          ----- ');
write ('Matematika                                             : ');readln (mat);
write ('Kimia                                                      : ');readln (kim);
write ('Bahasa Indonesia                                    : ');readln (indo);
write ('Bahasa Inggris                                         : ');readln (ingg);
write ('Biologi                                                    : ');readln (bio);
writeln;



jml:= (6);
write (' Jumlah Mata Pelajaran                           : ',jml);
rata2:= ('mat+fis+kim+indo+ingg+bio)/jml;
writeln;
write ('Nilai rata-rata anda adalah                       :',rata2:2:1);
readln;
end.