GIÁO ÁN TIN H C L P 11Ọ Ớ
Ngày so n: 28/11/2010ạ
Ngày d y: .....................ạ
Sinh viên: Thào Xuân Minh
L p: S ph m Tin K42ớ ư ạ
GVHD: Cô Ngô Th Tú Quyênị
KI U D LI U XÂU (TI T 2Ể Ữ Ệ Ế )
I. M C TIÊU:Ụ
1. Ki n th cế ứ
- Bi t ếđ cượ l i ích c a các hàm và th t c liên quan đ n xâuợ ủ ủ ụ ế
trong ngôn ng l p trình Pascal.ữ ậ
- N m đ c c u trúc chung và ch c năng c a m t s hàm và thắ ượ ấ ứ ủ ộ ố ủ
t c liên quan đ n xâu c a ngôn ng l p trình Pascal.ụ ế ủ ữ ậ
2. Kĩ năng
- Nh nậ bi t và b c đ u s d ng đ c m t s hàm và th t cế ướ ầ ử ụ ượ ộ ố ủ ụ
đ gi i quy t m t s bài t p đ n gi n liên quan.ể ả ế ộ ố ậ ơ ả
II. Đ DÙNG D Y H CỒ Ạ Ọ
1. Chu n b c a giáo viênẩ ị ủ
- Máy vi tính, máy chi u projector, ếgiáo án đi n t , sách giáo viên.ệ ử
2. Chu n b c a h c sinhẩ ị ủ ọ
- Sách giáo khoa, v ghi.ở
III. HO T Đ NG D Y-H CẠ Ộ Ạ Ọ
1. n đ nh t ch c l pỔ ị ổ ứ ớ : (1’)
L p:............T ng s :............V ng: ............ớ ổ ố ắ Lí do: ............
2. Ki m tra bài cũ:ể (8’)
Câu h i 1:ỏ (Chi u slide 2 và đ t câu h i): ế ặ ỏ Nêu cách khai báo bi n ki uế ể
xâu?(2đ) Trình bày m t s thao tác trên xâu kí t ?(2đ) Gi i thích tácộ ố ự ả
d ng c a t ng hàm và th t c?(4đ)ụ ủ ừ ủ ụ
1
Câu h i 2:ỏ (Chi u slide 3 và đ t câu h i): ế ặ ỏ L y ví d khai báo bi n Sấ ụ ế
có đ dài 30?(1đ) Cho bi t k t qu v t ra màn hình sau khi th c hi n 2ộ ế ế ả ế ự ệ
câu l nh sau: s:=‘Ha Noi’;Write(Length(S));ệ (1đ)
Đáp Án:
Câu 1:
Khai báo: Var <tên bi n> : String[đ dài l n nh t];ế ộ ớ ấ
M t s thao tác trên xâu kí t : ộ ố ự
- Phép ghép xâu :
- Các phép so sánh:
- Các th t c và hàm chu n:ủ ụ ẩ
Th t c ủ ụ Delete(St,vt,n): Xóa n kí t c a xâu St b t đ uự ủ ắ ầ
t v trí vt. ừ ị
Th t c ủ ụ Insert(s1,s2,vt): Chèn xâu s1 vào s2 b t đ u tắầừ
v trí vt.ị
Hàm Copy(S,vt,n): T o xâu g m n kí t liên ti p b tạ ồ ự ế ắ
đ u t v trí vt.ầ ừ ị
Hàm Length(S): Cho giá tr là đ dài xâu S.ị ộ
Hàm Pos(s1,s2): Cho v trí xu t hi n đ u tiên c a xâuị ấ ệ ầ ủ
s1 trong xâu s2.
Hàm Upcase(ch): cho ch cái in hoa ng v i ch cáiữ ứ ớ ữ
trong ch.
Câu 2: (Chi u slide 4):ế
Khai báo bi n S: ếVar s:string[30];
K t qu tr v là:ế ả ả ề 6
3. Ti n trình bài d y:ế ạ (30’)
D n d t ẫ ắ vào bài m i: ớ ti t tr c các em đã đ c h c cáchỞ ế ướ ượ ọ
khai báo bi n ki u xâu. Đã bi t các phép toán trên xâu và m t sế ể ế ộ ố
hàm và th t c x lí xâu. V y đ cho các em hi u rõ h n v cácủ ụ ử ậ ể ể ơ ề
2
th t c và hàm x lí xâu thì chúng ta s cùng đi nghiên c u bàiủ ụ ử ẽ ứ
ngày hôm nay đó là. Bài 12. Ki u d li u xâuể ữ ệ (Ti t 2)ế
N i dung ộbài d y: ạ
GV D n d t: ẫ ắ Chúng ta ti p t c sang ph n 3. M t s ví d .ế ụ ầ ộ ố ụ
N I DUNG GHIỘ
B NGẢ
HO T Đ NG C AẠ Ộ Ủ
GIÁO VIÊN
HO T Đ NG C A H CẠ Ộ Ủ Ọ
SINH
3. M t s ví d :ộ ố ụ
Ví d 1: ụ
+ Input: Xâu a,b là họ
tên c a hai ng i.ủ ườ
+ OutPut: In ra màn
hình xâu dài h n.ơ
Begin
...
If Length(a)>Length(b)
Then write(a)
else write(b);
End.
Ví d 2: ụ
+ Input: 2 Xâu a,b.
+ OutPut: In ra màn
hình thông báo 2 xâu
trùng nhau hay không.
Begin
...
- Chi u Slide ế5: bài
12. Ki u d li uể ữ ệ
xâu (ti t 2)ế
- Ghi b ng: ả3. M tộ
s ví d .ố ụ
- Chi u Slide 6 vàế
ghi b ng ảVí d 1.ụ
Các em hãy đ cọ
kĩ đ bài và xác đ nhề ị
input, output cho
th y? ầ
Đ xác đ nhể ị
đ c đ dài c a xâuượ ộ ủ
ta dùng hàm gì?
- Các b c gi i vàướ ả
ch ng trình nhươ ư
sau:
Chi u ti p slide 6 vàế ế
gi i thích ch ngả ươ
trình.
-Chi u slide 7:ế
- Ghi b ng: ảVí dụ
2:
Các em hãy đ cọ
kĩ đ bài và xác đ nhề ị
input, output cho
th y? ầ
- Ghi tên bài h c vào v .ọ ở
- Ghi đ m c vào v .ề ụ ở
- Ghi ví d 1 vào v .ụ ở
- Input: Xâu a,b là h tênọ
c a hai ng i.ủ ườ
- Out put: In ra màn hình
xâu dài h n.ơ
- Hàm length(s).
- Chú ý theo dõi và ghi bài
vào v .ở
- Ghi ví d vào v .ụ ở
- Input: 2 Xâu a,b.
- OutPut: In ra màn hình
thông báo 2 xâu trùng
nhau hay không.
- Hàm Length(S);
3
?
?
?
If a[1]=b[x] Then
write(‘Trung nhau’)
else
write(‘Khac nhau’);
End.
Ví d 3: ụ
+ Input: Xâu a.
+ OutPut: In ra màn
hình xâu ng c l i c aượ ạ ủ
xâu a.
Begin
...
K:=length(a);
For i:=k downto 1 do
Write(a[i]);
End.
Ví d 4: ụ
+ Input: Xâu a.
+ OutPut: Xâu t oạ
đ c t xâu a nh ng đãượ ừ ư
lo i b d u cách. ạ ỏ ấ
Begin
...
k:=length(a);
b:= ‘’ ; (*khoi tao xau
rong*)
Đ xác đ nhể ị
đ c ượ kí t cu i c aự ố ủ
xâu ta dùng hàm gì?
- Các b c gi i vàướ ả
ch ng trình nhươ ư
sau:
Chi u ti p slide 7ế ế và
gi i thích ch ngả ươ
trình.
-Chi u slide 8:ế
- Ghi b ng: ảVí dụ
3:
Các em hãy đ cọ
kĩ đ bài và xác đ nhề ị
input, output cho
th y? ầ
Đ xác đ nhể ị
đ c ượ xâu ng c l iượ ạ
c a xâu ta ph i làmủ ả
th nào?ế
- Các b c gi i vàướ ả
ch ng trình nhươ ư
sau:
Chi u ti p slide 7 vàế ế
gi i thích ch ngả ươ
trình.
-Chi u slide 9:ế
- Ghi b ng: ảVí dụ
4:
Các em hãy đ cọ
kĩ đ bài và xác đ nhề ị
input, output cho
th y? ầ
Đ xểóa đ c cácượ
- Chú ý theo dõi máy
chi u và ghi bài vào v .ế ở
- Ghi ví d vào v .ụ ở
+ Input: Xâu a.
+ OutPut: In ra màn hình
xâu ng c l i c a xâu a.ượ ạ ủ
- Ta duy t các kí t tệ ự ừ
cu i xâu lên đ u xâu.ố ầ
M i l n duy t ta in ra cácỗ ầ ệ
kí t đó. ự
- Chú ý theo dõi máy
chi u và ghi bài vào v .ế ở
- Ghi ví d vào v .ụ ở
- Input: Xâu a.
- OutPut: Xâu t o đ cạ ượ
t xâu a nh ng đã lo i bừ ư ạ ỏ
d u cách. ấ
- Ta duy t các kí t c aệ ự ủ
xâu a, N u là kí t tr ngế ự ố
thì b qua, còn không thìỏ
l u l i vào xâu b.ư ạ
- Chú ý theo dõi máy
4
?
?
?
?
?
IF a[i]<>’ ’ Then
b:=b+a[i];
write(‘Ket Qua:
’,b);
End.
Ví d 5: ụ
+ Input: Xâu s1.
+ OutPut: Xâu s2 đ cượ
t xâu s1 b ng cách l yừ ằ ấ
các ch s có trong s1.ữ ố
Begin
...
s2:=‘’;{Khoi Tao Xau
Rong}
for i:=1 to
length(s1) do
if
(‘0’=<s1[i]) and
(s1[i]<=‘9’) then
s2:=s2+s1[i];
writeln(‘Ket qua:
’,s2);
End.
d u cách trong xâu taấ
ph i làm th nào?ả ế
- Các b c gi i vàướ ả
ch ng trình nhươ ư
sau:
Chi u ti p slide 7 vàế ế
gi i thích ch ngả ươ
trình.
-Chi u slide 10:ế
- Ghi b ng: ảVí dụ
5:
Các em hãy đ cọ
kĩ đ bài và xác đ nhề ị
input, output cho
th y? ầ
Các kí t s làự ố
các kí t nh thự ư ế
nào?
Hãy nêu thu tậ
toán đ gi i bài toánể ả
trên?
- Chi u slide 11:ế
Thu t toán gi i bàiậ ả
toán và ví d .ụ
Vi t ch ngế ươ
trình d a vào thu tự ậ
toán trên?
- Chi u slide ế12:
Ch ng trình gi iươ ả
bài toán và gi i thích.ả
chi u và ghi bài vào v .ế ở
- Ghi ví d vào v .ụ ở
- Input: Xâu s1.
- OutPut: Xâu s2 đ c tượ ừ
xâu s1 b ng cách l y cácằ ấ
ch s có trong s1.ữ ố
- Là các kí t t 0->9.ự ừ
B1. Kh i t o xâu s2 r ng;ở ạ ỗ
B2. L n lầt duy t quaượ ệ
t t c các ph n t c aấ ả ầ ử ủ
xâu s1 v a nh p, n uừ ậ ế
ph n t s1[i] thu c cácầ ử ộ
kí t t 0->9 thì n p vàoự ừ ạ
xâu s2.
- Suy nghĩ và vi t thu tế ậ
toán vào nháp.
- Chú ý theo dõi máy
chi u và ghi bài vào v .ế ở
IV. C NG C VÀ D N DÒ:Ủ Ố Ặ
1. C ng c : (5’) Chi u slide 12:ủ ố ế
Qua bài h c ngày hôm nay các em c n n m v ng nh ng v n d sau:ọ ầ ắ ữ ữ ấ ề
5
?
?
?
?