while s[1]='_' do delete(s,1,1); while s[length(s)]='_' do delete (s,length(s),1); while pos('__',s) > 0 do delete(s,pos('__',s),1); Ai đó giải thích giúp tớ chức năng và cách hoạt động của 3 câu lệnh này một cách chi tiết ạ

PASCAL:

3 câu lệnh này dùng để xóa các ký tự '_' thừa có trong xâu s. (Nó khá giống với bài chuẩn hóa xâu)
giải thích các câu lệnh:

`@` while s[1]='_' do delete(s,1,1);

`->` kiểm tra xem có kí tự '_' ở đầu xâu hay không, nếu có thì xóa đi

`@` while s[length(s)]='_' do delete (s,length(s),1);

`->` (tương tự như trên) kiểm tra xem có kí tự '_' ở cuối xâu hay không, nếu có thì xóa đi

`@` while pos('__',s) > 0 do delete(s,pos('__',s),1);

`->` Kiểm tra xem, có 2 kí tự '_' nằm liền nhau không, nếu có thì xóa đi 1 kí tự

vd:

s = '__Nguyen___Bao_Nam__________'

`->` Nguyen_Bao_Nam

<có thể xem ảnh>

while s[1]='_' do delete(s,1,1); -> câu lệnh này thực hiện xoá tất cả ký tự "_" ở đầu xâu

while s[length(s)]='_' do delete (s,length(s),1); -> câu lệnh này thực hiện xoá tất cả ký tự "_" ở cuối xâu

while pos('__',s) > 0 do delete(s,pos('__',s),1);-> câu lệnh này thực hiện xoá tất cả các ký tự "__" liên tiếp.

Hoạt động:

câu lệnh 1

B1: kiểm tra xem ký tự đầu tiên của xâu s có phải là ký tự "_"hay không

B2: nếu là ký tự trắng ->B3 ngược lại ->B4

B3: xoá 1 ký tự ở vị trí thứ  nhất của xâu s

B4: thoát

câu lệnh 2:

B1: kiểm tra xem ký tự cuối cùng của xâu s có phải là ký tự "_" hay không

B2: nếu là ký tự trắng ->B3 ngược lại ->B4

B3: xoá 1 ký tự ở vị trí cuối cùng của xâu s

B4: thoát

câu lệnh 3:

B1: tìm xem trong xâu s có 2 ký tự "_"liên tiếp hay không

B2: nếu có thì giá trị của pos('__',s)>0 ->b3 ngược lại tức là giá trị của pos('__',s)<0 ->B4

B3: xoá 1 ký tự tại vị trí tìm được 2 ký tự "__" liên tiếp

B4: thoát

=============================

tác dụng của 3 câu lệnh trên là dùng để chuẩn hoá 1 xâu:

VD:"___Hoi____Dap 247____"

sau khi thực hiện 3 câu lệnh trên xâu sẽ biển đổi thành:

"Hoi_Dap_247"