Chương trình pascal tính điểm trung bình

[rongphuongdong]

WELCOME TO HSHoaiAn.Com - Học Sinh Hoài Ân (http://hshoaian.com)
Dành cho ban Khoa học tự nhiên

{Write by Huu 11a1}
Program Diemtrungbinh;
var A:array[1..13,1..100] of real;
B,C:array[1..13] of integer;
S:array[1..13] of string;
TB,Sum:array[1..13] of real;
k,i,j,d:integer;
DTB:Real;
Begin
S[1]:='Toan';S[2]:='Ly';S[3]:='Hoa';S[4]:='Sinh';
S[5]:='Van';S[6]:='Su';S[7]:='Dia';S[8]:='Tin';
S[9]:='CN';S[10]:='CD';S[11]:='Anh';S[12]:='QP';S[13]:='The duc';
d:=1;
For i:=1 to 13 do
begin
Writeln(' Nhap diem mon ',S[d]);
Write(' So bai KT 15 phut ',S[d],': ');Readln(B[i]);
Write(' So bai KT 1 Tiet ',S[d],': ');Readln(C[i]);
Sum[i]:=0;
For j:=1 to B[i]+C[i]+2 do
begin
If j=1 then
begin
write(' Nhap diem mieng: ');readln(A[i,j]);
Sum[i]:=Sum[i]+A[i,j];
end;
If (j>1) and (j<=B[i]+1) then
begin
Write(' Nhap diem 15 phut thu ',j-1,': ');Readln(A[i,j]);
Sum[i]:=Sum[i]+A[i,j];
end;
If (j>B[i]+1) and (j<=B[i]+C[i]+1) then
begin
Write(' Nhap diem 1 tiet thu ',j-B[i]-1,': ');Readln(A[i,j]);
Sum[i]:=Sum[i]+2*A[i,j];
end;
If j=B[i]+C[i]+2 then
begin
Write(' Nhap diem thi: ');Readln(A[i,j]);
Sum[i]:=Sum[i]+3*A[i,j];
end;
end;
TB[i]:=Sum[i]/(B[i]+2*C[i]+4);
d:=d+1;
writeln(S[i],': ',TB[i]:4:2);
end;
For i:=1 to 13 do
begin
writeln(S[i],': ',TB[i]:4:2);
If (i>=1) and (i<=3) then DTB:=DTB+2*TB[i]
else DTB:=DTB+TB[i];
end;
Write(' Diem trung binh : ',DTB/16:5:2);
Readln;
Readln;
End.