Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.84/19: Рейтинг темы: голосов - 19, средняя оценка - 4.84
qwerty_123
0 / 0 / 0
Регистрация: 20.11.2012
Сообщений: 16
1

Осуществить циклический сдвиг элементов массива влево \ вправо на одну позицию

04.12.2012, 14:10. Просмотров 3524. Ответов 3

Дан массив размера N. Осуществить циклический сдвиг элементов массива влево1|вправо2 на одну позицию.

Добавлено через 43 секунды
Помогите пожайлуйста !!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2012, 14:10
Ответы с готовыми решениями:

Осуществить циклический сдвиг элементов массива вправо на одну позицию
ПОМОГИТЕ ПОЖАЛУЙСТА! Дан целочисленный массив. Осуществить циклический сдвиг...

Дан массив размера N, осуществить циклический сдвиг элементов массива вправо на одну позицию
2) Дан массив размера N, осуществить циклический сдвиг элементов массива вправо...

Осуществить циклический сдвиг элементов массива влево, вправо на k позиций
Дан массив размера N и число k (0 < k < 5, k < N). Осуществить циклический...

Осуществить сдвиг элементов массива влево на одну позицию
Пожалуйста, помогите мне. Дан массив размера N.Осуществить сдвиг элементов...

Осуществить сдвиг элементов массива вправо на одну позицию
1) Дан массив размера N. Осуществить сдвиг элементов массива вправо на одну...

3
Reveng
420 / 420 / 338
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
04.12.2012, 15:58 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
const
  nmax = 20;
 
var
  a: array[1..nmax] of integer;
  x: integer;
  i, n, key: integer;
  
begin
  Writeln('Направление сдвига (1 - влево, 2 - вправо): ');
  Readln(key);
  Repeat
    Write('Размер массива (не более ', nmax, '): ');
    Readln(n);
  until n in [1..nmax]; 
  Writeln('Введите n элементов массива');
  for i := 1 to n do
    begin
    Write('A[', i, '] = ');
    Readln(a[i]);
    end;
  case Key of
  1 :
    begin
    x := a[1];
    for i := 1 to n - 1 do a[i] := a[i + 1];
    a[n] := x;
    end;
  2 :
    begin   
    x := a[n];
    for i := n downto 2 do a[i] := a[i - 1];
    a[1] := x;
    end;
  end; 
  Writeln('После сдвига:');
  for i := 1 to n do
    Write(a[i], ' ');
end.
1
qwerty_123
0 / 0 / 0
Регистрация: 20.11.2012
Сообщений: 16
04.12.2012, 17:08  [ТС] 3
Спасибо большое

Добавлено через 1 минуту
Не поможете также здесь!? Плииз ))) Массив и здесь - Найти суммы элементов диагоналей матрицы, параллельных главной \ побочной
0
r4coon
0 / 0 / 0
Регистрация: 10.12.2017
Сообщений: 1
10.12.2017, 09:39 4
кто может этот код переделать под C без []?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2017, 09:39

Осуществить сдвиг элементов массива вправо на одну позицию
1) Дан массив размера N. Осуществить сдвиг элементов массива вправо на одну...

Осуществить сдвиг элементов массива вправо на одну позицию
Дан массив размера N. Осуществить сдвиг элементов массива вправо на одну...

Осуществить циклический сдвиг элементов массива налево на одну позицию
ООчень нужно((( 1. Дан массив размера N. Осуществить циклический сдвиг...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru