Nhờ các ban kiểm tra giúp mình bài này với
Cho số tự nhiên n và xâu có độ dài n. Hãy biến đổi xâu đã cho bằng cách thay đổi trong đó :
a. Tất cả các dấu ! bằng dấu .
b. Mỗi một nhóm các dấu . liền nhau thành một dấu .
c. Mỗi một nhóm các dấu . liền nhau thành một dấu .
a )
Var S: string;
i: byte;
BEGIN
Write(' Cho mot xau ki tu S = '); Readln(S);
For i:=1 to length(S) do
If S = '!' then S:= '.';
Write( ' Chuoi sau khi da bien doi la : ', S);
Readln;
END .
b )
Uses crt;
Var S : string;
i : byte;
BEGIN
Clrscr;
Write(' Cho mot xau ki tu S = '); Readln(S);
i:=1;
While i< length(S) do
If (S='.')and(S[i+1]='.') then Delete(S,i,1)
Else inc(i);
Write('Chuoi sau khi da bien doi la: ' ,S);
Readln;
END .
c )
Uses crt;
Var S: string;
i, j: byte;
BEGIN
Clrscr;
Write('Nhap xau S='); Readln(S);
i:=1;
While i<=Length(S) do
Begin
If S='.' then
Begin
j:=i;
While (S='.')and(i<=length(S)) do inc(i);
dec(i);
If (i-j)=1 then insert('.',S,i)
Else
If (i-j)>2 then
Begin
Delete(S,j+2,i-j-2); i:=j+1;
End;
End ;
Inc(i);
End;
Write('Chuoi sau khi bien doi la: ',S);
Readln;
END .
[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
) còn xp thì mình chịu rồi nhé ^^ không còn trình duyệt nào nhanh hơn :IE: đâu babe ^^
