Bài toán. Viết chương trình cho phép nhập vào xâu S. Xử lý xâu S như sau:
- Xoá các ký tự trắng thừa nằm bên trái xâu.
- Xoá các ký tự nằm bên phải xâu.
- Xoá các ký tự trắng thừa (2 ký tự trắng liên tiếp trong xâu thì loại bỏ đi một ký tự).
- Đưa xâu S đã xử lý ra màn hình
Hãy xác định Input, Output?
* INPUT: Nhập xâu S bất kỳ (chưa đúng nguyên tắc!)
* OUTPUT: Xâu S (đã xử lý theo yêu cầu)
Xoá các ký tự trắng bên trái
Thừa! Cần xoá
S
Xoá các ký tự trắng bên trái
Vẫn còn phải xoá tiếp
S
Xoá các ký tự trắng bên trái
Bên trái không còn ký tự trắng nào nữa. Kết thúc
S
Xoá các ký tự trắng bên trái
S
- Xoá các ký tự tại vị trí 1trong S:
- Câu lệnh?
- Quá trình này còn lặp đi lặp lại khi:
Delete(S,1,1)
S[1] = ‘ ‘.
Xoá các ký tự trắng bên phải
Thừa! Cần xoá
S
Xoá các ký tự trắng bên phải
Vẫn còn phải xoá tiếp
S
Xoá các ký tự trắng bên phải
Bên phải không còn ký tự trắng nào nữa. Kết thúc
S
Quan sát lại quá trình xoá
S
- Vị trí các phần tử cần xoá:
- Câu lệnh?
- Lặp lại trong khi:
- Xoá phần tử tại vị trí này:
length(S).
Delete(S,length(S),1).
S[length(S)] = ` `.
Xoá các ký tự trắng thừa trong xâu
Tìm 2 ký tự trắng liên tiếp
T
Xoa ký tự phía trước
Xoá các ký tự trắng thừa trong xâu
Tìm 2 ký tự trắng liên tiếp
Xoa ký tự phía trước
S
Xoá các ký tự trắng thừa trong xâu
Tìm 2 ký tự trắng liên tiếp
Xoa ký tự phía trước
S
Xoá các ký tự trắng thừa trong xâu
Tìm 2 ký tự trắng liên tiếp
Xoa ký tự phía trước
S
Xoá các ký tự trắng thừa trong xâu
Kết thúc
Xoá các ký tự trắng thừa trong xâu
Tìm 2 ký tự trắng liên tiếp
Làm thế nào để xác định được vị trí của ký tự đầu trong 2 trắng liên tiếp?
S
- Pos(` `, S)
Xoá các ký tự trắng thừa trong xâu
Làm thế nào để xoá đi ký tự trắng đứng đầu trong 2 ký tự liên tiếp
S
- Delete(S, Pos(` `, S), 1)
Xoá các ký tự trắng thừa trong xâu
Việc tìm kiếm ký tự trắng thừa và xoá sẽ còn được lặp đi lặp lại khi nào?
- Khi mà trong xâu vẫn còn hai ký tự trắng liên tiếp
=> Pos(` `, S) <> O
Xoá các ký tự trắng thừa trong xâu
Cách xoá các ký tự trắng thừa trong xâu chung là?
- Tìm vị trí hai ký tự trắng liên tiếp:
Pos(` `, S)
- Xoá ký tự trắng đầu:
Delete(S, Pos(` `, S), 1)
- Quá trình này lặp khi:
Pos(` `, S) <> O
- Câu lệnh?
xâu title case