Xóa kí tự trong xâu

[ducquan1008]

Viết chương trình nhập vào một xâu bất kì gồm các kí tự từ 'A' đến 'Z', in ra màn hình xâu sau khi đã xoá bỏ tất cả các kí tự 'A'.

[suemall]

Cách 1 thì dùng xâu s2:=''
S2:='';
For i:=1 to length(S1) do
IF S<>'A' then S2:=S2+S1;
write(S2);
Các bạn hãy thử viết chương trình nhưng không dùng xâu S2, dùng thủ tục Delete xem sao nhé!

[cstk235]

var   i:integer;
      s:string;

begin
      readln(s);
      for i:=length(s) downto 1 do
            if s[i]='a' then delete(s,i,1);
      writeln(s);
      readln
end.

[bluedragon0702]

bẠN HANG_VT AH, cám ơn bạn. Tại sao bạn lại nghĩ ra vòng lặp lùi, mà nếu dùng thủ tục Delete thì vòng lặp tiến sẽ không xóa được các kí tự 'A' liền nhau.

[myphamchatluong]

Cách khác, dùng vòng lặp tiến:

var s:string;i:byte;
begin
         write('Nhap xau s: ');
         readln(s);
         i:=1;
         while (i<=length(s)) do
                 if s[i]='A' then delete(s,i,1)
                    else inc(i);
         write('Xau moi la:',s);
         readln;
end.

Cách này tương tự cách chị Hằng thôi, chỉ là đổi lại vòng lặp tiến.

[manhhung2206]

bạn Binh_nguyen thu làm cách dùng vòng lặp For tiến xem sao

[ViệtNet]

Tại sao mình viết chương trình như thế này thì không được nhỉ
For i:=1 to length(S) do
While S='A' then Delete(S,i,1);
write(S);

Còn viết vòng For như thế này thì tất nhiên là không được rồi
For i:=1 to length(S) do if S='A' then Delete(S,i,1); thì sẽ không xóa hết các chữ 'A' liền nhau
Vì sau khi xóa thì độ dài của xâu sẽ thay đổi, mỗi lần xóa sẽ giảm 1 đơn vị.

[thienan]

"If ... Then ..." hoặc là "While ... Do ..." chứ bạn.
For i:=1 To Length(s) Do
If s = 'A' Then Begin Delete(s,i,1); Dec(i); End;
Write(s);

Xem cách này thử xem, mình chưa thử.

[huong2211hd]

Cách khác, dùng vòng lặp tiến:

var s:string;i:byte;
begin
         write('Nhap xau s: ');
         readln(s);
         i:=1;
         while (i<=length(s)) do
                 if s[i]='A' then delete(s,i,1)
                    else inc(i);
         write('Xau moi la:',s);
         readln;
end.

Cách này tương tự cách chị Hằng thôi, chỉ là đổi lại vòng lặp tiến.

tương tự nhưng mà hem có đúng

"If ... Then ..." hoặc là "While ... Do ..." chứ bạn.
For i:=1 To Length(s) Do
If s = 'A' Then Begin Delete(s,i,1); Dec(i); End;
Write(s);

Xem cách này thử xem, mình chưa thử.

a ơi , trong vòng for , k đc giảm hoặc tăng biến chạy [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[trungvu]

Còn viết vòng For như thế này thì tất nhiên là không được rồi
For i:=1 to length(S) do if S='A' then Delete(S,i,1); thì sẽ không xóa hết các chữ 'A' liền nhau
Vì sau khi xóa thì độ dài của xâu sẽ thay đổi, mỗi lần xóa sẽ giảm 1 đơn vị.

Giải thix của bạn k đúng , code của mình n giảm nhưng vẫn đúng đây thôi