|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
26.05.2009, 10:35
|
#1 |
|
Пользователь
Регистрация: 22.05.2009
Сообщений: 29
|
помогите пожалуйста написать программу в Delphi
Работа со строками.Написать программу,которая заменяет каждый символ строки,введенной пользователем следующим образом. Символы меняются по парно (например, 1-й со 2-ым, 3-й со 4-ым и т.д.). Если в строке нечетное число символов, то последний символ не менять.
|
|
|
|
26.05.2009, 10:55
|
#2 |
|
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Надо когда-то и самому начинать, не так ли? Сколько ж можно халявить?
Сложного тут вообще ничего нет. Пусть исходная строка - S_OLD, а результат - S_NEW. Количество символов в строке - функция LENGTH. Т.е. длина строки S_OLD будет равна LENGTH(S_OLD). Любой символ можно выбрать так - S_OLD[i], где i - номер символа (нумерация с единицы). Так что для того, чтобы поменять местами первые два символа, нужно всего-то написать: S_NEW:=''; //это мы в самом начале просто обнулили результат А потом: S_NEW:=S_NEW+S_OLD[2]+S_OLD[1]; Идея ясна? Дальше в цикле по всей длине строки. Если встретили в очередной паре пробел - замены нет... |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Помогите пожалуйста написать программу в Delphi или в С++ | anton_m207 | Помощь студентам | 0 | 19.04.2009 11:00 |
| Помогите пожалуйста написать программу | gamer123 | Помощь студентам | 1 | 26.03.2009 18:24 |
| Помогите пожалуйста написать программу в Delphi... | Марго | Фриланс | 6 | 25.10.2007 01:25 |
