Страница 1 из 1
Помогите решить задачу про перемену слов местами
Добавлено: 23 дек 2010, 21:46
koozbass
Дано словосочетание: верные друзья
Надо получить: друзья верные
Решить надо с помощью алгоритма, в delphi помогите пожалуйста
Re: Помогите решить задачу про перемену слов местами
Добавлено: 24 дек 2010, 02:57
BulldozerBSG
алгоритм где? если с помощью него надо решить, а то у нас мыслей много знаешь...
Re: Помогите решить задачу про перемену слов местами
Добавлено: 12 мар 2011, 16:02
Oleg_Rus
Во-первых: если вопрос относится именно к Delphi, то пишите, пожалуйста, в соответствующем разделе.
Во -вторых:
вот кусок кода
Код: Выделить всё
function invert(str: String): String;
var buff: string;
begin
buff:= copy(str, 1, pos(' ', str)-1);
delete(str, 1, length(buff)+1);
invert:= str+' '+buff;
end.