Строки - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

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

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

Строки, Помогите

Опции

Klimoff	24.05.2006 13:47 Сообщение #1
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0	Составьте программу, меняющую местами правую и левую половины строки (если число символов в строке – не четное, «серединный» символ оставить без изменений)

volvo	24.05.2006 13:50 Сообщение #2
Гость	Copy + Length тебе в помощь: решение получается в одну строку... Или циклом от первого символа строки до середины, и менять с соответствующим символом от конца строки (но это - 2 строчки )

Real	24.05.2006 15:49 Сообщение #3
Гость	Цитата(volvo @ 24.05.2006 13:50) Copy + Length тебе в помощь: решение получается в одну строку... Или циклом от первого символа строки до середины, и менять с соответствующим символом от конца строки (но это - 2 строчки ) Я в этом не очень понимаю, не мог бы ты полностью написать решение

APAL	24.05.2006 16:51 Сообщение #4
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6	offtop: Цитата 1. на форуме запрещается: ... 10. регистрировать несколько профилей. Выбери сам какой из профилей удалить - Real или Klimoff . Или удалю оба... -------------------- Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск

APAL	24.05.2006 17:31 Сообщение #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 :: Поиск

Klimoff	24.05.2006 17:41 Сообщение #6
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0	Цитата(APAL @ 24.05.2006 16:51) Выбери сам какой из профилей удалить - Real или Klimoff . Или удалю оба... Удали Real ну мне хоть ктонибудь подскажет как написать программу?

APAL	24.05.2006 17:55 Сообщение #7
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6	Смотри 6-ой пост. -------------------- Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск

volvo	24.05.2006 17:56 Сообщение #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	24.05.2006 18:00 Сообщение #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); Пытался без IF - не додумал... все боялся что ты опять меня опередишь с ответом! :D -------------------- Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск

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

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

Пользователей: 0

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

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

Текстовая версия

18.07.2025 17:29

Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"