Menghitung Nilai Tertinggi,Terendah dan Rata-rata Dengan Turbo Pascal

Turbo pascal

Assalamu’laikum para blogger budiman......................

Pada hari ini, saya akan memberi tahu kepada kalian semua bagaimana cara
menghitung nilai tertinggi, terendah dan rata-rata mahasiswa dengan turbo pascal. Oke! Tanpa basa basi lagi silakan belajar dengan coding dibawah ini:

“  uses crt;

var a,ms : integer;

nilai, total, tinggi, rendah, rata : real;

kls,jur:string;

begin 

clrscr;

writeln('===========================================================');

writeln('              Nilai Mahasiswa STMIK BUDIDARMA              ');

writeln('===========================================================');

write('Jurusan:');

readln(jur);

write('Kelas:');

readln(kls);

total := 0;

write ('jumlah Mahasiswa : '); readln (ms);

writeln;

for a := 1 to ms do

begin

write ('nilai Mahasiswa ke ',a,' : '); readln (nilai);

total := total + nilai;

if a = 1 then begin

tinggi := nilai;

rendah := nilai;

end

else begin

if nilai > tinggi then tinggi := nilai

else begin

if nilai < rendah then rendah := nilai;

end;

end;

end;

rata := total / ms;

writeln;

writeln ('nilai terendah    : ', rendah:2:0);

writeln ('nilai tertinggi   : ', tinggi:2:0);

writeln ('rata-rata         : ',rata :1:2);

readln;

end.“

maka outputnya akan seperti ini:

Ok!mungkin sampai sini aja, semoga bermanfaat dan selamat belajar..........