Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
-19 / 0 / 0
Регистрация: 23.11.2011
Сообщений: 82
1

Дана матрица А размера m×n. Получить транспонированную матрицу (её размер n×m).

13.12.2011, 18:02. Просмотров 2017. Ответов 5
Метки нет (Все метки)

Дана матрица А размера m×n. Получить транспонированную матрицу (её размер n×m).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2011, 18:02
Ответы с готовыми решениями:

Дана прямоугольная матрица размера m×n
Дана прямоугольная матрица размера m×n. Составить программу, которая находит столбцы с наибольшей и...

Дана матрица размера M×N. Вывести ее элементы в следующем порядке:
Дана матрица размера M×N. Вывести ее элементы в следующем порядке: первый столбец сверху вниз,...

Дана матрица размера M × N. Для каждой строки матрицы найти сумму ее элементов.
решите пажалуста

Дана квадратная матрица. Получить из нее транспонированную матрицу
Помогите пожалуйста. 1)Дана квадратная матрица. Получить из нее транспонированную матрицу. ...

5
5 / 5 / 0
Регистрация: 24.02.2013
Сообщений: 40
24.02.2013, 18:29 2
dioris, у тебя есть решение єтой задачи?
0
260 / 235 / 161
Регистрация: 10.12.2011
Сообщений: 513
24.02.2013, 18:47 3
Матрицу ( только квадратную , иначе транспонировать нельзя ) и переменные, зададите сами

Pascal
1
2
3
4
5
6
7
for i:=1 to n do begin
 for j:= i + 1 to n do begin
      temp:=A[i,j];
      A[i,j]:=A[j,i];
      A[j,i]:=temp;
  end;
end;
0
Модератор
60173 / 45316 / 31273
Регистрация: 18.05.2008
Сообщений: 108,837
24.02.2013, 19:08 4
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
49
50
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax]of integer;
    i,j,n,m:integer;
{процедура транспонирования матрицы}
procedure TrMatrix(x,y:integer);
var i,j,b:integer;
begin
for i:=1 to x do
for j:=i to y do
 begin
  b:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=b;
 end;
end;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n)
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
{вызов процедуры транспонирования матрицы}
if n>m then TrMatrix(m,n){если строк больше чем столбцов}
else TrMatrix(n,m);{если поровну или столбцов больше}
writeln;
writeln('Транспонированная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.
1
0 / 0 / 0
Регистрация: 21.11.2017
Сообщений: 15
22.11.2017, 19:56 5
На питоне можно? (Если можно, можно код?Плиииз)
0
Модератор
60173 / 45316 / 31273
Регистрация: 18.05.2008
Сообщений: 108,837
22.11.2017, 20:14 6
Цитата Сообщение от sakosako Посмотреть сообщение
На питоне можно?
Даже на удаве можно, если умеешь. Создай такую тему в том разделе.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2017, 20:14

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

Дана прямоугольная матрица В размером N×M
Дана прямоугольная матрица В размером N×M. Составить программу, которая преобразует матрицу...

Даны целочисленная матрица размера n×3, целые числа k
Даны целочисленная матрица размера n×3, целые числа k, l (1 ≤ k ≤ n, 1 ≤ l...

Дана матрица размером 4×3, необходимо преобразовать ее
Доброго времени суток, уважаемые форумчане. Суть задачи такова: Дана матрица размером 4×3,...

Двумерные массивы. Дана прямоугольная матрица размером N×M
Дана прямоугольная матрица размером N×M. Составить программу, которая преобразует матрицу следующим...


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

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

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