Ngôn ngữ tự nhiên - Thông tin đã có: xâu a - Thông tin cần tìm: xâu được đảo ngược lại - Khai báo - Nhập vào một xâu - gán ký tự cuối cùng của xâu b bằng độ dài xâu b - Đưa ra màn hình x[r]
Trang 127
Ngày 30/01/2010
Ngày # 02/02/2010
I- MỤC TIÊU
1 % &'
-Giúp +' sinh , - xâu là 12 dãy kí 5$
2 %;
(<: #= >?@' 12 A B ='81 thông #= DE xâu
-Cài >F >?@' 12 A '?G trình >G I có : #= xâu
II- PHƯƠNG TIỆN DẠY HỌC
1
- Giáo án, sách giáo khoa, sách giáo viên, -I *=
2
- Sách giáo khoa, 9* ghi
III- HOẠT ĐỘNG DẠY VÀ HỌC
- N >L 0O*
- %,1 tra ; A
- hành #
- %,1 tra bài 'P
Trang 2HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG CƠ BẢN
- GV ghi câu Q và + 1 HS lên -I :
Cho xâu s ‘bai hoc dau tien’
+ khai báo xâu s DO >2 dài 0O V là
16
+ length(s) -Z bao nhiêu?
+ chú ý khi làm D]' DO xâu?
+ tham
s
HS I 0_8 Câu I 0_ #5 4
+ var s: string[16]
+ length(s)=16
+ Chú ý: Tên 4, xâu, cách khai báo
4, xâu, A 0?@ kí 5 'B xâu, các
phép toán thao tác DO xâu, cách tham
+ s[9] : ‘d’
d ?O' chúng ta >3 tìm , DE khái
]18 cách khai báo, các thao tác : lý
xâu trong >J có các hàm và B ='8 và
các em >3 - hàm length cho ta
- giá L >2 dài 'B xâu ? D9 khi
D '?G trình chúng ta : #= hàm
length ra sao thì hôm nay chúng ta e >
tìm , DE >E này qua ví #= 1 'B
GV yêu
DO ngôn g 5 nhiên
HS lên -I ghi
GV Q DO D]' 9* + tên hai ?_
thì khai báo 1V - và khai báo ?
nào?
HS I 0_ và lên -I ghi
GV i' 0 câu 0] if- then # >B và
+ HS D ngôn g Pascan khi - 'V
trúc và ngôn g 5 nhiên
HS lên -I ghi
4 Các ví dụ
a) ví #= 1
Ngôn ngữ tự nhiên
- Thông tin >3 có: hai xâu a và b
- Thông tin xâu có giá L >2 dài 0O G
- Khai báo 2 xâu
- 9* + tên 'B hai ?_ vào hai - xâu
- >2 dài xâu a 0O
G xâu b thì V xâu
a ?@' 0 V xâu b
Ngôn ngữ Pascan
- input: xâu a, xâu b
- output: xâu a F' xâu b
- var a, b: string;
- write(‘Nhap vao ho ten nguoi thu nhat:
’); readln(a);
write(‘Nhap vao ho ten nguoi thu hai: ’); readln(a);
- if length(a)
>length(b) then write(a) else write(b);
Trang 3GV cho ví #= >, , rõ DE '?G trình
và yêu
trình trên V ra 4 fI là gì?
HS lên -I ghi
GV 9 xét và nêu ý ; 'B >
'?G trình
- GV Yêu
HS I 0_
- GV I thích sao *I gán ký 5
'A cùng 'B xâu b -Z giá L >2 dài
'B b
HS 0i nghe và theo dõi
Ví #= s:= ‘TIN HOC’
length(s)= 7
s[7]= ‘C’
'P chính -Z >2 dài 'B xâu nên ta có
, gán DL trí 'A cùng 'B xâu -Z
'E dài 'B xâu
- GV cho ví #= >, , rõ DE '?G
trình và yêu
'?G trình trên V ra 4 fI là gì?
HS lên -I ghi
GV 9 xét và nêu ý ; 'B >
'?G trình
Ví #= 1: a:= ‘tran nam’; length(a)=8 b:= ‘hoai phong’;
length(b)=10 length(b)>length(a) kq= ‘hoai phong’
Đây là chương trình nhập họ tên của hai người vào hai biến xâu và đưa ra màn hình xâu dài hơn, nếu bằng nhau thì đưa ra xâu nhập sau.
b, Ví #= 2
Ngôn ngữ tự nhiên
- Thông tin >3 có:
hai xâu a và b
- Thông tin hai xâu trùng nhau hay khác nhau
- Khai báo
- 9* vào hai -
xâu
- gán ký tự cuối cùng của xâu b bằng
độ dài xâu b
- 'B xâu a trùng DO
kí 5 'A cùng 'B
xâu b thì V ra trùng nhau ?@' 0
thì V ra không trùng
- u '?G trình
- 4 thúc '?G trình
Ngôn ngữ Pascan
- input: xâu a, xâu b
- output: trùng nhau
F' khác nhau
- var a, b: string;
x: byte;
- write(‘Nhap vao xâu thu nhat: ’); readln(a); write(‘Nhap vao xâu thu hai: ’); readln(b);
- x:= length(b);
- if a[1]=b[x] then
write(‘trung nhau’)
else(‘khac nhau’);
- readln
- end
- u '?G trình
- % thúc '?G trình
- readln
- end
Trang 4- GV i' 0 # 0F* lùi
j v- >1mb <giá L 'Am downto
<giá
- GV cho ví #= >, , rõ DE '?G
trình và yêu
'?G trình trên V ra 4 fI là gì?
GV 9 xét và nêu ý ; 'B >
'?G trình
GV
w các ví #= ?O' là 9* xâu và khai báo
xâu
HS lên -I ghi
Ví #= : a:= ‘tran’; a[1]= ‘n’ b:= ‘tuyet’; length(b)=5 b[9]=
‘n’
kq:trùng nhau
Đây là chương trình nhập hai xâu từ bàn phím và kiểm tra kí tự đầu tiên của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai
c) Ví #= 3
Ví #= a= ‘TIN HOC’
length(a)=7 a[7]= ‘C’
a[6]= ‘O’
a[5]= ‘H’
a[4]= ‘ ’ a[3]= ‘T’
a[2]= ‘I’
a[1]= ‘N’
kq ‘COH NIT’
y/ là '?G trình 9* vào u bàn phím
Ngôn ngữ tự nhiên
- Thông tin >3 có:
xâu a
- Thông tin xâu >?@' >I ?@' 0
- Khai báo
- 9* vào 12 xâu
- gán ký 5 'A
cùng 'B xâu b -Z
>2 dài xâu b
- y? ra màn hình xâu >?@' D theo
& 5 ?@' 0
- u '?G trình
- 4 thúc '?G trình
Ngôn ngữ Pascan
- input: xâu a
- output: xâu >I ?@' xâu a
- var a: string;
i, k: byte
- write(‘Nhap vao xâu thu nhat: ’); readln(a);
- k:= length(b);
- for i:=k downto 1
do write(a[i]);
- readln
- end
Trang 5GV ?G 5 ? ví #= 3 ta Dz gán kí 5
'A cùng 'B xâu -Z >2 dài xâu a
GV i' 0 xâu { là xâu không có kí
5 nào
- GV cho ví #= >, , rõ DE '?G
trình và yêu
'?G trình trên V ra 4 fI là gì?
HS lên -I làm
GV 9 xét và nêu ý ; 'B >
'?G trình
và >? ra màn hình xâu >J ? >?@' D theo & 5 ?@' 0
d) Ví #= 4
Ví #= O xâu >?@' 9* là a:= ‘van phong’
length(a)= 9 a[1]= ‘v’ khác kí 5 i b= ‘’ +‘v’ = ‘v’ a[2]= ‘a’ khác kí 5 i b= ‘v’+ ‘a’ = ‘va’ a[3]= ‘n’ khác kí 5 i b= ‘va’ +‘n’ =
‘van’
a[4]= ‘ ’ là kí 5 i b= ‘van’
a[5]= ‘p’ khác kí 5 i b= ‘van’ +‘p’=
‘vanp’
a[6]= ‘h’ khác kí 5 i b= ‘vanp’ +‘h’=
‘vanph’
a[7]= ‘o’ khác kí 5 i b= ‘vanph’ +‘o’=
‘vanpho’
Ngôn ngữ tự nhiên
- Thông tin >3 có: xâu a
- Thông tin xâu >3 >?@' 0 -Q
#V cách
- Khai báo
- 9* vào 12 xâu
- gán ký 5 'A cùng 'B xâu b -Z >2 dài xâu b
- %w xâu {
- y? ra màn hình xâu >?@' D theo
& 5 ?@' 0
- u '?G trình
- 4 thúc '?G trình
Ngôn ngữ Pascan
- input: xâu a
- output: xâu a không
có #V cách
- var a, b: string;
i, k: byte
- write(‘Nhap vao xâu thu nhat: ’); readln(a);
- k:= length(a);
- b:= ‘’;
- for i:=1 to k do
if a[i] <> ‘ ’ then
b:=b+a[i];
Writeln (‘ket qua:’,b);
- readln
- end
Trang 6GV
w các ví #= ?O' là 9* xâu và khai báo
xâu
HS lên -I ghi
- GV cho ví #= >, , rõ DE '?G
trình và yêu
'?G trình trên V ra 4 fI là gì?
GV 9 xét và nêu ý ; 'B >
'?G trình
a[8]= ‘n’ khác kí 5 i b= ‘vanpho’
+‘n’= ‘vanphon’
a[9]= ‘g’ khác kí 5 i b= ‘vanphon’
+‘g’ = ‘vanphong’
kq ‘vanphong’
Đây là chương trình nhập một xâu từ bàn phím và đưa ra màn hình bởi việc loại bỏ dấu cách nếu có
e) Ví #= 5
Ví #= a:= ‘11C5’
a[1]= ‘l’ 0O G 0 b= ‘’ + ‘1’ = ‘1’
a[2]= ‘1’ 0O G 0 b = ‘1’ + ‘1’ = ‘11’
a[3]= ‘C’ b= ‘11’
a[4]= RxT0O G 0 b= ‘11’ + ‘5’ = ‘115’
kq ‘115’
Đây là chương trình nhập một xâu a từ bàn phím tạo xâu b gồm tất cả các chữ số có trong xâu a
Ngôn ngữ tự nhiên
- Thông tin >3 có: xâu a
- Thông tin xâu }1 V 'I 'g A
có trong a
- Khai báo
- 9* vào 12 xâu
- %w xâu {
- y? ra màn hình xâu }1 V 'I 'g A
có trong a
- u '?G trình
- 4 thúc '?G trình
Ngôn ngữ Pascan
- input: xâu a
- output: xâu 's có 'g A
- var a, b: string;
i, : byte
- write(‘Nhap vao xâu a: ’); readln(a);
- b:= ‘’;
- for i:=1 to length(a)
do
if (‘0’<=a[i] and a[i]
<= 9) then b:=b+a[i];
Writeln (‘ket qua:’,b);
- readln
- end
Trang 7IV.CỦNG CỐ
- Cách so sánh hai xâu -Z cách #5 vào >2 dài length(s)
- %,1 tra 5 trùng nhau g 2 xâu
- 9* vào 12 xâu và cho ra & 5 ?@' 0
- ~ -Q #V cách trong xâu có
F dò +' sinh xem 0 bài 1I 12 'E và 1I hai 'E >, 'K -L bài 9* và
5' hành A 4
Thới Bình, ngày 31 tháng 01 năm 2010
Ký # ] 'B GVHD
TRẦN VĂN CHÍNH
...- Thơng tin >3 có: xâu a
- Thông tin xâu >3 >?@'' 0 -Q
#V cách
- Khai báo
- 9* vào 12 xâu
- gán ký 5 ''A ''B xâu b -Z >2 dài xâu b... nhiên
- Thơng tin >3 có:
xâu a
- Thơng tin xâu >?@'' >I ?@'' 0
- Khai báo
- 9* vào 12 xâu
- gán ký 5 ''A
cùng ''B xâu b -Z
>2... nhiên
- Thơng tin >3 có: xâu a
- Thông tin xâu }1 V ''I ''g A
có a
- Khai báo
- 9* vào 12 xâu
- %w xâu {
- y? hình xâu }1 V