freepascal.ru

Здравствуйте.
Нужно написать на паскале программу которая читала бы из файла строки и выводила бы слова написанные в них в нормальном виде.
строки могут быть как "унишам я липук" на выходе нужно получить "машину я купил". Слова в файле разделены пробелами, и на выходе нужно тоже получить их разделенными.
Подскажите как это реализовать.

Dead_inside писал(а):Подскажите как это реализовать.

Инвертировать на выходе.

Код: Выделить всё

for i := length(sIN) downto 1 do sEXIT += sIN[i];

Спасибо, сейчас проверим.

Да тут делов на одну простую регулярочку
$data =~ s/\w+/$w=$&;$r='';$w=~s|.|$r=$&.$r|ge;$r/ge;

А если серьезно, циклом выдирай из текста слова и каждое слово читай вложенным циклом наоборот (у VirtUX-а можешь стырить код чтения наоборот).
Кстати, если нужен юникод, будет веселее ))

Вот код, учитывающий юникод: http://pastebin.com/pe1xYdND

Brainenjii писал(а):Вот код, учитывающий юникод: http://pastebin.com/pe1xYdND

Неее... Я столько не курю