задача: работа со строками, заменить + на -

[AlexP777]

постановка задачи:

В заданной строке символов заменить все знаки ‘+’, следующие после пробела на знак ’-‘.

вот как пытался сделать я:

program lab8var4;
var str: string;
    i,p,p1:integer;
begin
p1:=0;
p:=0;
readln(str);
for i:=1 to length(str) do
begin
(*p:=pos(' ',str);
while (str[]='+') <> 0 do
      begin
      if p>0 then inc(p1);
      delete(str,p,p1);
      insert('-',str,p )
      if (str[i+p]='+') then str[p+1]:='-' *)
if (str[i]=' ') then
      end;
writeln(str);
readln
end.

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

[Аватар]

StringReplace по моему не только в дельфи, но и в некоторых версиях паскаля есть. Не?

[AlexP777]

Сообщение от Аватар

StringReplace по моему не только в дельфи, но и в некоторых версиях паскаля есть. Не?

не, не слышал о таком.
можно ссылку на мануал или пример кода?

[Poma][a]

Кажется оно :тыц

[AlexP777]

в самом коде программы будет выглядеть так?

function StringReplace(
const S: String;
const +: String;
const -: String;
Flags: TReplaceFlags
):String;

приведите пожалуйста пример.

[Sciv]

S:=StringReplace(S,'+','-',[rfReplaceAll]);

[AlexP777]

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

S:=StringReplace(S,'+','-',[rfReplaceAll]);

нужно ведь не всех, а только тех, которые следуют после плюса
например так:
было:
++++ +++++ ++
стало: ++++ ----- --

[Аватар]

p:=pos(' ',str);
if p=0 then p:=length(str);
for i:=1 to length(str) do
  if (i>p) and (str[i]='+') then str[i]:='-';

можно еще проще

p:=pos(' ',str);
if p=0 then p:=length(str);
for i:=p+1 to length(str) do
  if str[i]='+' then str[i]:='-';

[Poma][a]

p:=pos(' ',str);

Ах дак вот кто прививает новичкам вредную привычку обзывать строку str'ом

Могу предложить еще такой вариант :

i := 1;
while i < Length(s) do begin
      if (s[i] = ' ') and (s[i+1] = '+') then begin
             s[i+1] := '-';
             Inc (i) // убираем a little bit of extra job ;)
      end;
      Inc (i)
end;

[Аватар]

Ах дак вот кто прививает новичкам вредную привычку обзывать строку str'ом

Не надо обзываться, я енто из кода ТС взял, лень было новое имя придумать