36 / 17 / 9
Регистрация: 14.02.2011
Сообщений: 169
1

Процедура ввода квадратной матрицы, транспонирования матрицы и вывода новой матрицы

08.08.2011, 09:00. Показов 9864. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1.Написать программу с использование собственного модуля, который должен содержать процедуру ввода квадратной матрицы, процедуру транспонирования матрицы и процедуру вывода новой матрицы.
2.Дана матрица размера Найти максимальный среди элементов тех строк, которые упорядочены либо по возрастанию, либо по убыванию, и минимальный среди элементов тех столбцов, которые упорядочены упорядочены либо по возрастанию, либо по убыванию. Если такие строки и столбцы отстутствуют, то вывести 0. Написать программу с использованием модуля, который должен содержать процедуры и функции, соответствующие описанным выше действиям.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.08.2011, 09:00
Ответы с готовыми решениями:

Процедура вывода элементов квадратной матрицы по спирали по часовой стрелке.
Собственно сабж...

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

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

Функция транспонирования квадратной матрицы
написать функцию транспонирвания квадратной матрицы (т.е. поворота исходной матрицы на...

1
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.08.2011, 10:09 2
Лучший ответ Сообщение было отмечено BOUH_TbMbI как решение

Решение

1.
Текст модуля.
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
51
52
unit matrix1;
interface
uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
procedure Vvod(var a:matr;var m:byte);
procedure Trans(a:matr;m:byte;var b:matr);
procedure Vyvod(a:matr;m:byte);
implementation
procedure Vvod(var a:matr;var m:byte);
var i,j:byte;
begin
repeat
write('Размер матрицы =');
readln(m);
until m in [1..nmax];
writeln('Введите элементы матрицы, целые числа:');
for i:=1 to m do
for j:=1 to m do
 begin
  write('el[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to m do
  write(a[i,j]:6);
  writeln;
 end;
end;
procedure Trans(a:matr;m:byte;var b:matr);
var i,j:byte;
begin
for i:=1 to m do
for j:=1 to m do
b[i,j]:=a[j,i];
end;
procedure Vyvod(a:matr;m:byte);
var i,j,i1,j1:byte;
    mn,mx:real;
begin
writeln('Транспонированная матрица:');
for i:=1 to m do
 begin
  for j:=1 to m do
  write(a[i,j]:6);
  writeln;
 end;
end;
end.
Текст программы.
Pascal
1
2
3
4
5
6
7
8
9
10
uses matrix1,crt;
var a,b:matr;
    m:byte;
begin
clrscr;
Vvod(a,m);
Trans(a,m,b);
Vyvod(b,m);
readln
end.
Добавлено через 12 минут
Цитата Сообщение от BOUH_TbMbI Посмотреть сообщение
2.Дана матрица размера
И что?

Добавлено через 4 минуты
Если такие строки и столбцы отстутствуют, то вывести 0
.
Довольно глупое условие. А если есть такие строки и столбцы, но минимальный или максимальный в них равен 0... Например матрица
0 1 2
1 2 3
2 3 4
Все столбцы упорядочены и минимальный=0

Добавлено через 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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
unit matrix2;
interface
uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
procedure Vvod(var a:matr;var m,n:byte);
function Max(a:matr;m,n:byte):integer;
function Min(a:matr;m,n:byte):integer;
implementation
procedure Vvod(var a:matr;var m,n:byte);
var i,j:byte;
begin
repeat
write('Количество строк до ',nmax,' =');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' =');
readln(n);
until n in [1..nmax];
writeln('Введите элементы матрицы, натуральные числа:');
for i:=1 to m do
for j:=1 to n do
 begin
  repeat
  write('el[',i,',',j,']=');
  readln(a[i,j]);
  until a[i,j]>0;
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:6);
  writeln;
 end;
end;
function Max(a:matr;m,n:byte):integer;
var i,j,kv,ku:byte;
    mx:integer;
begin
mx:=0;
for i:=1 to m do
 begin
  kv:=1;ku:=1;
  for j:=2 to n do
  if a[i,j]>a[i,j-1] then kv:=kv+1
  else if a[i,j]<a[i,j-1] then ku:=ku+1;
  if(kv=n)or(ku=n) then
  for j:=1 to n do
  if a[i,j]>mx then mx:=a[i,j];
 end;
Max:=mx;
end;
function Min(a:matr;m,n:byte):integer;
var i,j,kv,ku:byte;
    mn:integer;
begin
mn:=maxint;
for j:=1 to n do
 begin
  kv:=1;ku:=1;
  for i:=2 to m do
  if a[i,j]>a[i-1,j] then kv:=kv+1
  else if a[i,j]<a[i-1,j] then ku:=ku+1;
  if(kv=m)or(ku=m) then
  for i:=1 to m do
  if a[i,j]<mn then mn:=a[i,j];
 end;
if mn=maxint then Min:=0
else Min:=mn;
end;
end.
Текст программы.
Pascal
1
2
3
4
5
6
7
8
9
10
uses matrix2,crt;
var a:matr;
    m,n:byte;
begin
clrscr;
Vvod(a,m,n);
writeln('Максимальный в упорядоченных строках=',Max(a,m,n));
writeln('Минимальный в упорядоченных столбцах=',Min(a,m,n));
readln
end.
1
08.08.2011, 10:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.08.2011, 10:09
Помогаю со студенческими работами здесь

программа транспонирования квадратной матрицы 3-го порядка
Помогите решить задачу: Составить программу транспонирования квадратной матрицы 3-го порядка с...

Составить алгоритм «транспонирования» квадратной матрицы A
Составить алгоритм «транспонирования» квадратной матрицы A(NxN) (поменять местами соответствующие...

Напишите программу для транспонирования квадратной матрицы
Напишите программу для транспонирования* квадратной матрицы 5*5. Все элементы на главной ...

Задача, написать программу для транспонирования квадратной матрицы
Сделал эту задачу одномерными массивами, оказалось нужно динамическими, поможете? #include &quot;pch.h&quot;...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru