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...
Đọc tiếp
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.
đây nha em
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.