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

[Poma][a]

Так-с.. Я понял свою ошибку..
Снимаю своё решение как проф непригодное..

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

[AlexP777]

строку назвал строкой для удобства, ведь это сокращенно str, думаю, страшного в этом ничего нет.

спасибо Аватар`у, сделал вот так:

program lab8var4;
var str: string;
    i,p:integer;
begin
p:=0;
readln(str);
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]:='-';
writeln(str);
readln
end.

достаточно простое решение, я как раз ходил вокруг него кругами

[AlexP777]

Сообщение от Poma][a

Ах дак вот кто прививает новичкам вредную привычку обзывать строку 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;

спасибо за подсказку, возьму такой вариант на заметку, тоже простое решение как оказалось....

[AlexP777]

тут вот какой момент, при первом предложенном Варианте меняет абсолюнто все + следующие после пробела, и не важно что там может стоять символ
например, если задать строку:
+++++ +++ fd++
то будет так:
---- --- fd--
а ведь как раз после fd "+" должен остаться самим собой...
подскажите, пот здесь сложно придумать какое условие и где нужно дописать.

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

[Poma][a]

Давайте еще раз.
Дана строка : '+_+_d+_++' ('_' - пробел(для наглядности))
Что будет являться результатом?

[Аватар]

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

тут вот какой момент, при первом предложенном Варианте меняет абсолюнто все + следующие после пробела, и не важно что там может стоять символ...а ведь как раз после fd "+" должен остаться самим собой...

Так это уже другая постановка задачи, вернее не постановка, а что-то типа детского лепета. А если не fd будет, а, например, ka-ka, то это не считается? Или только fd? А если пробел? А может в заданной строке символов заменить все первые встреченные подряд идущие знаки ‘+’, следующие после пробела на знак ’-‘ ?

[AlexP777]

Сообщение от Poma][a

Давайте еще раз.
Дана строка : '+_+_d+_++' ('_' - пробел(для наглядности))
Что будет являться результатом?

результатом будет:
+_-_d-_-
как раз после символа d не должно было заменять.


нужно так, что бы учитывало любой символ fd, то был пример.
если будет стоять ka-ka, то после него не должны меняться + на - до следующего пробела.

[Serge_Bliznykov]

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

результатом будет:
+_-_d-_-
как раз после символа d не должно было заменять.

так предложенный Вам код и не заменит плюс на минус после d
кроме того, в конце строки было два плюса. Остался один минус.
Куда ещё один символ делся?!

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

нужно так, что бы учитывало любой символ fd, то был пример.
если будет стоять ka-ka, то после него не должны меняться + на - до следующего пробела.

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

Вы бы, хотя бы, если уж не можете сформулировать корректно правила,
тогда написали штук пять-десять характерных примеров, где привели строчку ДО и строчку, которая ДОЛЖНА получиться ПОСЛЕ.

[astecenko]

ТС имхо алгоритм такой: в цикле c помощью Pos ищем вхождение подстроки ' +', если находим начиная с возвращенной Pos-ом позиции перебираем последывательно символы пока равны '+' меняем на '-', если встретили не '+' след итерация цикла, если Pos вернул 0 - выходим. Если в используемом паскале есть PosEx (например в Delphi) используйте его - будет быстрее.

[AlexP777]

можно наглядный пример как сделать это?
с PosEx не знаком, знаю только немного PASCAL.