Как написать программу, к-ая переворачивает вводимое слово задом наперед7

[maks2020]

Как написать программу, к-ая переворачивает вводимое слово задом наперед? Например роза -азор
буду очень благодарен !!!

[andik]

Какой язык?

[xrob]

я пользуюсь delphi, такчто напишу на этом языке.

--------------------------------------------------------
function ReflectStr(str:string):string;
var
i:integer;
begin
for i:=0 to length(str)-1 do result:=result+str[length(str)-i];
end;
--------------------------------------------------------
это готовая работающаяя функция, специально писал =)
использовать так:
новая переменная:= ReflectStr(старая переменная);

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

p.s.
;]i-)rts(htgnel[rts+tluser=:tluser od 1-)rts(htgnel ot 0=:i rof

[xrob]

)= еьвородзан ьсетйузьлоп ,ласипан угорп еще тов

[maks2020]

xrob, огромное спасибо, но мне бы на паскале, и все же я вам очень благодарен!!!

[Don Karleone]

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

xrob, огромное спасибо, но мне бы на паскале, и все же я вам очень благодарен!!!

а что вам мешает откомпелировать эту функцию на паскале?

[maks2020]

А как бы это сделать ?

[p51x]

посмотреть темы внизу

[XeruH]

Так проще вроде:

function ReflectStr(str:string):string;
var
i:integer;
begin
for i:=length(str) downto 1 do result:=result+str[i];
end;

Кстати данная функция прекрасно заработает и на Паскале

[maks2020]

напишите пожалуйста на паскале