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

Матрица. Для каждой строки дважды произвести циклический сдвиг элементов влево

16.12.2011, 17:08. Просмотров 1074. Ответов 2
Метки нет (Все метки)

Ввести матрицу A n×m , вывести ее. В матрице для каждой строки
дважды произвести циклический сдвиг элементов влево.

Помогите пожалуйста разобраться, почему немного неправильно идет....

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
program abc;
var A:array[1..20,1..50] of integer;
i,j,k:integer;
n, m, buf:integer;
begin
cls;
writeLn ('vvodim masiv A:');
writeln('n=,m=');
readln(n ,m);
for i:=1 to n do
for j:=1 to m do
begin
write('A[',i,',',j,']=');
readln(A[i,j]);
end;
writeln ('isxodniy masivA:');
for i:=1 to n do
begin
for j:=1 to m do
write(A[i,j]:5);
writeLn;
end;
for j:=1 to n do
for k:=1 to 2 do
begin
buf:=A[i,j];
for j:=m downTo 2 do
A[i,j]:=A[i,j-1];
a[i,1]:=buf;
end;
writeLn('izmeneniy masiv A;');
for i:=1 to n do
begin
for i:=1 to m do
write(A[i,j]:5);
writeLn;
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2011, 17:08
Ответы с готовыми решениями:

Циклический сдвиг влево внутри серий элементов
Ввести одномерный массив A, в котором число элементов кратно K , вывести его. Разбить массив на K...

Рекурсия: циклический сдвиг элементов массива на одну позицию влево
описать рекурсивную процедуру циклического сдвига элементов массива на одну позицию влево

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

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

2
13 / 13 / 13
Регистрация: 09.12.2011
Сообщений: 35
16.12.2011, 18:28 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
program abc;
var A:array[1..20,1..50] of integer;
i,j,k:integer;
n, m, buf:integer;
begin
cls;
writeLn ('vvodim masiv A:');
writeln('n=,m=');
readln(n ,m);
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(20)+1;
end;
writeln ('isxodniy masivA:');
for i:=1 to n do
begin
for j:=1 to m do
write(A[i,j]:5);
writeLn;
end;
for i:=1 to n do
for j:=1 to m do
a[i,m+1]:=a[i,1];
for i:=1 to n do
for j:=1 to m do
a[i,j]:=a[i,j+1];
writeln('Массив со сдвигом влево 1 раз');
for i:=1 to n do
begin
for j:=1 to m do
write(A[i,j]:5);
writeLn;
end;
for i:=1 to n do
for j:=1 to m do
a[i,m+1]:=a[i,1];
for i:=1 to n do
for j:=1 to m do
a[i,j]:=a[i,j+1];
writeln('Массив со сдвигом влево 2 раз');
for i:=1 to n do
begin
for j:=1 to m do
write(A[i,j]:5);
writeLn;
end;
end.
вот чуть подправил твой вариант
1
0 / 0 / 0
Регистрация: 15.12.2011
Сообщений: 9
18.12.2011, 17:44  [ТС] 3
Спасибо огромное!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2011, 17:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

Циклический сдвиг слова влево или вправо
Мне нужно написать программу для циклического сдвига слова влево или вправо.(Чтобы ни один из битов...

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


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

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

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