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

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

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

> Строки, Помогите
Klimoff
сообщение 24.05.2006 13:47
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

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

Составьте программу, меняющую местами правую и левую половины строки (если число символов в строке – не четное, «серединный» символ оставить без изменений)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
  Ответить  Открыть новую тему 
Ответов
volvo
сообщение 24.05.2006 17:56
Сообщение #2


Гость
APAL, а без If ? smile.gif
  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
сообщение 24.05.2006 18:00
Сообщение #3


Смотрю...
*****

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

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

Цитата(volvo @ 24.05.2006 18:56)

APAL, а без If ? smile.gif
  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);

Пытался без IF - не додумал... все боялся что ты опять меня опередишь с ответом! :D


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Klimoff   Строки   24.05.2006 13:47
volvo   Copy + Length тебе в помощь: решение получается в ...   24.05.2006 13:50
Real   Copy + Length тебе в помощь: решение получается в...   24.05.2006 15:49
APAL   offtop: Выбери сам какой из профилей удалить - ...   24.05.2006 16:51
Klimoff   Выбери сам какой из профилей удалить - Real или Kl...   24.05.2006 17:41
APAL   If Odd(Length(st)) then St:=Co...   24.05.2006 17:31
APAL   Смотри 6-ой пост.   24.05.2006 17:55
volvo   APAL, а без If ? :) st := copy(st, length(st...   24.05.2006 17:56
APAL   APAL, а без If ? :) st := copy(st, length(s...   24.05.2006 18:00

« Предыдущая тема · Задачи · Следующая тема »
 

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

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 18.07.2025 17:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"