Задача на циклическую перестановку символов

[Shadowalker]

Доброго всем времени суток!

Требуется помощь в написании простенькой программы на циклическую замену символов в слове. Например, из слова "Hello" получить "olleH". Пробывал все-все (и переменные char, string... length, downto... в общем кучу всего...), но в конце концов окончательно запутался.

P. S. Пытался выкрутиться своими силами, но, видимо, слишком долго не работал в TurboPascal.

Заранее спасибо за помощь.

[s-andriano]

Сообщение от Shadowalker

Пытался выкрутиться своими силами, но, ...

На самом деле все гораздо хуже.
Циклическая замена не может подобным образом преобразовать слово.
Так что проблема в условии - оно внутренне противоречиво.

[forged]

Токая программа?
--------------------------------------------
var
i:integer;
s:string;
BEGIN
readln(s);
for i:=length(s) downto 1 do
write(s[i]);
END.
--------------------------------------------

[s-andriano]

forged, Ваша программа вообще не производит никаких замен. Получение некоторого результата в строке и формирование некоторого (пусть даже того же самого) результата на экране - это разные задачи.

[Sciv]

for i:=1 to length(s) div 2 do begin
  temp:=s[i];
  s[i]:=s[length(s)-i+1];
  s[length(s)-i+1]:=temp;
end;

[forged]

Почему? Просят же было так: вводим слово 'hello' вывод 'olleh' или 'File' 'eliF'

[s-andriano]

Сообщение от forged

Почему? Просят же было так: вводим слово 'hello' вывод 'olleh' или 'File' 'eliF'

Еще раз: по условию "получить", а не "вывести на экран".
Т.е. в результат должен быть в переменной для возможности дальнейшего использования. В вашем случае этого не происходит.

[Poma][a]

Я снова дико извинюсь, но можно я тут тихонечко пофлужу?

Вот пример forged'a имеет сложность O(N)

ReadLn (s1);

s2 := '';
for i := Length(s) downto 1 do
       s2 := s2+s1[i];
        
s1 := s2

Пример Sciv'a имеет сложность O(N div 2)
Но ведь в примере#2 в цикле выполняется 3 оператора, а в первом только 1..

Вообщем вопрос : как в таком случае высщитать сложность?

[s-andriano]

Сложность алгоритма определяется с точностью до константы, поэтому никакой сложности O(N div 2) быть не может, это та же сложность O(N).
Другими словами, оба примера имеют одинаковую асимптотическую сложность.

Вы ведь не знаете, во сколько ассемблерных инструкций превратится один оператор на ЯВУ?
А три оператора?
А при включенном оптимизаторе?

Вопрос кстати, очень интересный потому, что при правильной оптимизации эти три операции на ЯВУ должны превратиться в одну-две инструкции (в зависимости от системы команд - одноадресная или двухадресная).

[Poma][a]

Сложность алгоритма определяется с точностью до константы

А до какой константы? До N?

А если будет такой алгоритм :

for i := 1 to n div 2 do
    r := r + i;

То сложность будет тоже O(N)?