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

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

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

 
 Ответить  Открыть новую тему 
> Строки, Помогите
сообщение
Сообщение #1


Новичок
*

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

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


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


Гость






Copy + Length тебе в помощь: решение получается в одну строку...

Или циклом от первого символа строки до середины, и менять с соответствующим символом от конца строки (но это - 2 строчки blum.gif )
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата(volvo @ 24.05.2006 13:50) *

Copy + Length тебе в помощь: решение получается в одну строку...

Или циклом от первого символа строки до середины, и менять с соответствующим символом от конца строки (но это - 2 строчки blum.gif )

Я в этом не очень понимаю, не мог бы ты полностью написать решение
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


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

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

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


offtop:

Цитата
1. на форуме запрещается:
...
10. регистрировать несколько профилей.


Выбери сам какой из профилей удалить - Real или Klimoff .
Или удалю оба...


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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);


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


Новичок
*

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

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


Цитата(APAL @ 24.05.2006 16:51)
Выбери сам какой из профилей удалить - Real или Klimoff .
Или удалю оба...

Удали Real ну мне хоть ктонибудь подскажет как написать программу?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


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

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

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


Смотри 6-ой пост.


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


Гость






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);
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


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

Группа: Пользователи
Сообщений: 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 
 К началу страницы 
+ Ответить 

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

 





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