V. BÀI TẬP VỀ NHÀ
a) Viết chương trình nhập vào một xâu kí tự bất kì có cả kí tự số Hỏi trong xâu vừa nhập có bao nhiêu kí tự số.
nhiêu kí tự số.
Program bta;
Var St: String;I,d,v:Integer; Begin
Val(st[i],v,c);
If c= 0 then d:=d+1; End;
Write(‘so ki tu so trong xau la:’);Writeln(d); Readln;
End.
b) Viết chương trình nhập vào một xâu kí tự bất kì có cả kí tự số. Tính tổng tất cả các kí tự số trong xâu.
Program btb;
Var St: String;I,d,v:Integer; Begin
Write(‘nhap va mot xau ki tu:’);Readln(St); d:=0;
For i:=1 to length(St) do Begin
Val(st[i],v,c);
If c= 0 then d:=d+v; End;
Write(‘so ki tu so trong xau la:’);Writeln(d); Readln;
End.
c) Viết chương trình nhập vào 3 số nguyên a,b,c. a là ngày, b là tháng, c là năm sinh của
1HS. Ghép theo thứ tự là ngày tháng năm các số vừa nhập thành xâu kí tự số. vd: nhap 3 so la a=12,b=2,c=1992. Kết quả là st=12/2/1992;
Program btc;
Var St: String;I,d,v:Integer; Begin
Write(‘nhap so thu 1:’);Readln(a); Write(‘nhap so thu 2:’);Readln(b); Write(‘nhap so thu 3:’);Readln(c); Str(a,sa);
Str(b,sb); Str(c,sc); d:=0;
st=sa+ ‘/’ +sb+ ‘/’ +sc;
Write(‘ket qua la:’);Writeln(st); Readln;
End.
GV: Lưu Thị Bích Hạnh
Việt Trì, ngày…. tháng…. năm…. Duyệt của tổ trưởng
Tuần: 28 Ngày soạn:
Tiết: 55, 56 Ngày dạy:
THỰC HÀNH CHUYỂN ĐỔI SỐ VÀ XÂU KÍ TỰI. MỤC TIÊU I. MỤC TIÊU
* Biết được cách chi xuất các phần tử của xâu.
* Thành thạo trong việc sử dụng một số hàm và thủ tục trên xâu.
II. CHUẨN BỊ
GV: * Một số ví dụ thực tế.
HS: * Ôn lại một số thủ tục và hàm trên xâu.
III. BÀI MỚI
1) Viết chương trình nhập vào một xâu kí tự bất kì có cả kí tự số. Hỏi trong xâu vừa nhập có bao nhiêu kí tự số. nhiêu kí tự số.
Program bta;
Var St: String;I,d,v:Integer; Begin
Write(‘nhap va mot xau ki tu:’);Readln(St); d:=0;
For i:=1 to length(St) do Begin
Val(st[i],v,c);
If c= 0 then d:=d+1; End;
Write(‘so ki tu so trong xau la:’);Writeln(d); Readln;
End.