GA Bài 12 Tin học 11

Tuần : ....................
Tiết : 29+30
Ngày soạn:....................
Ngày giảng:..................
Bài 12. Kiểu Xâu
I. mục tiêu của bài:
1. Kiến thức
- Biết xâu là một dãy kí tự (có thể coi xâu là một mảng một chiều).
- Biết cách khai báo xâu, truy cập đến các phần tử của xâu.
2. Kĩ năng
- Sử dụng đợc một số thủ tục, hàm thông dụng về xâu.
- Cài đặt đợc một số chơng trình đơn giản có sử dụng xâu.
3. Thái độ
- Tiếp tục khơi gợi lòng ham thích giải toán bằng lập trình trên máy tính.
- Tiếp tục rèn luyện các phẩm chất cần thiết của ngời lập trình.
II. Chuẩn bị của Giáo viên và học sinh:
1. Giáo viên: SGK, giáo án, STK (máy chiếu nếu có).
2. Học sinh: SGK, chuẩn bị trớc bài ở nhà.
III. Phơng pháp giảng dạy
- Thuyết trình, đàm thoại.
IV. Tiến trình bài học và các hoạt động:
1. ổn định tổ chức: 1
2. Kiểm tra bài cũ: (Không kiểm tra bài cũ)
3. Bài mới:
Tiết 29.
* Hoạt động 1: Đa ra một số khái niệm cơ bản về kiểu xâu
Hoạt động của GV và HS Nội dung
- GV: Đặt vấn đề: Để lu trữ và xử lý Họ
tên của một ngời, các kiểu dự liệu đã học
có đáp ứng đợc không?
- HS: Đa ra một số phơn án.

- GV: Phân tích một số phơng án của HS,
từ đó đa ra yêu cầu cần sử dụng kiếu mới:
Kiều xâu. và đa ra một số khái niệm về
kiểu xâu.
* Một số khái niệm.
- Xâu là một dãy kí tự trong bảng mã
ASCII .
- Mỗi kí tự đợc gọi là một phần tử của xâu.
- Số lợng lí tự trong xâu đợc gọi là độ dài
của xâu.
- Xâu có độ dài bằng 0 đợc gọi là xâu
rỗng.
- Tham chiếu tới các phần tử trong xâu đợc
xác định thông qua chỉ số của phần tử
trong xâu.
- Chỉ số phần tử trong xâu thờng đánh số là
1.
- Trong ngôn ngữ Pascal, tham chiếu đến
các phần tử thờng đợc viết.
<Tên biến xâu>[chỉ số]
* Hoạt động 2: Giới thiệu cách khai báo và xử lí xâu trong ngôn ngữ Pascal
Hoạt động của GV và HS Nội dung
- GV: Đa ra cách khai báo dự liệu kiểu
xâu.
- GV: Đây là cách khai báo trong ngôn
ngữ Pascal, trong ngôn ngữ khác nhau có
thể khai báo khác nhau.
- GV: Độ dài tối đa của xâu phụ thuộc
vào ngôn ngữ lập trình, thờng là 255 kí tự.
- GV: Cách viết xâu trong ngôn ngữ các

khác nhau cũng có sự khác nhau.
1. Khai báo.
- Pascal sử dụng từ khoá String để khai báo
biến xâu, độ dài tối đã của xâu không quá
255 kí tự và đặt trong dấu [ ].
Var <Tên biến>: String[độ dài tối đa
của xâu];
* Ví dụ:
Ten: String[10];
Hodem: String[8];
Quequan: String[25];
* Chú ý:
- Nếu không khai báo độ dài tối đa cho
biến xâu thì độ dài tối đa ngầm định là
255.
- Độ dài tối đa cho biến xâu là 255 kí tự.
- Hằng xâu kí tự đợc đặt trong dấu nháy
đơn.
* Hoạt động 3: Giúp cho HS biết và sử dụng một các thao tác sử lí với xâu.
Hoạt động của GV và HS Nội dung
- GV: Ví dụ có xâu kí tự nGuyen vAn
A ta cần có bao nhiêu thao tác gì để sửa
xâu kí tự này thành Nguyen Văn A?
- HS: Đa ra ý kiến của mình.
- GV: Phân tích ý kiến và gợi ý để các em
nhận ra:
+ Xoá bớt một số dấu cách.
+ Chuyển chữ hó về chữ thờng và ngợc
lại.
2. Các thao tác sử lí xâu.

a. Biểu thức xâu:
- Là biểu thức trong đó các toán hạng là
các biến xâu, biến kí tự
* Phép ghép xâu: kí hiệu + dùng để
ghép nhiều xâu thành một xâu
Ví dụ: Ha + Noi Ha Noi
* Phép so sánh: =, <>, <, <=, >, >=
Pascal tự động so sánh lần lợt từ kí tự từ
trái sang phải.
* Quy ớc:
- Xâu rỗng là xâu
- Xâu A = B nếu chúng giống hệt nhau.
- Ví dụ: Tin hoc = Tin hoc
-Xâu A > B nếu:
+ Kí tự đầu tiên khác nhau giữa chúng ở
xâu A có mã ASCII lớn hơn ở xâu B.
- Ví dụ: Ha Noi > Ha Nam
+ Xâu B là đoạn đầu của xâu A.
- Ví dụ: Xau < Xau ki tu
- GV: Giới thiệu bảng phụ (Dùng bảng
phụ các thủ tục và hàm chuản xử lí xâu)
Sau đó ứng với mỗi thủ tục và hàm GV lấy
ví dụ cụ thể
b. Các thủ tục và hàm chuẩn xử lí xâu :
(Dùng bảng phụ các thủ tục và hàm chuản
xử lí xâu).
Tiết 30.
* Hoạt động 4: Lấy một số ví dụ cụ thể về sử dụng hàm và thủ tục trong xử lí xâu.
Hoạt động của GV và HS Nội dung
- GV: Lấy một số ví dụ đê HS hiểu rõ hơn

