Bài giảng hay: Tin 8 - Xử lý dãy số trong chương trình

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]

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).

Input, Output

bài toán?

* Input:

Điểm bạn lớp.

* Output:

Ý tưởng tìm số bạn đạt kết học tập loại

* Ý 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

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;

- 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.

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’);

Em gõ tiếp phần chương trình vào máy tính sau

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

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);

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 );