Перевернуть строку

[Манжосов Денис :)]

Имеется любая строка S. Нужно перевернуть её. Как пример: "Лава" - "Авал". Помогите пожалуйста.

[Sm1Le]

len:=length(s);

for i :=0 to len\2 do
begin
s[i+1]:=len-i;
end;

Вроде так ...

[Манжосов Денис :)]

Подождите, а зачем делить len на 2
...Я не совсем понял код, вы можете объяснить?

[Ozerich]

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

[Sm1Le]

Сообщение от Манжосов Денис :)

Подождите, а зачем делить len на 2
...Я не совсем понял код, вы можете объяснить?

тебе надо пройти только половину поскольку стоит поменять только левую часть а правая уже замениться автоматически. Ввввооооотт ... =)

[Ozerich]

получай

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var  len,i:integer;
s:string;
tmp:char;
begin
s:='abcde';
len:=length(s);
for i :=1 to (len div 2) do
begin
  tmp:=s[len-i+1];
  s[len-i+1]:=s[i];
  s[i]:=tmp;
end;
writeln(s);
readln;
end.

[Sm1Le]

типа мой код не работает ? =)

[Ozerich]

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

[Sm1Le]

хм ... проверю =)

[Deight]

For i:=length(s) downto 1 do
sn:=sn+s[i];
s:=sn;