Преобразование строк

[swillrocker]

Преобразовать строку таким образом, чтобы после каждого заданного символа sym1 был вставлен символ sym2, если sym2 не следует за sym1 в исходной строке.
(Составить программу для решения задачи таким образом, чтобы решение каждой подзадачи описывалось подпрограммой. Библиотечные функции для работы со строками не использовать.)

const n=10;
var s:string[n];
    sym1,sym2:char;
    i:byte;
begin
sym1:='a';
sym2:='b';
for i:=1 to n do
readln(s[i]);
for i:=1 to length(s) do
if s[i]=sym1 then s[i+1]:=sym2;
for i:=1 to n do
write(s[i]);
readln;
end.

Что-то не так делаю...)

[Mandrivnyk]

if (s[i]=sym1 AND s[i+1]<>sym2) then s[i+1]:=sym2;

Как-то так, наверное...

[swillrocker]

Сообщение от Mandrivnyk

if (s[i]=sym1 AND s[i+1]<>sym2) then s[i+1]:=sym2;

Как-то так, наверное...

Error 41: Operand types do not match operator.

Да и по сути нужно вставить sym2 между sym1 и следующим символом.
А это действие заменяет )

[Utkin]

if (s[i]=sym1) AND (s[i+1]<>sym2) then s[i+1]:=sym2;

Попробуй так

[swillrocker]

Сообщение от Utkin

if (s[i]=sym1) AND (s[i+1]<>sym2) then s[i+1]:=sym2;

Попробуй так

Если бы требовалась замена символа, следующего за sym1, символом sym2, то это бы хорошо подошло. Но проблема в том, что нужно вставить этот символ не "стирая" уже имеющиеся. М.б. сместить строку как-нибудь...
Например строка: asdasdasd(при sym1=a sym2=b) должна иметь вид absdabsdabsd

[Mandrivnyk]

Сообщение от swillrocker

Если бы требовалась замена символа, следующего за sym1, символом sym2, то это бы хорошо подошло. Но проблема в том, что нужно вставить этот символ не "стирая" уже имеющиеся. М.б. сместить строку как-нибудь...
Например строка: asdasdasd(при sym1=a sym2=b) должна иметь вид absdabsdabsd

Объяви второй массив и пиши в него в цикле.

[Utkin]

Ну или просто наполняй пустую строку символами вместо массива (что по сути одно и тоже).

[swillrocker]

Вот, даже в двух вариантах.

I.

var
   n,i: integer;
   sym1,sym2,ch: char;
   s: string;
begin
  write('Enter number of symbols: ');
  readln(n);
  write('Enter first symbol(sym1): ');
  readln(sym1);
  write('Enter second symbol(sym2): ');
  readln(sym2);
  writeln('Enter string: ');
  s:='';
   for i:=1 to n do
     begin
       readln(ch);
       s:=s+ch;
     if (ch=sym1) then
         s:=s+sym2;
     end;
writeln(s);
readln;
end.

II.

Var
 l,n:string;
 i,j:byte;
 c,s:char;
begin
write('Введите строку: ');
readln(l);
write('Введите символ за которым вставить: ');
readln(c);
write('Введите символ который вставляется: ');
readln(s);
 for i:= Byte(l[0])-1 downto 1 do
  if (l[i]=c) and (l[i+1]<>s) then
  begin
   n:=l[Byte(l[0])];
   for j:= Byte(l[0]) downto i+1 do
    l[j+1]:=l[j];
   l[i+1]:=s;
   l:=l+n;
  end;
if l[Byte(l[0])]=c then l:=l+s;
write(l);
end.