Viết chương trình nhập điểm trung bình Học Kì I và trung bình Hoc Ki II của các học sinh trong lớp. Số các bạn trong lớp cũng được nhập vào từ bàn phím. Tính điểm trung bình cả năm của các bạn theo công thức:
TBCN=( điểm trung bình HKI + điểm trung bình HKII *2)/3 và lưu vào bảng trung bình cả năm. 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( biết rằng giỏi, khá, trung bình, yếu tiêu chuẩn giống BT1TH7)
uses crt;
var i,n,a,b:longint; d:array[1..100000]of real;
begin
clrscr;
write(‘Nhap so cac ban trung lop: ‘);readln(n);
for i:=1 to n Do
begin
write(‘Nhap diem trung binh hoc ki I cua ban thu ‘,i,’: ‘);readln(a);
write(‘Nhap diem trung binh hoc ki II cua ban thu ‘,i,’: ‘);readln(b);
writeln;
d[i]:=(a+b*2)/3;
end;
for i:=1 to n do
begin
write(‘Ban thu ‘,i,’ dat ‘);
if(d[i]>=8) then writeln(‘loai gioi.’) else
if(d[i]>=6.5)and(d[i]<8) then writeln(‘loai kha.’) else
if(d[i]>=5)and(d[i]<6.5)
then writeln(‘loai trung binh.’) else writeln(‘loai yeu.’);
end;
readln
end.
program bt;
uses crt;
var a:array [1..100] of integer; b:array [1..100] of integer;
gioi,kha,trungbinh,yeu:integer;
TBCN:real;
begin
clrscr;
writeln(‘Nhap n’);readln(n);
for i:=1 to n do
begin
writeln(‘a[‘,i,’]=’);
readln(‘Diem trung binh hoc ki I la’,a[i]);
writeln(‘b[‘,i,’]=’);
readln(‘Diem trung binh hoc ki II la’,b[i]);
end;
gioi:=0; kha:=0;
trungbinh:=0; kem:=o
for i:=1 to n do
begin
TBCN:= (a[i]+b[i]*2)/3;
if TBCN>=8.0 then Gioi:=gioi+1;
if TBCN<5 then Kem:=kem+1;
if (TBCN<8.0) and (TBCN>=6.5) then kha:=kha+1;
if (TBCN>=5) and (TBCN<6.5) then trungbinh:=trungbinh+1;
end;
writeln(Gioi,’ban hoc sinh gioi’);
writeln(Kha,’ban hoc sinh kha’);
writeln(Trungbinh,’ban hoc sinh trung binh’);
writeln(Kem,’ban hoc sinh kem’);
readln;
end.