Всем привет. Помогите пожалуйста , необходимо все сочетания АВС заменить на ОДЕ, слова разделены пробелами, предложения заканчиваются точкой. Текст вводится с клавиатуры, по желанию можно определить фиксированную длину
Заранее благодарен
пример напиши
Можно без примера, но с уточнением: менять все слова АВС на ОДЕ, или именно "сочетания"? Если второе - то зачем информация, что
заменить нужно сочетания, а с этой штукой: Pos + Delete + Insert , будем разбираться
Спасибо
в общем есть бок, меняет только 1-ю 'ABC', подскажите пожалуйста.
var
str,st,s : string;
i,z:integer;
begin
read(str);
s:='ABC';
st:='ОДЕ';
z:=pos(s,str);
for i:=1 to length(str) do
begin
delete(str,z,length(s));
insert(st,str,z);
end;
writeln(str);
end.
...Цикл For здесь не нужен вообще...
repeat
z := pos(s, str);
if z <> 0 then begin
{ вот тут и меняешь одно на другое }
end;
until z = 0; { <--- больше 'ABC' нет, выходим }
...
volvo спасибо