Задачка на Pascal

[miron]

Составить программу циклической перестановки букв в словах текста так, что i-я буква слова становится i+1-ой, а последняя - первой.

[Dimon]

могу помочь, опыт программирования 5 лет
есть много положительных отзывов
стучись в ICQ: 198-012-696
или на почту da-ne@ya.ru

[Likyrg]

сделаю быстро и дешево
ася 353526000

[Infest]

Задача простая, сделаю недорого и качественно. ICQ 427917662

[Virtson]

function Obrat(s: string): string;
var
i, k, h: integer;
s2: string;
begin
h:= 1;
s:= s+' ';
s2:= ' ';
for i:= 1 to length(s) do
if s[i]=' ' then
begin
s2[h]:= s2[i];
s2[i]:= ' ';
s2:= s2+' ';
h:= i+1;
end
else s2:= s2+s[i];

Obrat:= s2;
end;

[merax]

to Virtson

Помоему ты не правильно поступил. Во первых ты не дал заработать людям. Во вторых тут не помощь студентам, что-бы решения выкладывать. Человек заранее настроился на платное решение, а не на халяву.

[Virtson]

это же не полностью готовое решение. оно ограниченное.

помогите человеку разобраться, напишите комменты , предложите свой вариант решения.

[merax]

Ну тогда, что бы не лить воду и не сорится надо просто тему перенести в "Помощь студентам" и удалить лишние посты.

[ЯншинаВера]

а динамические структуры данных решаете? и почем? verayan@mail.ru

[AlDelta]

Всё решаем.
Почем? Смотрите тему - http://www.programmersforum.ru/showthread.php?t=15868


//Тема превращается в свалку...