Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
music
0 / 0 / 0
Регистрация: 02.03.2010
Сообщений: 4
1

Циклический сдвиг в массиве.

02.03.2010, 18:13. Просмотров 684. Ответов 1
Метки нет (Все метки)

Написать программу, которая вводит с клавиатуры непустой массив целых чисел размерностью n, циклически сдвигает элементы вправо на k-позиций(k<n), и печатает результат. Цикличность означает, что последний элемент становиться первым и т.д. погогите решить задачу
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.03.2010, 18:13
Ответы с готовыми решениями:

Циклический сдвиг в массиве.
Сдвиг В начальный момент в i-ом элементе массива записано число i (всего N...

циклический сдвиг в одномерном массиве
Ввести одномерный целочисленный массив A, вывести его. Произвести циклический...

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

циклический сдвиг
Дано: A(k,n) осуществить циклический сдвиг элементов командной чётной строки на...

Циклический сдвиг массива
Осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов...

1
Puporev
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
02.03.2010, 18:59 2
Лучший ответ Сообщение было отмечено music как решение

Решение

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
uses crt;
const nmax=100;
var a:array[1..100] of byte;
    n,i,j,k:byte;
    x:integer;
begin
clrscr;
repeat
write('Количество чисел до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите в массив ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
repeat
write('На сколько позиций сдвинуть массив вправо? от 1 до ',n-1,' k=');
readln(k);
until k in [1..n-1];
for i:=1 to k do
 begin
  x:=a[n];
  for j:=n downto 2 do
  a[j]:=a[j-1];
  a[1]:=x;
 end;
writeln('Сдвиг на ',k,' позиций вправо:');;
for i:=1 to n do
write(a[i],' ');
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.03.2010, 18:59

Циклический сдвиг массива
Помогите плиз, буду очень благодарен Дан массив целых чисел а1, .... аn . ...

Произвести циклический сдвиг
Дан массив А(n) и натуральное k (k &lt; n). Произвести циклический сдвиг его...

Циклический сдвиг массива
дан массив размера n и некоторое число k&lt;n осуществить циклический сдвиг на k...


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

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

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