Сдвиг элементов массива, Паскаль

[Boshaft_Elfe]

Сдвиг элементов массива, Паскаль

Доброго времени суток, очень прошу помочь с решением следующей задачи:
сдвинуть массив на К элементов влево или вправо в зависимости от знака вводимого К. То есть при входном массиве 12345 и К=2 на выходе должен быть такой массив: 45123, при К=-2 - 34512. Мучаюсь с этой задачей не первый день, перепробовала кучу алгоритмов, не хочет работать и все тут:tehnari_ru_281: Вот последний алгоритм, на котором я остановилась (только для положительного К):

if k>0
  then
       begin
            for i:=1 to n+k do {n - размер массива}
               a[i+k]:=a[i];
            for i:=1 to k do
               a[i]:=a[i+n];
       end;

Вместо ожидаемого 45123 выводит 21121.

 

[Vladimir_S]

Ириша, привет - сейчас разберемся!

 

[Vladimir_S]

Ну вот, например - так:

Const
 N=20;
VAR
 A,B:Array [1..N] of Byte;
 k:ShortInt;
 i,j:Byte;
BEGIN
 Randomize;
 Writeln('Initial array:');
 For i:=1 to N do
  begin
   A[i]:=Random(10);
   Write(A[i]:3);
  end;
 Writeln;
 Writeln;
 Write('k= ');
 Readln(k);
 Writeln;
 Writeln;
 If Abs(k)>=N then
  Writeln('Error: k too big!')
 else
 If k=0 then B:=A
 else
 If (k>0) then
  begin
   for j:=1 to N-k do B[j+k]:=A[j];
   for j:=N-k+1 to N do B[j-N+k]:=A[j];
  end
 else
 begin
  for j:=1-k to N do B[j+k]:=A[j];
  for j:=1 to -k do B[N+k+j]:=A[j];
 end;
 Writeln('New array:');
 For i:=1 to N do Write(B[i]:3);
 Readln;
END.

 

[Boshaft_Elfe]

Владимир, спасибо огромное! Тоже была идея использовать второй массив, но попытка ее реализовать потерпела фиаско. Еще раз спасибо!=)

 

[Vladimir_S]

Владимир, спасибо огромное! Тоже была идея использовать второй массив, но попытка ее реализовать потерпела фиаско. Еще раз спасибо!=)

Ничего, Ира, всё впереди - освоишь эту нехитрую науку! Успехов!