Решение задачи на Pascal

[Progs]

Добрый день всем.
Собственно сама задача:
"Во введенном тексте задано предложение,в котором встречается одно перечисление двух объектов с помощью предлога "и". Поменять местами слова,соединённые этим предлогом. Например,текст "А и Б сидели на трубе" заменить на "Б и А сидели на трубе" ".
По идеи задача легкая,но я не могу понять как найти начало первого слова между предлогом. Например: "Можеть быть сходим в кино и посмотрим фильм?". Как найти позицию слова кино?
Заранее спасибо.

[Alex21]

program Words;
const
word='кино'; {КЛЮЧЕВОЕ СЛОВО}

var str:string;   {исходная фраза}
    w1,w2:string; {слова для обмена}
    p,k,l:byte;
begin
  str:='Можеть быть сходим в кино и посмотрим фильм';
  Writeln(str);
{находим левое слово}
  k:=POS(' '+word,str);
  l:=0;
{пока символ не .. то слово не определено}
 while((str[k-1]<>' ')and(str[k-1]<>'_')and
       (str[k-1]<>',')and(str[k-1]<>'.')and
       (str[k-1]<>';')and(str[k-1]<>':'))do
  begin
    dec(k);
    inc(l);
  end;
  writeln('word=',word);
  w1:=copy(str,k,l);
  writeln('w1=',w1);
{находим правое слово}
  k:=POS(' '+word,str)+length(word)+1;
  l:=0;
  while((str[k+1]<>' ')and(str[k+1]<>'_')and
        (str[k+1]<>',')and(str[k+1]<>'.')and
        (str[k+1]<>';')and(str[k+1]<>':'))do
  begin
    inc(k);
    inc(l);
  end;
{обмен слов}
  w2:=copy(str,POS(word,str)+length(word)+1,l);
  writeln('w2=',w2);
  p:=POS(' '+w2,str)+1;
  delete(str,p,length(w2));
  insert(w1,str,p);

  p:=POS(' '+w1,str)+1;
  delete(str,p,length(w1));
  insert(w2,str,p);
  writeln(str);

  readln;
end.

Производится только замен слов, прочие символы(запятые, точки....) остаюются на своих местах.

Результат: 'Можеть быть сходим и кино в посмотрим фильм'

[Progs]

Немного не то..Мне надо заменить два слова между предлогом "и". Я же не могу знать заранее какое предложение введет пользователь.А необходим результат: "Можеть быть сходим в посмотрим и кино фильм?"

[still_alive]

Ищем подстроку ' и '. Затем находим слова слева и справа и меняем. Кода нет, потому что то Delphi нет.

while((str[k+1]<>' ')and(str[k+1]<>'_')and
(str[k+1]<>',')and(str[k+1]<>'.')and
(str[k+1]<>';')and(str[k+1]<>':'))do

А ведь так компактнее и выполняться быстрее будет, не правда ли?

while (not (str[k+1] in [' ', '_', ',', '.', ';', ':'])) do

[Alex21]

А ведь так компактнее и выполняться быстрее будет, не правда ли?

Правда.

Я же не могу знать заранее какое предложение введет пользователь

program Extract;

var str,word:string;

function Change(str,word:string):string;
var w1,w2:string; {слова для обмена}
    p,k,l:byte;
begin
{находим левое слово}
  k:=POS(' '+word,str);
  l:=0;
{пока символ не .. то слово не определено}
while (not (str[k-1] in [' ', '_', ',', '.', ';', ':','?','!'])) do
  begin
    dec(k);
    inc(l);
  end;
  w1:=copy(str,k,l);
  writeln('w1=',w1);
{находим правое слово}
  k:=POS(' '+word,str)+length(word)+1;
  l:=0;
while (not (str[k+1] in [' ', '_', ',', '.', ';', ':','?','!'])) do
  begin
    inc(k);
    inc(l);
  end;
{обмен слов}
  w2:=copy(str,POS(word,str)+length(word)+1,l);
  writeln('w2=',w2);
  p:=POS(' '+w2,str)+1;
  delete(str,p,length(w2));
  insert(w1,str,p);

  p:=POS(' '+w1,str)+1;
  delete(str,p,length(w1));
  insert(w2,str,p);
  writeln(str);
 end;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  Write('Input text: '); // ввод фразы
  Readln(str);
  Write('Input Word: '); // ввод слова-обменника
  ReadLn(word);
  Writeln(Change(str,word));

  readln;
end.