Giáo án tin lớp 11
Tit 33: Bài tập kiểu bản ghi
I- Mc tiờu:
- Củng cố kiến thức lập trình dữ liệu kiểu kiểu xâu và kiểu bản ghi.
II- Kin thc:
Kiến thức về dữ liệu kiểu, xâu và kiểu bản ghi.
Khai báo biến kiểu xau, kiểu bản ghi
Tham chiếu tới biến kiểu xâu và kiểu bản ghi
Phân biệt đợc sự giống và khác nhau giữa các kiểu dữ liệu trong lập trình.
III_ K nng:
Viết đợc các chơng trình giải quyết các bài tập thờng gặp đơn giản trong họa tập
và đời sống.
IV nội dung bài mới:
1- kiểm tra bài cũ:
a ) Lí thuyết:
+ Một học sinh lên bảng thể hiện phần lí thuyết khai báo và nhập, xuất dữ liệu
kiểu bản ghi.
b) Bài tập:
Một học sinh lên làm bài 11 (trang 80 SGK)
Một học sinh viết chơng trình bài 10 (trang 80 SGK)
2- bài tập tại lớp:
+ Bổ xung yêu cầu trong bài 10 trang 80: Thay thế tất cả các kí tự số (0,1,2, 9)
bằng xâu So . Viết xâu mới ra màn hình.
Phơng pháp Nội dung
Bài 10 trang 80
* Gợi ý: Chữ số ở đây ta hiểu là kí tự sô
(0,1,2,3, 9)
*Xác định bài toán:
Input: S
Output: dem_so
* Visste CT viết CT với các cách khác

nhau.
PROGRAM bai110_tr80;
USES wincrt;
VAR a:String[100]; ds,n,i:byte;
label l;
BEGIN
l: CLRSCR;
write('nhap xau a= ') ;readln(a);
n:=length(a);
If n>100 then
begin
write('xau a dai>100,nhap lai');
readln; goto l;
end; ds:=0;
For i:=1 to n do
if (a[i]='0') or (a[i]='1') or
(a[i]='2') or (a[i]='3') or
(a[i]='4') or (a[i]='5') or
(a[i]='6') or (a[i]='7') or
(a[i]='8') or (a[i]='9') then
ds:=ds+1;
write('xau ',a,' co ',ds,' ki tu so ');
Bài 10 trang 80
C2:
PROGRAM bai110_tr80;
USES wincrt;
VAR a:String[100];
dem,n,i:byte;
ds:array[ 0 .. 9 ] of bety;
ch:char;

label l;
BEGIN
l: CLRSCR;
write('nhap xau a= ') ;readln(a);
n:=length(a);
If n>100 then
begin
write('xau a dai>100,nhap lai');
readln; goto l;
end;
For i:= 0 to 9 do
Ds[ch]:=0;
For i:=1 to length(a) do
Ds[a[i]]:=ds[a[i]]+1; Dem:=0;
For ch:= 0 to 9 do
if ds[ch])>0 then
dem:=dem+1; write('xau ',a,' co ',dem,' ki tu so ');
readln end.
Trờng THPT Dơng Xá Năm học 2008-2009
74
Giáo án tin lớp 11
readln end.
Bài 10 trang 80
Cần bổ sung câu lện thế nào để chỉ đa ra
danh sách nhứng học sinh xếp loại A.
Bài 11 trang 80

Writeln( danh sach hoc sinh xep loai A : );
For i:=1 to n do
Begin

