IV. CÁC THỦ TỤC VÀ HÀM VẾ XÂU Kí TỰ 4.1 Hàm lấy chiều dài của xõy ký tự
4.7. Thủ tục VAL(St:String; Var Num; Var Code:Integer);
Đổi xõu số St thành số và gỏn kết quả lưu vào biến Num. Nếu việc chuyển đổi thành cụng thỡ biến Code cú giỏ trị là 0, ngược lại biến Code cú giỏ trị khỏc 0 (vị trớ của lỗi).
BÀI TẬP MẪU
Bài tập 1: Viết chương trỡnh nhập vào một xõu ký tự từ bàn phớm. Đổi xõu ký tự đú sang chữ in hoa rồi in kết quả ra màn hỡnh.
Vớ dụ :Xõu abcdAbcD sẽ cho ra xõu ABCDABCD. Uses Crt;
Var St:String; i:Byte; Begin
Write(‘Nhap xau St: ‘); Readln(St);
For i:=1 to length(St) do St[i]:=Upcase(St[i]); Write(‘Xau ket qua: ‘, St);
Readln; End.
Bài tập 2: Viết chương trỡnh nhập vào một xõu ký tự từ bàn phớm. Đổi xõu ký tự đú sang chữ thường rồi in kết quả ra màn hỡnh.
Vớ dụ :Xõu abCdAbcD sẽ cho ra xõu abcdabcd. Uses Crt;
Var St:String; i:Byte; Begin
Write(‘Nhap xau St: ‘); Readln(St); For i:=1 to length(St) do
If St[i] IN [‘A’..’Z’] Then St[i]:=CHR(ORD(St[i])+32); Write(‘Xau ket qua: ‘, St);
Readln; End.
Bài tập 3: Viết chương trỡnh đếm số ký tự chữ số trong một xõu ký tự được nhập vào từ bàn phớm.
Uses Crt; Var St:String;
i,d:Byte; Begin
Write(‘Nhap xau St: ‘); Readln(St); For i:=1 to length(St) do
If St[i] IN [‘0’..’9’] Then d:=d+1; Write(‘So ky tu chu so trong xau: ‘, d); Readln;
End.
Bài tập 4: Viết chương trỡnh nhập vào một xõu ký tự từ bàn phớm. Tỡm xõu đảo ngược của xõu đú rồi in kết quả ra màn hỡnh theo 2 cỏch: Đệ qui và khụng đệ qui.
í tưởng:
- Nếu xõu St cú 1 ký tự thỡ xõu đảo = St.
- Ngược lại: Xõu đảo = Ký tự cuối + Đệ qui(Phần cũn lại của xõu St). Uses Crt;
Var St:String;
{Giải thuật khụng đệ qui}
Function XauDao(St:String):String;
Var S:String; i:Byte; Begin
S:=’’;
For i:=Length(St) DowTo 1 Do S:=S+St[i]; XauDao:=S;
End;
{Giải thuật đệ qui}
Function DeQui(St:String):String; Begin
If Length(St)<=1 Then DeQui:=St
Else DeQui:=St[Length(St)] + DeQui(Copy(St,1,Length(St)-1)); End;
Begin
Write(‘Nhap xau St: ‘); Readln(St); Write(‘Xau dao nguoc: ‘, XauDao(St)); Readln;
End.
IV. CŨNG CỐ : Học sinh nhắc lại thủ tục đổi chữ thường sang chữ hoa. Muốn
đổi chữ hoa sang chữ thường ta làm thế nào?
V. HƯỚNG DẪN DẶN Dề
Bài tập 1: Viết chương trỡnh nhập vào một xõu ký tự từ bàn phớm. Thụng bỏo lờn màn hỡnh cỏc chữ cỏi cú trong xõu và số lượng của chỳng ( Khụng phõn biệt chữ hoa hay chữ thường).
Bài tập 2: Viết chương trỡnh xúa cỏc ký tự chữ số trong một xõu ký tự được nhập vào từ bàn phớm.
**************************************************
Ngày soạn: 11/1/2009 Ngày dạy:14/1/2009
Tiết 64-65 -66: THỰC HÀNH
1.Kiến thức: Học sinh vận dụng được cỏc phộp toỏn xữ lớ trờn xõu kớ tự để làm
bài tập
2.Kỹ năng: Cú kĩ năng phõn tớch bài toỏn, vận dụng trong thự hành trờn mỏy 3.Thỏi độ: Học sinh tớch cực, tự giỏc, hứng thỳ trong thực hành