sử dụng kiến thức đã học ở bài 12 dữ liệu kiểu xâu hãy viết câu lệnh: Để tìm xem "e" có trong xâu s3 hay không ta làm như thế nào".

j:= length(s3);

kt:='e';

dem:=0;

for i:=1 to j do

    if kt=s3[i] then

          dem:=dem+1;

if dem<>0 then 

   writeln('e co trong xau s3');

else 

   writeln('e khong co trong xau s3');

Tìm kí tự trong xâu thì ta sử dụng lệnh pos(<kí tự>, <xâu>) sẽ trả về vị trí đầu tiên tìm thấy

và trong trường hợp này làm như sau:

if pos('e',s3)<>0 then write('Co') else write('Khong');

sở dĩ phải thêm <>0 thì đây là câu lệnh if, và nếu tìm thấy sẽ cho vị trí và nếu không tìm thấy sẽ trả về số 0