IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> помогите написать 1 програмку, замена букв в строке
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Андрей

Репутация: -  0  +


Буду очень благодарен, если вы хоть как-то поможете с написанием этой программы:
Зашифруйте фразу, заменив букву а на у, букву и на ю и букву е на букву я. После запроса расшифруйте фразу.
(принцип: в окне пользователя пользователь сам вводит любую фразу, далее заменяются соответствующие буквы и фраза выдается в зашифрованном виде. Далее программа спрашивает: "расшифровать фразу?", если вы отвечаете "да" то происходит обратная замена букв и вывод первоначальной фразы.) mega_chok.gif
заранее всем благодарен!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Оля,
    for j:=1 to 6 do begin
- это зачем? Ты для этого разве запоминала J, чтобы потом вводить вручную, сколько символов заменять? Лучше - так:
    for i:=1 to j do begin
case s[ch[i]] of ...


Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 

Сообщений в этой теме
director   помогите написать 1 програмку   18.05.2007 0:47
мисс_граффити   Проходишь по строке, анализируя каждый символ... е…   18.05.2007 0:56
Артемий   var s: string; i: integer; begin readln(s); for i…   18.05.2007 0:56
nikita182   uses crt; var i : integer; s,s1 : string;…   18.05.2007 5:24
samec   вот и вся расшифровка) умно :) но помоему непрок…   18.05.2007 9:54
Гость   запоминать ничего не надо, символы те же, только н…   18.05.2007 15:09
nikita182   непроканает - переделаем)   18.05.2007 15:11
volvo   Да? "Это я, привет!" - зашифруй и …   18.05.2007 15:13
nikita182   согласен косяк, это я с просонья) исправляюсь: …   18.05.2007 16:04
Айра   А у меня она не шифрует вообще.. Может коды симво…   18.05.2007 16:12
nikita182   ascii код точно такой, может с кодировкой чего.. я…   18.05.2007 16:15
Айра   Сейчас проверила (одна программка умеет находить …   18.05.2007 16:25
nikita182   бляха-муха... тогда программа, которая возвращает …   18.05.2007 16:33
volvo   Оля, for j:=1 to 6 do begin - это зачем? Ты д…   18.05.2007 16:36
director   УРА!!!!!!!!!…   18.05.2007 16:40
Айра   не хорошо.. спокойно :) У меня все равно мои циф…   18.05.2007 16:47
director   А у меня несколько вопросов по поводу программы. М…   18.05.2007 19:27
Айра   ch - в своей программе я так обозвала)) массив, с…   18.05.2007 20:13
nikita182   А у меня с этим проблем не было, правда есть неко…   19.05.2007 16:18


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 17:45
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name