Troca de Elementos na Matriz

Prévia do material em texto

U
n
iv
e
rs
id
a
d
e
 A
b
e
rt
a
 d
o
 B
ra
si
l
136
ANEXOS
 Program Tratamento_Matriz_trocas_linhas_colunas;
 
 Var 
 i,j,aux : integer;
 Matriz : array [1..5, 1..5] of integer;
 Const // Declaração de constantes
 linhas = 5;
 colunas = 5;
 
 Begin
 // Inicialização da matriz com números ímpares
 aux := 1;
 For i := 1 to linhas do 
 For j := 1 to colunas do
 Begin
 Matriz[i,j] := aux; 
 aux := aux + 2;
 End; 
 // Exibição dos dados da matriz original
 writeln(ꞌConteúdo	da	Matriz	-	original:	ꞌ);	
 For i := 1 to linhas do
 Begin
 For j := 1 to colunas do
 write(Matriz[i,j]:5);
 
 writeln;
 End;
 // Troca dos elementos da 2a linha com os da 5a
 For j := 1 to colunas do
 Begin
 aux := Matriz[2,j];
 Matriz[2,j] := Matriz[5,j];
 Matriz[5,j] := aux;
 End;
 // Troca dos elementos da 3a coluna com os da 4a
 For i := 1 to colunas do
 Begin
 aux := Matriz[i,3];
 Matriz[i,3] := Matriz[i,4];
 Matriz[i,4] := aux;
 End;
 // Exibição dos dados da matriz modificada
 writeln(ꞌConteúdo	da	Matriz	-	modificada:	ꞌ);	
 For i := 1 to linhas do
 Begin
 For j := 1 to colunas do
 write(Matriz[i,j]:5);
 
 writeln;
 End;
 readkey;
 
 End.
137
ANEXOS
A
lg
o
rit
m
o
s 
e
 P
ro
g
ra
m
a
çã
o
 II
Observação: 
■uso de uma variável auxiliar, aux, para inicializar a matriz e 
também na troca de conteúdos entre os elementos das linhas e 
colunas. 
Seção	4
■Atividade matriz - troca de conteúdos entre diagonais: