Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Andrey_1580
0 / 0 / 0
Регистрация: 15.03.2019
Сообщений: 6
1

Сдвиг элементов массива вправо.

11.10.2019, 14:04. Просмотров 64. Ответов 1
Метки нет (Все метки)

Массив из N целых элементов
Заполнить квадратами номеров элементов и затем сдвинуть циклически вправо на K элементов.
В программе должны быть: процедура заполнения, процедура сдвига на один элемент, процедура вывода и основная программа.
Тип Tmas задан как array[1..N] of integer и должен использоваться для описания параметров подпрограмм.
N и K - это константы. Их описывать не нужно.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.10.2019, 14:04
Ответы с готовыми решениями:

Циклический сдвиг элементов массива вправо
апишите программу, которая циклически сдвигает элементы массива вправо (0-й элемент становится 1-м,...

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

Произвести сдвиг элементов массива на k позиций вправо
Добрые люди, помогите с паскалем: Ввести массив a,a,..,a целого типа и число k<n. Произвести...

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

Осуществить циклический сдвиг элементов массива на L позиций вправо
2.Дан массив из N целых чисел (N<=10). Осуществить циклический сдвиг элементов массива на L...

1
Puporev
Модератор
57442 / 43811 / 30266
Регистрация: 18.05.2008
Сообщений: 104,563
11.10.2019, 14:48 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
const n=20;
      k=5;
type Tmas=array[1..n] of integer;
procedure zap(var a:Tmas);
var i:integer;
begin
for i:=1 to n do
a[i]:=i*i;
end;
procedure print(a:Tmas;s:string);
var i:integer;
begin
writeln(s);
for i:=1 to n do
write(a[i]:4);
writeln;
end;
procedure sdvig(var a:Tmas);
var i,x:integer;
begin
x:=a[n];
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=x;
end;
var a:Tmas;
    i:integer;
begin
zap(a);
print(a,'Исходный массив');
for i:=1 to k do
sdvig(a);
print(a,'Массив после сдвигов');
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2019, 14:48

Осуществить циклический сдвиг элементов массива вправо на К позиций
Помогите пожалуйста Дан массив А размерностью N и целое число К(1<=K<=4,k<N) Осуществить...

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

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


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

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

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