Полная версия: Строки
Составьте программу, меняющую местами правую и левую половины строки (если число символов в строке – не четное, «серединный» символ оставить без изменений)
Copy + Length тебе в помощь: решение получается в одну строку...
Или циклом от первого символа строки до середины, и менять с соответствующим символом от конца строки (но это - 2 строчки
)
Или циклом от первого символа строки до середины, и менять с соответствующим символом от конца строки (но это - 2 строчки
)
Цитата(volvo @ 24.05.2006 13:50) 
Copy + Length тебе в помощь: решение получается в одну строку...
Или циклом от первого символа строки до середины, и менять с соответствующим символом от конца строки (но это - 2 строчки
)Я в этом не очень понимаю, не мог бы ты полностью написать решение
offtop:
Выбери сам какой из профилей удалить - Real или Klimoff .
Или удалю оба...
Цитата
1. на форуме запрещается:
...
10. регистрировать несколько профилей.
...
10. регистрировать несколько профилей.
Выбери сам какой из профилей удалить - Real или Klimoff .
Или удалю оба...
Код
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);
Цитата(APAL @ 24.05.2006 16:51)
Выбери сам какой из профилей удалить - Real или Klimoff .
Или удалю оба...
Или удалю оба...
Удали Real ну мне хоть ктонибудь подскажет как написать программу?
Смотри 6-ой пост.
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);
Цитата(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);
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.