в каждом слове обратить порядок букв

[Maksik]

Всем доброго времени суток.
Язык программирования - Паскаль.
Задание: Дан произвольный текст, надо в каждом слове обратить порядок букв, чтобы из слова "привет" получилорсь слово "тевирп".

INPUT.TXT
Это пример простого теста. Если Вы еще не поняли, то запишите буквы каждого слова в обратном порядке. Кстати, применение алгоритма «переворачивания» слов дважды приводит к восстановлению исходного теста.

OUTPUT.TXT
отЭ ремирп оготсорп атсет. илсЕ ыВ еще ен иляноп, от етишипаз ывкуб огоджак аволс в монтарбо екдяроп. итатсК, еиненемирп амтирогла «яинавичаровереп» воле ыджавд тидовирп к юинелвонатссов огондохеи атсет.

[IT-man]

2Maksik A HAM OHO HADO?

[Gorychev]

Настроение у меня хорошее, лови:

function revers_str(const str: string) : string;
var i: integer;
begin
  result :='';
  for i:=length(str) downto 1 do
    result := result + str[i];
end;

[Serge_Bliznykov]

Настроение у меня хорошее, лови:

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

p.s. хотя добавить разбивку строки на слова (поиском на форуме примеры легко найти) и для каждого отдельного слова вызвать Вашу функцию и всё, задача решена...

[Stilet]

Я помоему уже давал решение такой задачи, неужели поиск отменили?

var e,s:string;i:integer;
begin
 s:='В тексте содержатся слова на русском языке, разделенные между собою пробелом, запятой или точкой.';
 s:=' '+s;
 e:='';
 i:=1; while i<length(s) do begin
   
   while (i<length(s))and(s[i]<>' ') do begin
    e:=s[i]+e;
    inc(i);
   end;
   write(e,' ');e:='';
  
  inc(i);
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Serge_Bliznykov]

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

[Stilet]

Serge_Bliznykov

Я ж говорю: Давал такой пример недавно, так что автор пусть поиском пойдет.

[Chudo4258]

только запятая тоже инвертируется вместе со словом, а не должна... (ну и правильно, меня смутил текст строки. А в коде программы слова разделены только пробелом и ничем другим!)

дак а тут дописать:

var e,s:string;i:integer;
begin
s:='В тексте содержатся слова на русском языке, разделенные между собою пробелом, запятой или точкой.';
s:=' '+s;
e:='';
i:=1; while i<length(s) do begin

while (i<length(s))and((s[i]<>' ' or s[i]<>',' or s[i]<>'.' { и т.д. все символы, которыми могут разделятся слова})) do begin
e:=s[i]+e;
inc(i);
end;
write(e,' ');e:='';

inc(i);
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Но только в результате все знаки препинания исчезнут...