| Vladimir_S |
31.05.2011 16:13 |
Цитата:
Сообщение от Александр15
(Сообщение 529508)
3)Дана последовательность символов. Если какой либо символ в ней встречается более трех раз,заменить его на "*" при втором и третьем вхождении.
|
Ну что же - подобно многим нашим заказчикам, 15 Александров, очевидно, дали страшную клятву не выдавать язык программирования, на котором должно быть выполнено задание, даже под пытками. Рискну, однако, предположить, что подразумевается Паскаль, а не, скажем, Делфи. Если так, то
Код:
VAR
S,C:String;
i,j,N,k,p:Byte;
Ch:Char;
BEGIN
Writeln('Enter the string');
Readln(S);
C:='';
For i:=1 to Length(S) do
begin
N:=0;
Ch:=S[i];
for j:=i to Length(S) do
if S[j]=Ch then Inc(N);
If (N>3) and (Ch<>'*') then
begin
p:=Pos(Ch,C);
If p=0 then
begin
C:=C+Ch;
for k:=1 to 3 do
begin
j:=Pos(Ch,S);
Delete(S,j,1);
if k=1 then Insert('$',S,j) else Insert('*',S,j);
end;
j:=Pos('$',S);
Delete(S,j,1);
Insert(Ch,S,j);
end;
end;
end;
Writeln(S);
Readln
END.
Единственное ограничение - среди символов исходной строки не должно быть значка $. |
