freepascal.ru

Д) Вращение строки вправо. Напишите процедуру, перемещающую 1-й
символ строки на место 2-го, 2-й — на место 3-го и т.д. Последний символ должен
занять 1-е место. Воспользуйтесь средствами для обработки строк.

arriah писал(а):То есть я так понимаю, что достаточно последний символ переместить на первое место и задача решена? зачем двигать все символы?

arriah писал(а):зачем двигать все символы?

Код: Выделить всё

procedure rotate(var s: String);
var t: Char; i: Integer;
begin
  if Length(s)<2 then Exit;
  t:=s[Length(s)];
  for i:=Length(s) downto 2 do s[i]:=s[i-1];
  s[1]:=t;
end;


Код: Выделить всё

procedure rotate(var s: String);
begin
  if Length(s)<2 then Exit;
  s:=s[Length(s)]+Copy(s,1,Length(s)-1);
end;