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

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

04.12.2009, 19:53. Просмотров 709. Ответов 1
Метки нет (Все метки)

Сдвиг
В начальный момент в i-ом элементе массива записано число i (всего N элементов). Каждую секунду числа сдвигаются в следующую ячейку (из i-ой в i+1-ую), а из N-ой - в первую.
Напечатать состояние массива через T секунд.
Входные данные: записаны два числа - N (1<=N<=100) и T (0<=T<=30000).
Выходные данные: выведите N чисел - состояние массива через T секунд.
Пример входных и выходных данных:
Ввод
5 3
Вывод
3 4 5 1 2
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2009, 19:53
Ответы с готовыми решениями:

Циклический сдвиг в массиве.
Написать программу, которая вводит с клавиатуры непустой массив целых чисел...

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

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

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

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

1
Puporev
Модератор
55109 / 42354 / 29253
Регистрация: 18.05.2008
Сообщений: 100,080
04.12.2009, 20:46 2
Лучший ответ Сообщение было отмечено temabest как решение

Решение

Вот делал давно программку на тему циклического сдвига, подгоните под свою задачу.
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
uses crt;
type Tmas=array[1..100] of byte;
procedure Sdvig(k:byte;var z:Tmas);
var j,x:byte;
begin
x:=z[k];
for j:=k downto 2 do
z[j]:=z[j-1];
z[1]:=x;
for j:=1 to k do
write(z[j],' ');
writeln;
end;
var a:Tmas;
    N,i:byte;
    T:word;
begin
clrscr;
n:=20;t:=20;
write('0 sec ');
For i:=1 to N do
  begin
   a[i]:=i;
   write(a[i],' ');
  end;
writeln;
i:=1;
repeat
write(i,' sec ');
delay(100);
Sdvig(N,a);
inc(i);
until i>(T);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2009, 20:46

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

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

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


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

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

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