строка

[vitik]

Дана строка символов. В тех словах, которые оканчиваются сочетанием букв “ing”, заменить это окончание на “ed”. пробую написать но неполучаеться помогите пожалуйста

[Valio]

пробую написать но неполучаеться помогите

Ну и где эти пробы?

[vitik]

Program ssss;

Var

 S : string;                             


Begin

 Writeln('Ââåäèòå ñòðîêó');             

 ReadLn(S);                             

 

 While Pos('ing ', S) <> 0 Do           

  Begin

   Delete(S, Pos('ing ', S), 3);        

   Insert('ed', S, Pos('ing ', S));     
  End;

 Writeln(S);                            

End.

иочему то результат есть те самые символы

Program ssss;
Var
 S : string;                             
Begin
 Writeln('Ââåäèòå ñòðîêó');             
 ReadLn(S);                             

 While Pos('ing', S) <> 0 Do           

 Begin

 Delete(S, Pos('ing', S), 3);        

 Insert('ed', S, Pos('ing', S));     
 End;

 Writeln(S);                            

End.

а если так то миняет , только в тех словах в которих ing в середине слова

[Valio]

Предлагаю сначала вставить ed, а потом удалить ing.

S := 'Programming the footing.';
While Pos('ing', S) <> 0 Do
  Begin
    Writeln(S);
    Insert('ed', S, Pos('ing', S));
    Writeln(S);
    Delete(S, Pos('ing', S), 3);
    Writeln(S);
    Readln;
  End;

Для наглядности работы производиться вывод строки S после каждого преобразования.

[vitik]

program stroka;
Var
  H,i,ing: Integer;
  S,Slovo,NewS: String;
begin
   Writeln('Vvedite S');
   Readln(S);
   i:= 1;
   Slovo:= '';
   NewS:= '';
   While Length(S) > 0 do begin
      H:= Pos(' ',S);
      if H > 0 then begin
         Slovo:= Copy(S,1,H-1);
         Delete(S,1,H);
        end else begin
         Slovo:= S;
         S:= '';
      end;
      if Length(Slovo) > 3 then begin
         if Copy(Slovo,length(Slovo)-2,3) = 'ing' then begin
            NewS:= NewS + Copy(Slovo,1,Length(Slovo)-3) + 'ed ';
           end else begin
            NewS:= NewS + Slovo + ' ';
         end;
        end else begin
         NewS:= NewS + Slovo + ' ';
      end;

я попробувал так вроде получилось

а алгоритм штото не понимаю как зделать

From Stilet: А я шото не понимаю почему ты тегом по кнопке # код не выделил? Закрою тему - предупреждаю

[Valio]

В 4-ом посте я привёл рабочий код на задание из 1-ого поста.