Bài tập về xâu
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (80.42 KB, 2 trang )
Nội dung của bài toán:
Nhập vào một xâu bất kỳ sau đó in ra
màn hình hai xâu: xâu chữ số và xâu
các kí tự còn lại.
Hướng giải quyết:
Xây dựng một hàm, hàm này gồm một
tham số, tham số này ghi nhận xâu các
kí tự còn lại của xâu, còn giá trị trả về
của hàm là một xâu chứa các chữ số.
Function LocXau(Var S:string):String;
Var St1, St2:string;i:Byte;
Begin
St1:=‘ ‘;
For i:=1 to Length(s) Do
If (‘0’<=S[i]) And (S[i]<=‘9’) Then
St1:=St1+S[i]
S:=St2;
End;
BEGIN
END.
Nhap vao mot xau:
a12b3c4d
Writeln(‘Nhap vao mot xau:’);
Readln(s);
Writeln(‘Xau Chu La:’,S);
Var s:string;
Program LocXauSo;
Else
St2:=St2+S[i];
Writeln(‘Xau So La:’,LocXau(s));
a
3
b
2
1
c
d
4
S ST1
1
2
3
4
St2:=‘ ‘;
ST2
a
b
c
d
LocXau:=St1;
S=
Xau So La:1234
Xau Chu La:abcd
