Циклический сдвиг элементов одномерного массива влево

@Petro29 · Регистрация: 30.04.2016

Author24 — интернет-сервис помощи студентам

Задача : Циклический сдвиг позиций влево.
2. Заполнить случайным образом одномерный массив из n элементов и сдвинуть элементы циклически на одну
позицию влево. Пример (для n = 8):
Вот моя программа:

Pascal

uses Crt;
const N = 8;
var A: array[1..8] of integer;
           i: integer;
begin
ClrScr;
   for i:= 1 to 8 do begin
     A[i]:= Random(80) – 10;
      write(A[i]:3);
  end;  WriteLn;       
writeln('  Сдвинутые эл-ты массива:');
      write(A[8]:3);
   for i:= 1to N-1 do
      write(A[i]:3);
  readln
end.

На выходе имеем:

Pascal

Эл-ты массива:
-10   -8   58   6   11   43   15   2
Сдвинутые эл-ты массива:
 -8    58   6   11   43   15   2   -10

Просьба дать заключение: правильно ли сделана задача.
И как сделать сдвиг на 2, 3 и т. д. позиций.

Задача 2: Арифметический сдвиг позиций влево.
2. Заполнить случайным образом одномерный массив из n Элементов (n – чётно) и выполнить арифметический
Сдвиг влево на k позиций (k < n). Пример (для n = 8). Вывести оба массива на экран.

Pascal

Uses Crt;
Const N = 8;  k = 3;
Var A: array [1..N]  of  Integer;
            I,  j:  Integer;
Begin
ClrScr;
     For i:= 1 to N do begin
         A[i]:= I;
         Write(A[i]:3);
     End;  WriteLn;
     For i:= 1 to N do begin
      For j:= 1 to k do
  If I – j then A[i]:= 0;
        Write(A[i]:3);
    End;  WriteLn;
   ReadLn
End.

На выходе имеем:

Pascal

1   2   3   4   5   6   7   8
0   0   0   4   5   6   7   8
  А должно быть так:
         1   2   3   4   5   6   7   8
         0   0   0   1   2   3  4   5

Эта так называемый арифметический сдвиг. А как это cделать, проблема.
Что делать?

@bormant · 19.08.2018, 22:01

1. В задании сказано выполнить циклический сдвиг массива -- это задание не выполнено, исходный массив не был модифицирован согласно заданию.
Если бы в задании было требование только вывести циклически сдвинутый массив (но не было бы прямого указания про сдвиг массива), задание можно было бы считать выполненным.

@Constantin Cat · 20.08.2018, 18:19

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

сдвинуть элементы циклически на одну позицию влево.

Мне одному показалось, что вы не знаете где сено, а где солома.

Pascal

uses Crt;
const N = 8;
var A: array[1..8] of integer;
           i: integer;
           k:integer;
begin
ClrScr;
  writeln('original array:');
   for i:= 1 to n do
     begin
       A[i]:=random(80)-10;
       write(A[i]:3);
     end;
   WriteLn;
   writeln('you shift array to the left:');
   write(A[n]:3);
   for i:= 1to N-1 do write(A[i]:3);
   writeln;
   k:=1;
   writeln('my shift array to the left on ',k,' positon:');
   for i:= 1to N do
      write(A[1+(i+k-1)mod n]:3);
   writeln;
   write('Enter k-posision shift:');
   readln(k);
   writeln('my shift array to the left on ',k,' positon:');
   for i:= 1to N do
      write(A[1+(i+k-1)mod n]:3);
   writeln;
   write('please press any key . . .');
   readln
end.

ps:это только визуальный сдвиг, преобразование массива аналогично.

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	19.08.2018, 22:01	2
	1. В задании сказано выполнить циклический сдвиг массива -- это задание не выполнено, исходный массив не был модифицирован согласно заданию. Если бы в задании было требование только вывести циклически сдвинутый массив (но не было бы прямого указания про сдвиг массива), задание можно было бы считать выполненным. 0

	20.08.2018, 18:19