 Строки, Помогите |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Klimoff |
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация:  0   |
Составьте программу, меняющую местами правую и левую половины строки (если число символов в строке – не четное, «серединный» символ оставить без изменений)
|
   |
 
|
| volvo |
Сообщение
#2
|
|
Гость |
Copy + Length тебе в помощь: решение получается в одну строку...
Или циклом от первого символа строки до середины, и менять с соответствующим символом от конца строки (но это - 2 строчки  ) |
|
|
|
| Real |
Сообщение
#3
|
|
Гость |
Цитата(volvo @ 24.05.2006 13:50)  Copy + Length тебе в помощь: решение получается в одну строку... Или циклом от первого символа строки до середины, и менять с соответствующим символом от конца строки (но это - 2 строчки )Я в этом не очень понимаю, не мог бы ты полностью написать решение |
|
|
|
| APAL |
Сообщение
#4
|
 Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
offtop:
Цитата 1. на форуме запрещается: ... 10. регистрировать несколько профилей. Выбери сам какой из профилей удалить - Real или Klimoff . Или удалю оба... -------------------- |
|
|
|
| APAL |
Сообщение
#5
|
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Код If Odd(Length(st)) then St:=Copy(St,(Length(st) div 2)+2,Length(st))+st[(Length(st) div 2)+1]+Copy(St,1,Length(st) div 2) else St:=Copy(St,(Length(st) div 2)+1,Length(st) div 2)+Copy(St,1,Length(st) div 2); -------------------- |
|
|
|
| Klimoff |
Сообщение
#6
|
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Цитата(APAL @ 24.05.2006 16:51) Выбери сам какой из профилей удалить - Real или Klimoff . Или удалю оба... Удали Real ну мне хоть ктонибудь подскажет как написать программу? |
|
|
|
| APAL |
Сообщение
#7
|
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Смотри 6-ой пост.
-------------------- |
|
|
|
| volvo |
Сообщение
#8
|
|
Гость |
APAL, а без If ?
 st :=
copy(st, length(st) div 2 + byte(odd(length(st))) + 1, length(st) div 2) +
copy(st, length(st) div 2 + 1, byte(odd(length(st)))) +
copy(st, 1, length(st) div 2);
|
|
|
|
| APAL |
Сообщение
#9
|
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Цитата(volvo @ 24.05.2006 18:56) APAL, а без If ? st :=
copy(st, length(st) div 2 + byte(odd(length(st))) + 1, length(st) div 2) +
copy(st, length(st) div 2 + 1, byte(odd(length(st)))) +
copy(st, 1, length(st) div 2);
-------------------- |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 22.04.2025 11:52 |
Связь с администрацией: bu_gen в домене octagram.name