If upcase(lop[i].xeploai)= A then
Writeln(lop[i].hoten:30, xep loai ,lop[i].xeploai:5);
End;
Readln
End.
3- Nhận xét bài tập đàm trên bảng và hoàn thiện CT
4- Một học sinh lên bổ sung bài 10 theo yêu cầu chèn: So vào vị trí accs kí tự số
5- Nhắc nhở và rút kinh nghiệm trung.
Bài tập về nhà: Ôn lại toàn bộ phần lí thuyết phần mảng.
Chuẩn bị bài từ 1 tới 9 (trang 79,80 SGK
Tit 34 bài tập
tổng hợp các kiểu dữ liệu
II- Mc tiờu:
- Củng cố kiến thức lập trình dữ liệu kiểu mảng, kiểu xâu và kiểu bản ghi.
II- Kin thc:
Kiến thức về dữ liệu kiểu mảng, xâu và kiểu bản ghi.
Phân biệt đợc sự giống và khác nhau giữa các kiểu dữ liệu trong lập trình.
Chuẩn bị các bài tập trang 79,80.
1- kiểm tra bài cũ:
a ) Lí thuyết:
+ Một học sinh lên bảng thể hiện phần lí thuyết khai báo và nhập, xuất dữ liệu kiểu bản ghi.
b) Bài tập:
Một học sinh lên làm bài 5 (trang 79 SGK)
Một học sinh viết chơng trình bài 6 (trang 79 SGK)
Một học sinh viết chơng trình bài 7 (trang 79 SGK)
2- bài tập tại lớp:
+ Bổ xung yêu cầu trong bài 6 trang 80: Tính tổng các số nguyên tố trong dãy
Phơng pháp Nội dung
Bai 5 trang 79
Thế nào là day số cấp số

