Giáo án môn Tin học Lớp 8 - Tiết 58, Bài thực hành 7: Xử lý dãy số trong chương trình (Tiết 1)

.
III.HOẠT ĐỘNG DẠY - HỌC
1.Ổn định lớp
2. Kiểm tra bài cũ
* Câu hỏi: 
CH1: Chỉnh sửa và chạy đoạn chương trình sau:
Program max;
Var I,n,max: integer
A: array [1..50] of integer
Begin
Write (‘nhap do dai day so’); readln (n)
Writeln (‘nhap cac phantu cua day so’);
For i:=1 to n do
 	Write (‘a[‘ ,I, ‘]=’); readln (a[i]);
Max : =a[1];
For i:=2 to n do
 I	if max < a[i] then 
max := a[i];
 	Write (‘so lon nhat la’, max);
 Readln;
* Trả lời: 
-> Thêm dấu chấm ; sau các lệnh.
Bổ sung từ khóa begin và end sau vòng lặp nhập.Từ khoá End. để kết thúc.
Nhấn alt +F9 để dịch và ctrl+9 để chạy chương trình.
3.Nội dung bài mới
* Giới thiệu bài mới: 
* Tiến trình bài dạy:
Hoạt động giáo viên - Học sinh
Nội dung

- Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ? 
- HS chia nhóm làm thực hành.
- 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á, TB và kém.
Tiêu chuẩn:
- Loại giỏi: 8.0 trở lên
- Loại khá: 6.5 đến 7.9
- Loại TB: 5.0 đến 6.4
- Loại kém: dưới 5.0
HS chia nhóm làm thực hành.
GV gợi ý: 
- Dùng câu lệnh ifthen
Bài 1: 
Program P_Min;
Var
 i, n, Min : integer;
 A: array[1..100] of integer;
Begin
 write('Hay nhap do dai cua day so, N = '); readln(n);
writeln('Nhap cac phan tu cua day so:');
 For i:=1 to n do
 Begin
 write('a[',i,']='); readln(a[i]);
 End;
 Min:=a[1];
 for i:=2 to n do if Min>a[i] then Min:=a[i];
 write('So nho nhat la Min = ',Min);
 readln;
End.
Bài 2: 
Program Phan_loai;
uses crt;
	Var
	i, n, G, Kh, TB, K: integer;
	A: array[1..100] of real;
	Begin
	clrscr;
	write('nhap so HS trong lop, n= ');
	readln(n);
	writeln('Nhap diem :');
	for i:=1 to n do
	begin
	write(i,' . '); readln(a[i]);
	end;
	G:=0; Kh:= 0; TB:= 0; K:= 0;
 	for i:=1 to n do 
	begin
	if a[i] >= 8.0 then G:= G + 1;
	if a[i] <5.0 then K:= K + 1;
	if (a[i] =6.5) then
	Kh:= Kh + 1;
	if (a[i] >= 5 ) and (a[i] < 6.5) th