Giáo án dự giờ Tin học 8 Tiết 60: Bài thực hành 7 xử lí dãy số trong chương trình (t2)

Ngày soạn:13/03/2011
Ngày dạy: 17/03/2011
Lớp: 8
Giáo viên hướng dẫn: Lê Đình Trung
Giáo viên soạn: Cái Thị Hạ Ngân
Tiết 60, Bài thực hành 7 XỬ LÍ DÃY SỐ TRONG 
 CHƯƠNG TRÌNH (T2) 
 (GIÁO ÁN DỰ GIỜ)
A. MỤC TIÊU
 Sau khi học xong bài này học sinh cần đạt được các mục tiêu sau:
 1. Kiến thức:
- Thực hành khi báo và sử dụng được các biến mảng.
 2. Kỹ năng: 
 - Ôn luyện cách sử dụng câu lệnh điều kiện, lặp với số lần biết trước.
 - Củng cố kĩ năng đọc, hiểu và chỉnh sữa chương trình.
 - Hiểu và viết được chương trình với thuật toán tìm giá trị lón nhất, nhỏ nhất của một
dãy số, tính tổng dãy số.
 3. Thái độ: 
 - Hình thành phương pháp làm việc khoa học.
 - Vận dụng vào trong học tập và thực tiễn.
B.Chuẩn bị
 1. Giáo viên 
	- Bài giảng điện tử.
	- Giáo án.
	- Máy tính, Projector
 2. Học sinh
 - SGK, và dụng cụ học tập.
C. Phương pháp
	- Thuyết trình.
	- Vấn đáp.
	- Trực quan.
	- Phát hiện và giải quyết vấn đề.
 - Hướng dẫn thực hành.
D. Tiến trình lên lớp
 I. Ổn định tổ chức (1p)
	- Kiểm tra sĩ số( vắngphép,không phép).
	- Ổn định chổ ngồi học sinh.
 II. Kiểm tra bài cũ (5p)
	 Câu hỏi 1: Dữ liệu kiểu mảng là gì? Cách khai báo biến mảng trong Pascal?
 Câu hỏi 2: Trình bày cú pháp của câu lệnh lặp với số lần biết trước và câu lệnh điều kiện.
 Đáp án: 
 Câu hỏi 1: Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử có thứ tự và mọi 
phần tử đều có cùng một kiểu dữ liệu.
 Cách khai báo biến mảng trong Pascal
 Tên mảng: ARRAY [..] OF 
 Câu hỏi 2: Trình bày cú pháp của câu lệnh lặp với số lần biết trước và câu lệnh điều kiện.
 Cú pháp của câu lệnh lặp với số lần biết trước.
 FOR := TO DO ;
 Câu lệnh điều kiện.
 + IF THEN ;
 + IF THEN ELSE ;
 III. Triển khai bài mới (2p)
 Ở tiết trước thì các em đã được học cách khai báo biến mảng. Để hiểu rõ thêm về vấn đề này thì hôm nay thầy trò chúng ta đi tìm hiểu sâu hơn về nó trong tiết thực hành ngày hôm nay.
 HOẠT ĐỘNG CỦA THẦY VÀ TRÒ
NỘI DUNG BÀI MỚI
Hoạt động 1: Trình bày mục đích yêu cầu
(3p)
Tiết học hôm nay chúng ta phải thực hiện 
được các nội dung sau:
Làm quen với việc khai báo và sử dụng 
các biến mảng.
Ôn luyện cách sử dụng câu lệnh lặp 
FOR..DO.
Củng cố các kĩ năng đọc, hiểu và chỉnh 
sửa chương trình.
Thực hiện được các nội dung đó xem như 
chúng ta đã được mục đích yêu cầu của bài học.
Trình bày mục đích yêu cầu
Làm quen với việc khai báo 
và sử dụng các biến mảng.
Ôn luyện cách sử dụng câu 
lệnh lặp FOR..DO.
Củng cố các kĩ năng đọc, 
hiểu và chỉnh sửa chương trình.
Hoạt động 2: Thực hành - Bài tập 2 (30p)
GV: Gọi HS đọc đề bài ở sách giáo khoa.
 Yêu cầu HS còn lại chú ý lắng nghe.
 Ghi đề lên bảng.
HS: Đọc bài tập.
Hoạt động 2.1: Tìm hiểu ý nghĩa của các câu lệnh sau.
GV: Cho HS xem chương trình.
HS: Theo dõi.
 Hoạt động 2.2: 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ử
Thực hành - Bài tập 2 
Bài tập 2: Bổ sung và chỉnh sửa chương trình trong bài 1 để nhập 2 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 diểm trung bình = ( điểm Toán + Ngữ văn)/2); Điểm trung bình của cả lớp theo từng môn Toán và Ngữ văn.
1. Tìm hiểu ý nghĩa của các câu lệnh sau.
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);
 Readln
 End.
2. 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ử
Program BaiTap2;
 Uses crt;
 Var
 I, N: Integer;
 TbToan, TbVan: Real;
 DiemToan, DiemVan: Array[1..100] of real;
 Begin
 Clrscr;
 Write('N = ');
 Readln(N);
 Writeln(' Nhap diem: ');
 for i:=1 to N do
 begin
 Write(i,'.');
 Write(' DiemToan ');
 Readln( DiemToan[I]);
 Write(' DiemVan ');
 Readln( DiemVan[I]);
 end;
 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+ iemToan[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);
 Readln
 End.
 IV. Củng cố (3p)
 Giáo viên nhận xét và đánh giá tiết thực hành.(Những gì làm được và chưa làm được)
 V. Dặn dò (1p)
+ Nắm cú pháp và ý nghĩa các câu lệnh.
+ Đọc, tìm hiểu ý nghĩa của các câu lệnh trong các bài tập tương tự.
E. RÚT KINH NGHIỆM
	Ngày  tháng 03 năm 2011
	 Duyệt GV hướng dẫn
	 Leâ Ñình Trung