Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.07.2013, 00:41   #1
Shishova Nina
Новичок
Джуниор
 
Регистрация: 01.07.2013
Сообщений: 1
Сообщение слова зашифрованы, каждое из них записано наоборот. Расшифровать сообщение (написать программу в Delphi)

В записке слова зашифрованы, каждое из них записано наоборот. Расшифровать сообщение.
Shishova Nina вне форума Ответить с цитированием
Старый 01.07.2013, 02:13   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Мощный алгоритм шифрования.
Arigato вне форума Ответить с цитированием
Старый 01.07.2013, 04:38   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
Function Reverseword(s:String):string;
var i,n:integer;
t:char;
begin
n:=length(s);
for i:=1 to n  div 2 do
begin
t:=s[i];
s[i]:=s[n-i+1];
s[n-i+1]:=t;
end;
Reverseword:=s;
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 01.07.2013, 08:51   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Mad_Cat, думаю, что у Нины основная сложность - это разобрать текст на отдельные слова, а уж только потом их можно будет "расшифровывать" вашей функцией.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 01.07.2013, 09:01   #5
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
у Нины основная сложность - это разобрать текст на отдельные слова
тогда от нее требуется ряд уточнений
1) консоль или формы?
2) чем отделяются слова друг от друга?
либо http://programmersforum.ru/showthread.php?t=114366 (4-я тема из списка похожих)
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 01.07.2013, 09:05   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

ReverseString из StrUtils делает то же, что Mad_Cat предложил. А задание ТС видимо из разряда - перечень слов разделенных пробелами. Тогда просто использовать Pos (PosEx), Delete, Copy для обнаружения и выделения слов. Если и знаки препинания, то все чуть посложней.
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 01.07.2013, 09:09   #7
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
перечень слов разделенных пробелами
я бы все-таки разбил StringList - ом в 2 строки кода
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно создайть JAVA-программу, запрашивающую два слова и если слова разной длины, то выводить сообщение. Пожалусто,экзамен! АлексейMe Помощь студентам 1 23.04.2013 13:58
Даны слова из строч. русских букв,слова разделены запятыми. Напечатать в алфавитном порядке гласные,входящие в каждое слово(Delphi Галенька Помощь студентам 5 11.01.2012 20:49
Два числа называют дружественными, если каждое из них равно сумме всех Zhasik Паскаль, Turbo Pascal, PascalABC.NET 1 28.12.2010 18:07
Составить программу, которая записывает каждое слово в тексте в обратном порядке.Delphi grongost Помощь студентам 4 23.09.2010 20:23