cộng?
Mô tả thuật toán.
Viết chơng trình?
PROGRAM bai5_tr79;
USES wincrt;
var a:array[1..100] of integer;
i,N,d :integer;
b:boolean;
label l;
BEGIN
CLRSCR;
write('cho biet so phan tu trng day N= ); readln(N);
For i:=1 to N do
begin
l: write('Gia tri phan tu thu ',i,' = '); readln(a[i]);
if abs(a[i])>1000 then
begin write('Chi nhap so >=-1000 va <=100. bam enter
nhap lai'); readln;
clrscr; goto l; end; end;
d:=a[2]-a[1]; b:=true;
For i:=3 to N-1 do
if a[i]-a[i-1]<>d then b:=false;
clrscr;
for i:=1 to n do
Trờng THPT Dơng Xá Năm học 2008-2009
75
Giáo án tin lớp 11
Bài 6 trang 79
Bài số 7 trang 70
Tính chất của dẫy trong day

phi_bo_na_xi
Một dẫy số đợc gọi là dẫy
phi_bo_na_xi nếu
F
N
=F
N-1
+F
N-2
;
Và N>=2
* Mô tả thuật toán
B1: Nhập N
B2: f11; F21; i3;
B3: i<=n thì
ff1+f2; f1f2; f2f;
ii+1; về B3
B4: Viết ra số hạng thứ N trong
dẫy phi_bô_na_xi.
B5 KT
write(a[i]:5); writeln;
if b then writeln('day so tren la mot cap so cong')
else
write('day so tren khong la mot cap so cong');
readln end.
PROGRAM bai6_tr79;
USES wincrt;
var a:array[1..100] of integer;
i,N,dc,dl,snt,u :integer;
label l;

BEGIN
CLRSCR;
write('cho biet so phan tu trng day N= ');
readln(N);
For i:=1 to N do
begin
l: write('Gia tri phan tu thu ',i,' = '); readln(a[i]);
if abs(a[i])>1000 then
begin write('Chi nhap so >=-1000 va <=100. bam enter
nhap lai');
readln;clrscr; goto l; end; end;
dc:=0; dl:=0; snt:=0;
For i:=1 to N do
if a[i] mod 2<>0 then dl:=dl+1
else if a[i] mod 2=0 then dc:=dc+1 ; u:=2;
For i:=1 to N do
begin
while (u<=sqrt(a[i])) and ((a[i] mod u)<>0) do
u:=u+1;
if u>sqrt(a[i])then snt:=snt+1; end;
writeln('so so chan: ',dc:4,' so so le : ',dl);
write('so luong so nguyen to : ',snt:4);
readln; end.
Bài số 7 trang 70
PROGRAM bai1th_5;
USES wincrt;
VAR f,i,n,f1,f2:integer;
BEGIN
CLRSCR; write('so N= ') ;readln(N);
f1:=1; F2:=1; i:=3;

while i<=n do
begin
f:=f1+f2; f1:=f2; f2:=f; i:=i+1; end;
write('so hang thu ',n,' trong day phi_bo_na_xi ',f:7);
readln; end.
3- Nhận xét bài tập làm trên bảng và hoàn thiện CT
4- Một học sinh lên bổ sung bài 6,7
5- Nhắc nhở và rút kinh nghiệm trung.
Bài tập về nhà:.Chuẩn bị bài từ 8 và 9 (trang 79,80 SGK tiết sau thực hành trên máy tất
cả các bài đã làm
Trờng THPT Dơng Xá Năm học 2008-2009
76
Giáo án tin lớp 11
Tit 35 thực hành bài 8 và bài 9
I- Mc tiờu:
- Củng cố kiến thức lập trình dữ liệu kiểu mảng, kiểu xâu và kiểu bản ghi.
II- Kin thc:
Kiến thức về dữ liệu kiểu mảng, xâu và kiểu bản ghi.
Phân biệt đợc sự giống và khác nhau giữa các kiểu dữ liệu trong lập trình.
Chuẩn bị các bài tập trang 79,80.
III_ K nng:
gièn luyện khả năng thực hành trên máy
Gièn tính kiên trì, tính chính xác trong lập trình.
IV nội dung bài mới:
Củng cố kiết thức về kiểu mảng, kiểu xâu và kiểu bản ghi.kiểu xâu và kiểu bản ghi.
Phơng pháp Nội dung
Bài 8 trang 79
* Mô tả thuật toán của chơng trình
và cho biết chơng trình thực hiện
công việc gì? kết quả sau khi thực

hiện chơng trình?
* Để có đợc mảng đối xứng với
mảng ban đầu ta cần thực hiện
các bớc tráo đổi nh thế nào?
Bài 9 trang 79
* Mô tả thuật toán của chơng
trình?
* Hãy sửa lại chơng trình khi thay
yêu cầu tìm kiếm trong mỗi hàng
bằng tìm kiếm trong mỗi cột.
Bài 8 trang 79
Chơng trình thực hiện việc hoán đổi vị trí các dòng đối xớng
trong mảng hai chiều. Việc hoán đổi đợc thực hiện khi I nhận
giá trị từ 1 tới N làm cho mỗi dòng đợc hoán đổi vị trí 2 lần, vì
vậy cuối cùng mảng A không thay đổi so với ban đầu.
Bài 9 trang 79
Gợi ý: trong phần tráo đổi trong chơng trinh ta chỉ cần đổi I
thành J còn J thành I là đợc.
Cng c: Kiểu dữ liệu có cấu trúc Vận dụng các thủ tục, các hàm để sử lí dữ liệu có cấu trúc.

Tiết 36 Kiểm tra học kì I
III- Mc đích:
- Củng cố kiến thức lập trình và khả năng sử dụng dữ liệu kiểu mảng, kiểu xâu và kiểu bản ghi vào
trong lập tình Pascal.
II- Kin thc:
Cấu trúc chơng trình
Các kiểu dữ liệu chuẩn.
Các thủ tục vào ra trong Pascal
Các cấu trúc rẽ nhánh, cấu trúc lặp với số lần lặp biết trớc và không biết trớc.
Kiến thức về dữ liệu kiểu mảng, xâu và kiểu bản ghi.

Khả năng sử dụng linh hoạt các kiến thức đã học vào lập trình
III_ K nng:
Lập trình các bài tập đơn giản với các kiểu dữ liệu khác nhau.
IV nội dung bài mới:
Đề kiểm tra theo đề trung của tổ trong túi lu đề kiểm tra môn tin
Trờng THPT Dơng Xá Năm học 2008-2009
77