Viết chương trình nhập điểm TB học kì 1 và TB học kì 2 của các HS trong lớp tính điểm TB cả năm theo công thức TB cả năm =( điểm TB học kì 1 cộng TB học kì 2 ×2)÷3 giúp với mai thực hành
Viết chương trình nhập điểm TB học kì 1 và TB học kì 2 của các HS trong lớp tính điểm TB cả năm theo công thức TB cả năm =( điểm TB học kì 1 cộng TB học kì 2 ×2)÷3 giúp với mai thực hành
uses crt;
var a,b,c: array[1..100] of real;
i,n: integer;
begin
clrscr;
write (‘nhap so luong hoc sinh: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap diem trung binh ki 1 cua hoc sinh thu ‘,i,’: ‘); readln (a[i]);
write (‘nhap diem trung binh ki 2 cua hoc sinh thu ‘,i,’: ‘); readln (b[i]);
c[i]:=(a[i]+(b[i]*2))/3;
end;
clrscr;
for i:=1 to n do write (‘diem trung binh ca nam cua hoc sinh thu ‘,i,’ la: ‘,c[i]:1:2);
readln;
end.
Uses crt;
Var TB1,TB2,TBCN: real;
i,n: integer;
Begin
Clrscr;
Write (‘ Nhap so luong hoc sinh vao: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap diem TBHK I cua hoc sinh thu ‘,i,’ vao: ‘); Readln(TB1);
Write (‘Nhap diem TBHK II cua sinh thu ‘,i,’: ‘); Readln(TB2);
Writeln;
TBCN:=(TB1+(TB2*2))/3;
End;
Writeln;
For i:=1 to n do
Begin
Write (‘Diem TBCN cua hoc sinh thu ‘,i,’ la: ‘,TBCN:1:1);
Writeln;
End;
Readln;
End.