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

Из матрицы получить новую путем перестановки блоков, как показано на рисунке - Turbo Pascal

27.11.2014, 21:13. Просмотров 309. Ответов 4
Метки нет (Все метки)

Дано дійсну матрицю A(2nx2n). Отримати нову матрицю, відповідно до рис., переставляючи її блоки розміром n x n (n <=5).
заранее спасибо.
рис._Из матрицы получить новую путем перестановки блоков, как показано на рисунке
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2014, 21:13
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Из матрицы получить новую путем перестановки блоков, как показано на рисунке (Turbo Pascal):

Получить из матрицы B[N][M] из матрици A[N][M] путем перестановки столбцов- первого с последни, второго с предпослндним и т.д.
Помогите пожалуста нужно написать алгоритм и программу в фри паскале=) вот...

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

Получить новую матрицу A путем деления элементов матрицы E на наименьший по модулю элемент
Дана матрица действительных чисел E размером 7х10. Получить новую матрицуA...

Получить новую матрицу путем деления всех элементов матрицы на ее наибольший по модулю элемент
Помогите пожалуйста решить задачу по Pascal....... Дана действительная...

Получить новую матрицу путем деления всех элементов исходной матрицы на ее наименьший элемент
- Ввести произвольную размерность квадратной матрицы в интервале 1..10. -...

Получить новую матрицу B путем деления всех элементов матрицы А на суму индексов максимального элемента
люди, помогите плз с решением задачи, кто может. условие : Дана матрица А...

4
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
27.11.2014, 21:23 #2
krpkodil, все нужно перевести на русский.
0
krpkodil
0 / 0 / 0
Регистрация: 27.11.2014
Сообщений: 5
27.11.2014, 21:28  [ТС] #3
Дано действительную матрицу A (2nx2n). Получить новую матрицу, в соответствии с рис., Переставляя ее блоки размером nХn (n <= 5).

Добавлено через 34 секунды
ВОТ НЕМНОГО НАКИДАЛЯ
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
uses crt;
const nmax=5;
var a:array[1..2*nmax,1..2*nmax] of real;
    n,i,j:integer;
    x:real;
begin
clrscr;
repeat
write('Размер половины матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to 2*n do
 begin
  for j:=1 to 2*n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  
 x:=A[i,j];
a[i,j]:=a[i+N,j+N];
a[i+N,j+N]:=x;
  x:=a[i+N,j]; 
a[i+N,j]:=a[i,j+N]; 
a[i,j+N]:=x;
 end;
writeln('Перестановка блоков по часовой стрелке:');
for i:=1 to n do
 begin
  for j:=1 to 2*n do
  write(a[i,j]:5:2);
  writeln;
 end;
readln
end.
0
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
28.11.2014, 02:04 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
for i:=1 to n do
  for j:=1 to n do
begin
t:=a[i,j];
a[i,j]:=a[n+i, n+j];
a[n+i, n+j]:=t;
end;
for i:= 1 to n do
  for j:=n+1 to n*2 do
begin
t:=a[i,j];
a[i,j]:=a[n+i, j-n ];
a[n+i, j-n] :=t;
end;
0
krpkodil
0 / 0 / 0
Регистрация: 27.11.2014
Сообщений: 5
28.11.2014, 17:36  [ТС] #5
всем спасибо
уже написал сам
получилось вот так
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
uses crt;
const nmax=5;
var a:array[1..2*nmax,1..2*nmax] of real;
    n,i,j:integer;
    x:real;
begin
clrscr;
repeat
write('rozmir matrici  vid 2 do <= 5)')    ;
readln(n);
until n in [2..nmax];
writeln('Matrica A:');
for i:=1 to 2*n do
 begin
  for j:=1 to 2*n do
   begin
    a[i,j]:=random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
 
 
for i:=1 to n do
    for j:=1 to n do
         begin
  
         x:=a[i,j];
         a[i,j]:=a[i+n,j+n];
         a[i+n,j+n]:=x;
 
         x:=a[i+n,j]; 
 
         a[i+n,j]:=a[i,j+n]; 
         a[i,j+n]:=x;
         end;
    writeln('Matrica B');
    for i:=1 to 2*n do
      begin
      for j:=1 to 2*n do
     write(a[i,j]:5:2);
     writeln;
     end;
    
readln
end.
0
28.11.2014, 17:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2014, 17:36
Привет! Вот еще темы с решениями:

Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
дана действительная матрица размера n x m, в которой не все элементы равны...

Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
Дана действительная матрица размера n*m, в которой не все элементы равны нулю....

Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
. Дана действительная матрица размера nxm, в которой не все элементы равны...

Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
Задана матрица размером NxM состоящая из действительных элементов.Для задания...


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

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

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