Question

[Quang Nguyễn]

Viết chương trình nhập điểm 1 môn học của các bạn trong lớp biết rằng mỗi bạn có 1 điểm miệng, 1 điểm 15p, 1 điểm kiểm tra giữa kì, 1 điểm kiểm tra cuối kì. Tính điểm trung bình môn học kì của các bạn theo công thức: Trung bình môn học kì =( điểm miệng+ điểm 10 phút+ điểm kiểm tra giữa kì*2+ điểm tra cuối kì*3)/7 và lưu vào mảng trung bình môn học kì. Sau đó in ra màn hình số bạn đạt kết quả học tập giỏi, khá, trung bình và yếu.

Answer 1

[KhảTâm]

 uses crt;

var a,b,c,d,e: array[1..100] of real;

hsg,hsk,hstb,hsy,i:integer;

begin

clrscr;

hsg:=0; hsk:=0; hstb:=0; hsy:=0;

write('nhap so hoc sinh trong lop');readln(n);

for i:=1 to n do begin writeln('diem mieng ban thu',i,'la:');readln(a[i]);end;

for i:=1 to n do begin writeln('diem 15p ban thu',i,'la:');readln(b[i]);end;

for i:=1 to n do begin writeln('diem giua ki ban thu',i,'la:');readln(c[i]);end;

for i:=1 to n do begin writeln('diem mieng ban thu',i,'la:');readln(d[i]);end;

{'nhap rieng khoi nham nhe'};

for i:=1 to n do begin e[i]:=(a[i]+b[i]+c[i]*2 + d[i]*4)/7;

if e[i]<5.0 then hsy:=hsy+1;

if (e[i]<6.5) and (e[i]>5.0) then hstb:=hstb+1;

if (e[i]>6.5) and (e[i]<8.0) then hsk:=shk+1;

if e[i]>8.0 then hsg:=hsg +1; end;

write('so ban dat hsg',hsg);

write('so ban dat hsk',hsk);

write('so ban dat hstb',hstb);

write('so ban dat hsy',hsy); readln

end.