Giáo án Tin học 11 tiết 32+ 33: Bài tập

Ngày soạn: 24/02 /2008
BÀI TẬP
I. MỤC TIÊU BÀI HỌC:
1. Kiến thức:	Củng cố lại các kiến thức đã học:
-Một số kiểu dữ liệu có cấu trúc: Kiểu mảng, kiểu xâu, kiểu bản ghi;
-Cách khai báo kiểu, khai báo biến của dữ liệu có cấu trúc;
-Cách tham chiếu đến phần tử của mảng, của xâu và trường của bản ghi.	
2. Kỹ năng:
-Biết khai báo kiểu dữ liệu có cấu trúc.
-Viết chương trình giải một số bài toán đơn giản.
3. Thái độ: Tự giác, tích cực, chủ động trong giải quyết các bài tập.
II. CHUẨN BỊ:
1. Chuẩn bị của giáo viên: SGV, SGK, SBT.
2. Chuẩn bị của học sinh: SGV, SBT.
III. TIẾN TRÌNH LÊN LỚP:	(Tiết PPCT: 32)
1. Ổ định, tổ chức lớp: CBL báo cáo sĩ số.
2. Kiểm tra bài cũ: Thông qua giải bài tập.
3. Bài giảng:
Hoạt động của Thầy và Trò
Nội dung ghi bảng
Hoạt động 1:
-Nội dung: Bài 5 SGK tr79.
-Mục tiêu: HS biết được thuật toán kiểm tra dãy số là cấp số cộng hay không trong NNLT Pascal.
-Các bước tiến hành:
HS: Đọc nội dung bài 5 SGK tr79.
GV: Yêu cầu HS cho biết Input, Output của bài toán.
HS: Đưa ra Input, Output của bài toán.
GV: Hướng dẫn HS phân tích bài toán.
HS: Chú ý theo dõi, suy nghĩ vàđưa ra cách giải.
GV: Hướng dẫn HS viết chương trình hòan chỉnh.
HS: Lên bảng viết chương trình.
Hoạt động 2:
-Nội dung: Bài 6 SGK tr79.
-Mục tiêu: HS biết được thuật toán kiểm tra số nguyên tố, số chẵn, số lẻ trong NNLT Pascal.
-Các bước tiến hành:
HS: Đọc nội dung bài 5 SGK tr79.
GV: Yêu cầu HS cho biết Input, Output của bài toán.
HS: Đưa ra Input, Output của bài toán.
GV: Hướng dẫn HS phân tích bài toán.
HS: Chú ý theo dõi, suy nghĩ vàđưa ra cách giải.
GV: Hướng dẫn HS viết chương trình hòan chỉnh.
HS: Lên bảng viết chương trình.
Bài 5: chương trình hoàn chỉnh:
program Bai5_chuong4;
const max = 100;
var A : Array[1..max] of integer;
 N, i, d: integer;
 kt: boolean;
Begin
 write('Nhap so luong phan tu cua day A, N=');
 readln(N);
 for i:= 1 to N do
 begin
 write('A[',i,']=');
 readln(A[i]);
 end;
 d:= A[2] - A[1];
 kt:= true;
 for i:=2 to N do
 if A[i] - A[i-1] d then kt:= false;
 for i:=1 to N do
 write(A[i]:3);
 writeln;
 if kt then write('Day A la mot cap so cong')
 else write('Day A khong la mot cap so cong');
 readln
End.
Bài 6: 
program Bai6_chuong4;
var A : Array[1..100] of integer;
 N, i, u: integer;
 so_nt, so_chan: integer;
Begin
 so_chan := 0; so_nt :=0;
 write('So phan tu cua day A, N=');
 readln(N);
 while (N100) do
 begin
 write('Nhap lai, so phan tu cua day A');
 readln(N);
 end;
 for i:=1 to N do
 begin
 write('A[',i,']='); readln(A[i]);
 if A[i] mod 2 = 0 then 
 so_chan:= so_chan + 1;
 if A[i]>1 then
 begin
 u:=2;
 while (u <= sqrt(A[i])) and 
 ((A[i] mod u) 0) do
 u := u+1;
 if u > sqrt(A[i]) then so_nt := so_nt +1;
 end;
 end;
 writeln('so luong so chan:', so_chan);
 writeln('so luong so le:',N - so_chan);
 writeln('so luong so nguyen to:', so_nt);
 readln
End.
4.Tổng kết nội dung, đánh giá cuối bài: 
	Củng cố và đánh giá qua từng câu hỏi bài tập.
5.Dặn dò, kế hoạch học tập tiết sau: 
-Về nhà xem lại các bài đã giải trên lớp;
	-Chuẩn bị trước bài: 7, 10, 11 (SGK tr79-80)
IV. NHỮNG VẤN ĐỀ CẦN RÚT KINH NGHIỆM: