Cach su dung cua ham Pos

[mrjokes]

Cho minh hoi cach su dung cua ham pos trong pascal voi?

[cunbong24]

Bất kỳ sách nào (sơ, trung, cao cấp) về Pascal đều nói về hàm này.
Cú pháp của nó: Pos(xaucon, xaume)
Chức năng: cho biết vị trí đầu tiên xâu con xuất hiện trong xâu mẹ.
1-ứng dụng 1:Viết chương trình tìm xâu con x2 trong xâu cho trước x1. bạn tự làm!
2-(khó hơn 1)Lập trình khử các ký tự trống ở giữa xâu, Ví dụ vào là:xyz abc mnopq. ra là:xyzabcmnopq
Code:
var i:byte; st:string;
Begin
Write('vao 1 xau có vài ký tự trống ở giữa xâu:'); Readln(st);
i:=Pos(#32, st); { tìm vị trí đầu tiên ký tự tróng x/ hiện trong st và lưu nó vào biến i }
{ký trự trống có mã là 32 trong ASCII table}
While (i<>0) Do
Begin
Delete(st,i,1);
i:=Pos(#32,st);
End;
Write('Xau vua nhap da xoa het cac k/tu trong ơ giua xau:',st);
Readln {có ";" hay không có ";" đều ổn!!}
End.

[auauau97]

bài xóa các kí tự trống cũng có thể viết như sau:


while pos(' ',st)<>0 do Delete(st,pos(' ',st),1);