Заменить в строке одно слово на другое, заданное с клавиатуры.

[trum]

Строка: aa1 bb1 cc1 dd1
слово 1: bb1
слово 2: ff1
решение: aa1 ff1 cc1 dd1

Для начинающего программиста, если можно то программу сделать проще! Спасибо!

[BDA]

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 s,a,b:string;

procedure replacerec(var s: string; in1, out1: string);
var
  i: word;
begin
  if pos(in1, s) = 0 then
    exit;
  i := pos(in1, s);
  delete(s, i, length(in1));
  replacerec(s, in1, out1);
  insert(out1, s, i);
end;

begin
  writeln('Input source string:');
  readln(s);
  writeln('Input the replacement word:');
  readln(a);
  writeln('Input the word which replaced:');
  readln(b);
  replacerec(s,a,b);
  writeln(s);
  readln;
end.

[Alex.Pi]

на питоне очень просто:

s = ['aa1', 'bb1', 'cc1', 'dd1']
ind = s.index('bb1')
s.pop(ind)
s.insert(ind, 'ff1')
print s

фсё

если с клавиатуры, то надо еще пару строк добавить, примерно так:

s = ['aa1', 'bb1', 'cc1', 'dd1']
wrd = raw_input('Enter a word:')
ind = s.index('bb1')
s.pop(ind)
s.insert(ind, wrd)
print s

[trum]

нужно на с++!!!

[Alex.Pi]

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

нужно на с++!!!

Этого не было нигде написано

[trum]

Сообщение от Alex.Pi

Этого не было нигде написано

ну и на этом большое спасибо!

Кто может сделайте на с++