Сдвиг циклический на несколько элементов..

[manchester_alan]

Не получается совершить циклический сдвиг элементов строки на несколько пунктов.. только на 1 могу

for i:=1 to x do
begin
if(i mod 2=0) then
       begin
        o:=a[i,1];
         for j:=1 to y do
          begin
           a[i,j]:=a[i,j+1];
          end;
         a[i,y]:=o;
       end;

       if(i mod 2<>0) then
       begin
        o2:=a[i,y];
        for j:=y downto 1 do
        begin
           a[i,j]:=a[i,j-1];
        end;
       a[i,1]:=o2;
       end;
end;

[min@y™]

Нацарапал на заборе за 3 минуты. Циклический сдвиг строки вправо.

function ShrString(const S: string; N: Integer): string;
var
  len: Integer;
begin
  len:= Length(S);
  N:= N mod len;

  if (S = '') or (N = 0)
    then Exit(S);
    
  Result:= Copy(S, len - N + 1, N) + Copy(S, 1, len - N);
end;

Сдвиг влево пусть кто-нить ещё напишет.
ВНИМАНИЕ!
УВАГА!!
АХТУНГ!!!
АТТЕНШН!!!!
Shit-code detected!
Код не отлаживал. Писал на заборе!

[Serge_Bliznykov]

[QUOTE=min@y™;1561745]Нацарапал на заборе за 3 минуты. Циклический сдвиг строки вправо.
[/CODE]
min@y™, ничего, что у автора темы речь идёт о строках матрицы?

Не получается совершить циклический сдвиг элементов строки на несколько пунктов.. только на 1 могу

manchester_alan, в чём проблема вызвать в цикле несколько раз ваш код сдвига на 1 пункт? (если сдвиг на 1, конечно, корректно работает ).

[manchester_alan]

[QUOTE=Serge_Bliznykov;1561758]

Сообщение от min@y™

Нацарапал на заборе за 3 минуты. Циклический сдвиг строки вправо.
[/CODE]
min@y™, ничего, что у автора темы речь идёт о строках матрицы?



manchester_alan, в чём проблема вызвать в цикле несколько раз ваш код сдвига на 1 пункт? (если сдвиг на 1, конечно, корректно работает ).

а это идея,спасибо))

[min@y™]

ничего, что у автора темы речь идёт о строках матрицы?

да? я этого не знал.

[manchester_alan]

Сообщение от min@y™

да? я этого не знал.

всем спасибо короче)

[min@y™]

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

Ну а чо про матрицу-то не сказал? Я твой код и не смотрел.

всем спасибо короче)

Следуй за белым кроликом, короче.