Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Точилка-Маня
1 / 1 / 2
Регистрация: 28.02.2011
Сообщений: 20
#1

Сдвиг на 4 элемента - Pascal ABC

13.04.2011, 14:56. Просмотров 657. Ответов 10
Метки нет (Все метки)

Заполнить массив из 12 элементов случайными числами в интервале [12..12] и выполнить циклический сдвиг вправо на 4 элемента.
http://www.cyberforum.ru/pascalabc/thread682537.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2011, 14:56
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сдвиг на 4 элемента (Pascal ABC):

Выполнить циклический сдвиг массива влево без первого элемента
Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов...

Выполнить циклический сдвиг всех элементов массива на один вправо начиная с первого нулевого элемента
Дан линейный массив на N элементов. Выполнить циклический сдвиг всех его...

Дан линейный массив на N элементов. Выполнить циклический сдвиг всех его элементов на два элемента влево. Вход
Дан линейный массив на N элементов. Выполнить циклический сдвиг всех его...

Выполнить циклический сдвиг всех элементов массива на один вправо начиная с последнего нулевого элемента
Дан линейный массив на N элементов. Выполнить циклический сдвиг всех его...

номера минимального элемента массива и элемента, являющегося минимальным без учета этого элемента
11.109. Дан массив. Определить: а) максимальный элемент массива и элемент,...

10
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
13.04.2011, 15:15 #2
http://www.cyberforum.ru/pascal/thread133142.html
0
Точилка-Маня
1 / 1 / 2
Регистрация: 28.02.2011
Сообщений: 20
13.04.2011, 15:38  [ТС] #3
я не поняла как это впихнуть в массив который сам составляется
0
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
13.04.2011, 15:41 #4
А какая разница как введен массив? Алгоритм сдвига от этого никак не меняется.
Если и массив ввести толку нет, читайте здесь.
http://www.cyberforum.ru/pascal/thread137713.html
0
Точилка-Маня
1 / 1 / 2
Регистрация: 28.02.2011
Сообщений: 20
13.04.2011, 15:41  [ТС] #5
я составила программу по описаниям данным в стандартных операциях.
в итоге ничего не произошло
0
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
13.04.2011, 15:43 #6
Покажите код.
0
Точилка-Маня
1 / 1 / 2
Регистрация: 28.02.2011
Сообщений: 20
13.04.2011, 15:44  [ТС] #7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program qq;
const N=12;
var a:array[1..12] of integer;
i,m,k,c,h:integer;
begin
read(h);
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
for i:=1 to h do begin
for c:=k downto 1 do
if (c=k) then m:=a[k] else a[c+1]:=a[c];
a[1]:=c;
end;
writeln;
writeln('Полученный массив:');
for i:=1 to N do
write(a[i]:4);
readln
end.
0
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
13.04.2011, 15:54 #8
Вместо того чтобы чуть подумать, содрала первое на чем глаз упал и все...
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
program qq;
uses crt;
const N=12;
var a:array[1..n] of integer;
    i,j,c:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(25)-12;
  write(a[i]:4);
 end;
for j:=1 to 4 do
 begin
  c:=a[1];
  for i:=1 to n-1 do a[i]:=a[i+1];
  a[n]:=c;
 end;
writeln;
writeln('Полученный массив:');
for i:=1 to N do
write(a[i]:4);
readln
end.
0
Точилка-Маня
1 / 1 / 2
Регистрация: 28.02.2011
Сообщений: 20
13.04.2011, 16:01  [ТС] #9
и все же он сдвинулся влево
0
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
13.04.2011, 16:55 #10
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
program qq;
uses crt;
const N=12;
var a:array[1..n] of integer;
    i,j,c:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(25)-12;
  write(a[i]:4);
 end;
for j:=1 to 4 do
 begin
  c:=a[n];
  for i:=n downto 2 do a[i]:=a[i-1];
  a[1]:=c;
 end;
writeln;
writeln('Полученный массив:');
for i:=1 to N do
write(a[i]:4);
readln
end.
1
Точилка-Маня
1 / 1 / 2
Регистрация: 28.02.2011
Сообщений: 20
13.04.2011, 19:09  [ТС] #11
премного благодарна)
0
13.04.2011, 19:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2011, 19:09
Привет! Вот еще темы с решениями:

Инвертировать часть массива с первого элемента до самого правого минимального элемента
Доброго времени суток, прошу помощи у вас уважаемые пользователи. По...

Найти среднее арифметическое до минимального элемента и после максимального элемента массива
Дан массив F(11). найти среднее арифметическое до минимального элемента и после...

В массиве а произвести замену элемента, увеличив его на значение соответствующего элемента b
помогите,решите пожалуйста 3)Даны две последовательности a1, a2, ..., аn и...

Вставить два одинаковых элемента перед и после максимального элемента массива
помогите дописать программу: Дан массив из n элементов. Вставить два...


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

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

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