Преобразовать строку, заменяя каждое слово 'this' словом 'the'

@СанекКенас · Регистрация: 07.12.2014

Студворк — интернет-сервис помощи студентам

Pascal

program l666;
const 
w1='this';
w2='the';
var 
i:byte;
 
function get_word(s:string ; var i:byte):string;
var sl:string;
l:byte;
begin
l:=length(s);
for i:=1 to length(s)do
while (i<>l) and (s[i]<>' ') do 
inc(i);
sl:=' ';
while (i<=l) and (s[i]>' ') do
begin
sl:=sl+s[i];
inc(i);
end;
get_word:=sl;
end;
procedure zamena(s:string ;i:byte);
 
begin
for i := 1 to length(s) do
if s[i]=w1 then
s[i]:=w2;
end;
 
 
begin
var st:string;
 
get_word(st,i);
zamens(s,i);
end.

@ZX Spectrum-128 · 22.01.2015, 09:30

Каждое слово one заменить на three
14-я строка:

Pascal

inc(i,2);

@APALoff · 22.01.2015, 11:06

Сообщение от СанекКенас

s[i]:=w2;

Бред.
Нельзя присвоить одному из символов строки значение целого слова.

Добавлено через 17 минут

Сообщение от СанекКенас

... заменяя каждое слово ...

Чем разделены слова?

Добавлено через 9 минут
Если не заморачиваться с разделением слов, то просто замена символов (а не слов) будет так:

Pascal

While Pos(s1,s)<>0 do
Begin
  s:=Copy(s,1,Pos(w1,s)-1)+s2+Copy(s,Pos(w1,s)+Length(w1),255)
end;

Опции темы