Bài giảng Tin học Lớp 8 - Tiết 59+60. Bài thực hành 7: Xử lý dãy số trong chương trình

 KiĨm tra bµi cị
Câu hỏi: Các khai báo biến mảng sau đây 
trong Pascal đúng hay sai?
 a) var X:Array[20,25] of integer;
 b) var X:Array[5..10.5] of Real;
 c) var X:Array[10..1] of integer;
 d) var X:Array[3..10] of integer; bµi thùc hµnh 7
 Bài 1.
Viết chương trình nhập điểm của các bạn trong 
lớp. Sau đĩ in ra màn hình số bạn đạt kết quả học 
tập loại giỏi, khá, trung bình và kém (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 và dưới 5.0 
xếp loại kém). Ý tưởng tìm số các bạn 
đạt kết quả học tập loại 
giỏi, khá, trung bình, 
 yếu? TìmLiệt hiểu kê các phần biến khai dự báođịnh dưới sẽ sử đây dụng và 
 tìmtrong hiểu chương tác dụng trình? của từng biến?
 program Phanloai;
 uses crt;
 Var i,n,Gioi,Kha,Trungbinh,Kem: integer;
 A: array[1..100] of real;
 - i: Biến đếm
 - n: Biến để nhập số các bạn trong lớp sẽ được 
 nhập vào.
- Gioi, Kha, Trungbinh, Kem: 
 Số các học sinh giỏi, khá, trung bình, yếu.
- A: Biến mảng, dùng để lưu điểm số của các 
 học sinh trong lớp, cĩ kiểu số thực. Câu 1. For i:=1 to n do
 Begin 
 write(i,’. ‘); readln(a[i]); 
 End;
Đoạn CT sau thực hiện lệnh gì
 a. Nhập điểm vào mảng
 b. In điểm ra màn hình
 c. Sắp xếp điểm
 d. Khai báo mảng điểm
 Phần quà của bạn là: cái bắt 
 tay của bạn bên cạnh Câu 3. 
writeln(Trungbinh,’ ban hoc trung binh’);
Đoạn CT sau thực hiện lệnh gì?
 a. Nhập số bạn học trung bình
 b. In tổng số bạn học trung bình
 c. Tổng điểm trung binh từ 5.0 hoặc 6.4
 d. In số bạn học trung bình
 Phần quà của bạn là: Một 
 tràng vỗ tay của cả lớp Phần khai báo:
Var i, n: integer;
 TbToan, TìmTbVan: hiểu real; ý nghĩa của các câu 
 DiemToan, DiemVan:lệnh array[1..100] sau đây: 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);
end. câu 2. 
for i:=1 to n do
 begin 
 TbToan:=TbToan+DiemToan[i];
 TbVan:=TbVan+DiemVan[i] ;
 end;
Đoạn CT sau thực hiện lệnh gì?
 a. Tính trung bình điểm mơn tốn, văn
 b. Tính tổng điểm mơn tốn, văn
 c. Đếm điểm mơn tốn, văn
 d. Tính tổng điểm mơn tốn hoặc văn
 Phần quà của bạn là: Là 1 
 điểm cộng Bổ sung các câu lệnh trên vào vị trí thích hợp 
trong chương trình. Thêm các lệnh cần thiết, 
dịch và chạy chương trình với các số liệu thử. Tỉng kÕt
1. Cú pháp khai báo biến mảng kiểu 
 số nguyên và số thực trong Pascal 
 cĩ dạng:
Var : array[<chỉ 
 số đầu>..] of 
 integer;
Var : array[<chỉ 
 số đầu>..] of 
 real;
Trong đĩ, chỉ số đầu khơng lớn hơn 
2.chỉ Tham số cuối. chiếu tới phần tử của mảng 
 được xác định bằng cách:
[chỉ số] RÚT KINH NGHIỆM