|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.10.2009, 12:03 | #1 |
Пользователь
Регистрация: 24.06.2009
Сообщений: 14
|
в каждом слове обратить порядок букв
Всем доброго времени суток.
Язык программирования - Паскаль. Задание: Дан произвольный текст, надо в каждом слове обратить порядок букв, чтобы из слова "привет" получилорсь слово "тевирп". INPUT.TXT Это пример простого теста. Если Вы еще не поняли, то запишите буквы каждого слова в обратном порядке. Кстати, применение алгоритма «переворачивания» слов дважды приводит к восстановлению исходного теста. OUTPUT.TXT отЭ ремирп оготсорп атсет. илсЕ ыВ еще ен иляноп, от етишипаз ывкуб огоджак аволс в монтарбо екдяроп. итатсК, еиненемирп амтирогла «яинавичаровереп» воле ыджавд тидовирп к юинелвонатссов огондохеи атсет. |
20.10.2009, 12:27 | #2 | |
АльTRUEи$т
Форумчанин
Регистрация: 19.03.2009
Сообщений: 784
|
2Maksik A HAM OHO HADO?
Цитата:
|
|
20.10.2009, 12:29 | #3 |
Участник клуба
Регистрация: 08.03.2008
Сообщений: 1,537
|
Настроение у меня хорошее, лови:
Код:
|
20.10.2009, 12:45 | #4 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
а Вы задание внимательно читали? в каждом слове обратить порядок букв. имхо должно получиться как-то так: в моджак еволс ьтитарбо кодяроп вкуб p.s. хотя добавить разбивку строки на слова (поиском на форуме примеры легко найти) и для каждого отдельного слова вызвать Вашу функцию и всё, задача решена... |
|
20.10.2009, 13:14 | #5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Я помоему уже давал решение такой задачи, неужели поиск отменили?
Код:
I'm learning to live...
|
20.10.2009, 15:50 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
аха. Виталий, зачёт!
только запятая тоже инвертируется вместе со словом, а не должна... (ну и правильно, меня смутил текст строки. А в коде программы слова разделены только пробелом и ничем другим!) |
20.10.2009, 16:16 | #7 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
20.10.2009, 20:24 | #8 | |
Форумчанин
Регистрация: 19.02.2009
Сообщений: 622
|
Цитата:
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. Но только в результате все знаки препинания исчезнут...
Жми на весы!!!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
На каждом клике действие! | Rebel123 | Общие вопросы Delphi | 2 | 28.08.2009 22:22 |
Установить сколько согласных букв в каждом слове данного предложения | ivan89 | Общие вопросы C/C++ | 2 | 12.11.2008 15:29 |
Перебор заглавных букв в слове | =LeonZone= | Общие вопросы Delphi | 8 | 02.11.2007 14:59 |