Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Rinse
0 / 0 / 0
Регистрация: 05.11.2012
Сообщений: 14
#1

Матрица! Циклический сдвиг - Turbo Pascal

18.12.2012, 21:04. Просмотров 286. Ответов 2
Метки нет (Все метки)

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

Добавлено через 25 минут
вот блин, целыый форум программистов, и никто не может помочь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2012, 21:04
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Матрица! Циклический сдвиг (Turbo Pascal):

Циклический сдвиг - Turbo Pascal
Произвести циклический сдвиг текста вправо на одно слово.

Циклический сдвиг - Turbo Pascal
Осуществите циклический сдвиг компонент заданного вектора A(N) вправо на две позиции, то есть получите вектор A = (aN-1 , aN , a1 ...

Циклический сдвиг - Turbo Pascal
Очень распространенная задача, если кто-то знает, как решить, помогите, пожалуйста Сдвинуть элементы строки на k символов влево.

циклический сдвиг элементов - Turbo Pascal
вводится количество элементов, затем сами элементы, затем целое число, обозначающее количество позиций циклического сдвига (>0 вправо, <0...

циклический сдвиг столбцов матрицы - Turbo Pascal
Напрмер 1 2 3 1 2 3 1 2 3 Ввожу -2, двигает столбцы на 2 влево, 2 двигает столбцы на два в право. Помогите пожалуйста!

Циклический сдвиг random массива - Turbo Pascal
Помогите и мне пожалуйста,очень нужно: с помощью функции random получить массив размерностью (0..20). Составить программу осуществляющую...

2
HighPredator
5645 / 1962 / 373
Регистрация: 10.12.2010
Сообщений: 5,687
Записей в блоге: 3
18.12.2012, 21:41 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  M=5;
  N=6;
 
var
  a:array[1..M,1..N] of integer;
 
procedure DownShift(PosCount:integer);
var
  i,j,k,temp:integer;
begin
  for k:=1 to PosCount do
  begin
    for j:=1 to N do
    begin
      temp:=a[M,j];
      for i:=M downto 2 do a[i,j]:=a[i-1,j];
      a[1,j]:=temp;
    end;
  end;
end;
Цитата Сообщение от Rinse Посмотреть сообщение
вот блин, целыый форум программистов, и никто не может помочь
Так и вы тут не один находитесь. И кстати, между "помочь" и "сделать за" огромная разница.
0
Rinse
0 / 0 / 0
Регистрация: 05.11.2012
Сообщений: 14
18.12.2012, 21:56  [ТС] #3
Цитата Сообщение от HighPredator Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  M=5;
  N=6;
 
var
  a:array[1..M,1..N] of integer;
 
procedure DownShift(PosCount:integer);
var
  i,j,k,temp:integer;
begin
  for k:=1 to PosCount do
  begin
    for j:=1 to N do
    begin
      temp:=a[M,j];
      for i:=M downto 2 do a[i,j]:=a[i-1,j];
      a[1,j]:=temp;
    end;
  end;
end;
Так и вы тут не один находитесь. И кстати, между "помочь" и "сделать за" огромная разница.




не до оценил, спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2012, 21:56
Привет! Вот еще темы с ответами:

Циклический сдвиг массива вправо - Turbo Pascal
выполнить циклический сдвиг двумерного массива вправо

Осуществить циклический сдвиг элементов - Turbo Pascal
Осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов вправо,n может быть больше количества элементов в строке

Осуществить циклический сдвиг массива - Turbo Pascal
3. Составить и выполнить программу, которая с помощью подпрограммы-функции, осуществляющей циклический сдвиг массива, сделает это несколько...

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


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

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

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