Pascal - Menghitung rata-rata grade yang dimiliki siswa dalam satu kelas

Menghitung rata-rata  garade "A B C D E  "  ini code nya....

Dengan menggunakan pascal kita dapat memngetahui seberapa maju kemampua siswa dengan mengetahui kemajuan atau peningkatan nilai mahasiswa dengan melihat frekuensi grade dalam satu kelas

Berikut kode program dalam pascal untuk menghitung grade yang ada

program data;

uses wincrt;

var

dat:array[1..10]of char;

i:integer;

a,b,c,d,e:real;

begin

dat[1]:='A';

dat[2]:='A';

dat[3]:='B';

dat[4]:='B';

dat[5]:='B';

dat[6]:='C';

dat[7]:='C';

dat[8]:='D';

dat[9]:='E';

dat[10]:='E';

a:=0;b:=0;c:=0;d:=0;e:=0;

for i:=1 to 10 do

begin

if dat[i] = 'A' then

a:=a+1;

if dat[i] = 'B' then

b:=b+1;

if dat[i] = 'C' then

c:=c+1;

if dat[i] = 'D' then

d:=d+1;

if dat[i] = 'E' then

e:=e+1;

end;

a:=(a/10)*100;

b:=(b/10)*100;

c:=(c/10)*100;

d:=(d/10)*100;

e:=(e/10)*100;

writeln('Presentasi grade mahasiwa A: ',a:0:1,' %');

writeln('Presentasi grade mahasiwa B: ',b:0:1,' %');

writeln('Presentasi grade mahasiwa C: ',c:0:1,' %');

writeln('Presentasi grade mahasiwa D: ',d:0:1,' %');

writeln('Presentasi grade mahasiwa E: ',e:0:1,' %');

end.