về cách sử dụng các hàn trong xâu.
- HS: Chú ý nghe giảng và ghi bài.
- GV: Vừa giảng bài vừa hỏi HS về các
câu lệnh có liên quan đến bài. Và hỏi
thêm ý tởng thuật toán của các HS.
- HS: Chú ý nghe giảng, ghi bài, suy nghĩ
và trả lời các câu hỏi.
3. Một số ví dụ.
* Ví dụ 1: Viết chơng trình nhập vào 2 xâu
và đa ra màn hình xâu có dài hơn độ dài
lớn nhất, nếu 2 xâu bằng nhau đa ra ra xâu
nhập sau.
Program Length_xau;
Var a, b: String;
Begin
Write(Nhap xau thu nhat :);
Readln(a);
Write(Nhap xau thu hai :);
Readln(b);
If length(a)>length(b) then Writeln(a)
else Writeln(b);
Readln;
End.
- GV: Lấy một số ví dụ đê HS hiểu rõ hơn
về cách sử dụng các hàn trong xâu.
- HS: Chú ý nghe giảng và ghi bài.
- GV: Vừa giảng bài vừa hỏi HS về các
câu lệnh có liên quan đến bài. Và hỏi
thêm ý tởng thuật toán của các HS.
- HS: Chú ý nghe giảng, ghi bài, suy nghĩ

và trả lời các câu hỏi.
* Ví dụ 2: Nhập một xâu, kiểm tra xem kí
tự đầu tiên của xâu S1 có trùng với kí tự
đầu tiên của xau S2 hay không? Nếu trung
nhau báo lên màn hình là trung nhau, nếu
không thì báo không trùng
Program VD2;
Uses Crt;
Var S1,S2: String;
x:Byte;
Begin
Clrscr;
Wrtite(Nhap vao xau S1); readln(S1);
Wrtite(Nhap vao xau S2); readln(S2);
x:=length(S2);
If S1[1] = S2[x] then
Writeln(Trung nhau)
Else Writeln(Khong trung nhau);
Readln;
End.
- GV: Lấy một số ví dụ đê HS hiểu rõ hơn
về cách sử dụng các hàn trong xâu.
- HS: Chú ý nghe giảng và ghi bài.
- GV: Vừa giảng bài vừa hỏi HS về các
câu lệnh có liên quan đến bài. Và hỏi
thêm ý tởng thuật toán của các HS.
- HS: Chú ý nghe giảng, ghi bài, suy nghĩ
và trả lời các câu hỏi.
* Ví dụ 3: Nhập một xâu, viết ra màn hình
xâu đó theo thứ tự ngợc lại theo các kí tự

trong xâu.
Program VD3;
Uses Crt;
Var S1:String;
i,k:Byte;
Begin
clrscr;
Write(Nhap xau s1:);
Readln(S1);
k:=length(S1);
For i:=k downto 1 do
Writeln(S1);
Readln;
End.
- GV: Lấy một số ví dụ đê HS hiểu rõ hơn
về cách sử dụng các hàn trong xâu.
- HS: Chú ý nghe giảng và ghi bài.
- GV: Vừa giảng bài vừa hỏi HS về các
câu lệnh có liên quan đến bài. Và hỏi
thêm ý tởng thuật toán của các HS.
- HS: Chú ý nghe giảng, ghi bài, suy nghĩ
và trả lời các câu hỏi.
* Ví dụ 4: Nhập một xâu, viết ra màn hình
xâu đó nhng đã đợc bỏ tất cả các kí tự là
dấu cách.
Program VD4;
Uses Crt;
Var S1, S2: String;
i, k: Byte;
Begin

clrscr;
Write(Nhap xau s1:);
Readln(S1);
k:=length(S1);
b:= ;
For i:= 1 to k do
If S1[i] <> then S2: = S2 + S1[i];
Writeln(S2);
Readln;
End.
- GV: Lấy một số ví dụ đê HS hiểu rõ hơn
về cách sử dụng các hàn trong xâu.
- HS: Chú ý nghe giảng và ghi bài.
- GV: Vừa giảng bài vừa hỏi HS về các
câu lệnh có liên quan đến bài. Và hỏi
thêm ý tởng thuật toán của các HS.
- HS: Chú ý nghe giảng, ghi bài, suy nghĩ
và trả lời các câu hỏi.
* Ví dụ 4: Nhập một xâu, viết ra màn hình
các kí tự số của xâu đó.
Program VD4;
Uses Crt;
Var S1, S2: String;
i : Byte;
Begin
clrscr;
Write(Nhap xau s1:);
Readln(S1);
S2:= ;
For i:=1 to length(S1) do

if (S1[i] >=0 and S1[i]<=9) then
S2:=S2 + S1[i];
Writeln(S2);
Readln;
End.
V. Củng cố Dặn dò.
- Nhắc lại một số khái niệm mới.
- Nhắc lại cấu trúc câu lệnh.
- Ra BTVN.