Замена символов в строке

[spaincome]

Текст задачи: Написать программу которая считав строку преобразует ее следующим образом:

строка анализируется и преобразуется сначала и до тех пор, пока не встретиться символ #. данный символ обязательно присутствует в строке ;

символ точки, преобразуется на символ восклицательный знак;

восклицательный знак преобразуется в «два восклицательных знака подряд»;

символ запятой, преобразуется в символ «+»;

И в конце вывести количество преобразований

Формат ответа: файл с исходным кодом решения задачи на одном из допустимых языков программирования.

ЯП:Pascal

Входные данные (программа должна считать):

STR (тип данных : строка) — Строка для преобразования. Длина строки не превышает 255 символов

Выходные данные (программа должна вывести):

Преобразованная строка согласно правилам и количество проделанных преобразований.

Значения должны быть выведены каждый раз с новой строки и соблюдая приведенную выше последовательность

[rubius2008]

...
i:=1;
while s[i]<>'#' do begin
  if s[i]='!' then begin
     insert('!',s,i);
     i:=i+1;
  end
  else if s[i]='.' then s[i]='!'
         else if s[i]=',' then s[i]='+';
  i:=i+1;
end;
...

[Serge_Bliznykov]

во-первых, не проверял, но боюсь, что код

  if s[i]='!' then begin
     insert('!',s,i);
     i:=i+1;
  end

приведёт к бесконечному циклу, пока память под строку не переполнится (будет вставляться восклицательный знак и на следующем шаге он же и будет обрабатываться, значит, будель вставляться восклицательный знак и т.д.

а во-вторых, вы забываете подсчитать количество операций...

[rubius2008]

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

во-первых, не проверял, но боюсь, что кодприведёт к бесконечному циклу, пока память под строку не переполнится (будет вставляться восклицательный знак и на следующем шаге он же и будет обрабатываться, значит, будель вставляться восклицательный знак и т.д.

а во-вторых, вы забываете подсчитать количество операций...

а еще ниже

i:=i+1;

[Serge_Bliznykov]

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

а еще ниже

i:=i+1;

ага. точно. правда Ваша, я не обратил внимание, что в конце цикла наращивание идёт при любом символе.



p.s. замечание про подсчёт количества операций остаётся в силе!
впрочем, думаю, что автор темы вполне в состоянии его добавить самостоятельно.

[rubius2008]

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

p.s. замечание про подсчёт количества операций остаётся в силе!
впрочем, думаю, что автор темы вполне в состоянии его добавить самостоятельно.

Да, проглядел, согласен, пусть сам немного подумает

[PavelDD]

Пишу на Pascal.

uses crt;
const n = 5;
var  x:string;
     a:array[1..n] of string;
     i,k:integer;
begin
   clrscr;
   write('Введите 5 элементов(вместе с #): ') ;
   for i:=1 to n do
      readln(a[i]);
   for i:=1 to n do   begin
        if a[i]<>'#' then begin
            if a[i]='!' then begin
                a[i]:='!!';
                k:=k+1;
            end;
            if a[i]='.' then begin
                a[i]:='!';
                k:=k+1;
            end;
            if a[i]=',' then begin
                a[i]:='+';
                k:=k+1;
            end;
        end
        else break;
   end;
   for i:=1 to n do
       writeln(a[i]);
   write('  Кол-во преобразований: ',k);
end.

Попробуйте так.