Giáo án môn Tin học 8 - Tuần 27

Ngày dạy:
Tiết 53	 	
BÀI TẬP
I. MỤC TIấU CẦN ĐẠT
	1. Kiến thức:
 - Củng cố thờm kiến thức về biến mảng.
 - Biết cỏch sử dụng biến mảng khi viết chương trỡnh.
	- Viết chương trỡnh Pascal sử dụng biến mảng.
	2. Kĩ năng:
	- Rốn luyện khả năng đọc chương trỡnh, tỡm hiểu tỏc dụng và kết hợp cỏc cõu lệnh. 
3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch mụn học.
II. CHUẨN BỊ CỦA GIÁO VIấN VÀ HỌC SINH
1.GV: Sỏch giỏo khoa, mỏy tớnh điện tử.
2.HS: Sỏch, vở ,đọc bài ở nhà.
	III. TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC
Ổn định lớp(1’)
 Kiểm tra bài cũ: (5’) dữ liệu kiểu mảng là gỡ? Cỏch khai bỏo mảng trong pascal.
Giới thiệu bài mới: Để củng cố kiến thức bài học hụm trước hụm nay chỳng ta vào tiết bài tập.
 Bài mới
HOẠT ĐỘNG CỦA GV
HOẠT ĐỘNG CỦA TRề
NỘI DUNG
Hoạt động 1: ễn tập lớ thuyết(15’)
GV: yờu cầu học sinh nhớ lại kiến thức và trả lời cỏc cõu hỏi.
a) Nờu lại cỳ phỏp khai bỏo biến mảng.
b) Nờu lợi ớch của việc sử dụng biến mảng.
- HS Suy nghĩ và trả lời cõu hỏi
Hoạt động 2: Bài tập.(30’)
 ? Viết chương trỡnh nhập vào một dóy số nguyờn cú n phần tử. In ra màn hỡnh phần tử nhỏ nhất, phần tử lớn nhất và giỏ trị trung bỡnh của danh sỏch ra màn hỡnh 
- Yờu cầu hs suy nghĩ và viết chương trỡnh.
Program MAX_MIN_AVG;
Uses crt;
Var a:array[1..20]of
- Hs Suy nghĩ và viết chương trỡnh
Program MAX_MIN_AVG;
Uses crt;
Var a:array[1..20]of integer;i,n,max,min,sum:integer; Begin
Clrscr;
Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO');
integer;i,n,max,min,sum:integer; Begin
Clrscr;
Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO');
Writeln('-------------------------------------');
Write('Nhap so phan tu cua day n=');
readln(n); 
For i:=1 to n do
Begin
 Write('Nhap a[',i,']=');readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; Sum:=0;
For i:=1 to n do
Begin
If (Min > a[i]) then Min:=a[i];
 If (Max < a[i]) then Max:=a[i]; 
 Sum:=sum+a[i];
End
 Writeln('Day so vua nhap la: '); 
 Writeln('-------------------------');
For i:=1 to n do
Write(a[i]:4); Writeln; 
Writeln('Gia tri lon nhat la:',Max); 
Writeln('gia tri nho nhat la:',Min); 
Writeln('gia tri trung binh la:',Sum/n:6:2); 
Readln;
End;
Writeln('-------------------------------------');
Write('Nhap so phan tu cua day n=');
readln(n); 
For i:=1 to n do
Begin
 Write('Nhap a[',i,']=');readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; Sum:=0;
For i:=1 to n do
Begin
If (Min > a[i]) then Min:=a[i];
 If (Max < a[i]) then Max:=a[i]; 
 Sum:=sum+a[i];
End
 Writeln('Day so vua nhap la: '); 
 Writeln('-------------------------');
For i:=1 to n do
Write(a[i]:4); Writeln; 
Writeln('Gia tri lon nhat la:',Max); 
Writeln('gia tri nho nhat la:',Min); 
Writeln('gia tri trung binh la:',Sum/n:6:2); 
Readln;
End;
5. Sơ kết bài
*Củng cố: Chỉ ra những khiếm khuyết mà học sinh cũn mắc phài, yờu cầu khắc phục.
*Hướng dẫn về nhà: về nhà xem trước bài thực hành.
6. Rỳt kinh nghiệm:
................................................................................................................................................................................................................................................................................................
Ngày dạy:
Tiết 54 Kiểm tra thực hành (45 phút)
I/ Mục tiêu
Đánh giá kiến thức, kĩ năng của học sinh về câu lệnh lặp với số lần biết trước và câu lệnh với số lần chưa biết trước trong ngôn ngữ lập trình Pascal.
II/ Yêu cầu của đề
Kiến thức: Kiểm tra kiến thức về cấu trúc các câu lệnh đã học trong ngôn ngữ lập trình Pascal
Kĩ năng: Viết được chương trình đơn giản có sử dụng biến mảng.
III/ Đề bài
ĐỀ KIỂM TRA THỰC HÀNH 1 TIẾT Tin 8
HỌC KỲ I NĂM HỌC 2011-2012
Viết chương trỡnh nhập vào chiều cao của cỏc bạn trong lớp rồi hiện ra kết quả : 
Trong cỏc bạn đú thi ban ............cao nhat, voi chieu cao la ... (Thay dấu ... bởi tờn bạn cao nhất và chiều cao của bạn đú)
 Vớ dụ: 	Nhap chieu cao cua ban Hoang	: 1.7
Nhap chieu cao cua ban Thanh	: 1.52
	Nhap chieu cao cua ban Thang	: 1.78
Nhap chieu cao cua ban Long	: 1.62 
 Kết quả : Trong bon ban do thi ban Thang cao nhat voi chieu cao la 1.78 m