Bổ sung và chỉnh sửa chương trình trong bài 1 để nhập hai loại điểm Toán và Ngữ văn của các bạn, sau đó in ra màn hình điểm trung bình của mỗi bạn trong lớp (theo công thức Điểm trun[r]
(1)(2)Viết chương trình nhập điểm bạn lớp Sau in hình số bạn đạt kết học tập loại giỏi, khá, trung bình (theo tiêu
chuẩn từ 8.0 trở lên đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khá, từ 5.0 đến 6.4 đạt trung bình 5.0 xếp loại kém).
(3)Input, Output
bài toán?
* Input:
Điểm bạn lớp.
* Output:
(4)Ý tưởng tìm số bạn đạt kết học tập loại
(5)* Ý tưởng :
- Đặt giá trị ban đầu: Giỏi:=0; Khá:=0; Trungbinh:=0; Kém:=0;
- Lần lượt cho chạy từ đến n kiểm tra: + Nếu A[i]>=8.0 đếm số HS giỏi là:
Giỏi:=Giỏi+1
+ Nếu A[i]<8.0 A[i]>=6.5 đếm số HS là: Khá:=Khá+1
+ Nếu A[i]<6.5 A[i]>=5.0 đếm số HS trung bình là: trung bình:=trung bình+1
(6)Liệt kê biến dự định sử dụng trong chương trình?
Tìm hiểu phần khai báo tìm hiểu tác dụng biến?
program Phanloai; uses crt;
(7)- i: Biến đếm
- n: Biến để nhập số bạn lớp được nhập vào.
- Gioi, Kha, Trungbinh, Kem: Số học sinh giỏi, khá, trung bình, yếu.
(8)Phần thân chương trình tương tự đây:
Begin clrscr;
write(‘Nhap so cac ban lop, n = ‘); readln(n); writeln(‘Nhap diem:’);
For i:=1 to n do Begin
write(i,’ ‘); readln(a[i]); End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0; for i:=1 to n do
begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1; if (a[i]>=5)and(a[i]<6.5)then
Trungbinh:=trungbinh+1
if a[i]<5 then Kem:=Kem+1; end;
writeln(‘Ket qua hoc tap:’); writeln(Gioi,’ ban hoc gioi’); writeln(Kha,’ ban hoc kha’);
writeln(Trungbinh,’ ban hoc trung binh’); writeln(Kem,’ ban hoc kem’);
(9)Em gõ tiếp phần chương trình vào máy tính sau
(10)(11)Bổ sung chỉnh sửa chương trình bài để nhập hai loại điểm Toán Ngữ văn bạn, sau in hình điểm trung bình bạn lớp (theo cơng thức Điểm trung bình = (điểm Tốn + điểm Ngữ văn)/2), điểm trung bình của lớp theo mơn Tốn Ngữ văn
(12)Tìm hiểu ý nghĩa câu lệnh sau đây:
Phần khai báo:
Var i, n: integer;
TbToan, TbVan: real;
DiemToan, DiemVan: array[1 100] of real;
Phần thân chương trình:
begin
writeln('Diem trung binh:');
for i:=1 to n do
writeln(i,' ',(DiemToan[i]+DiemVan[i])/2:3:1); TbToan:=0; TbVan:=0;
for i:=1 to n do
begin TbToan:=TbToan+DiemToan[i]; TbVan:=TbVan+DiemVan[i] end; TbToan:=TbToan/n; TbVan:=TbVan/n;
writeln('Diem trung binh mon Toan:',TbToan:3:2); writeln('Diem trung binh mon Van: ',TbVan:3:2);
(13)(14)program bai2; var
i,n,gioi,kha,trungbinh,yeu: integer;
a,b:array[1 100] of real; tbtoan, tbvan, dtb: real; begin
write('nhap so hoc sinhn='); readln(n);
writeln('nhap diem mon toan:'); for i:=1 to n do
begin
write(i,'.'); readln(a[i]); end;
writeln('nhap diem mon van:'); for i:=1 to n do
begin
write(i,'.'); readln(b[i]); end;
for i:=1 to n do begin
write(i,'.'); readln(b[i]); end;
for i:= to n do begin
tbtoan:= (tbtoan+a[i]); tbvan:= (tbvan+b[i]) ; end;
for i:= to n do
writeln('diem trung binh ban thu ',i,' trong lop', (a[i]+b[i])/2:4:2 );
writeln('diem trung binh mon toan',tbtoan/n:4:2 ) ;
writeln('diem trung binh mon van',tbvan/n:4:2 );
(15)(16)