Estudo Algoritmo - MATRIZ (Diagonais, Girar Matriz, Matriz Transposta ...)

Prévia do material em texto

Matriz
 Exemplos de Exercícios ...
1.Criar um algoritmo que leia os elementos de uma matriz inteira 10 x 10 e escreva os elementos da diagonal principal.
Algoritmo_Ex01
Declare
	Matriz: Vetor [1..10;1..10] de inteiro;
	i,j:inteiro;
Inicio
	Para i<-1 até 10 faça
		Para j<-1 até 10 faça
			Leia (Matriz[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;
	Para i<-1 até 10 faça
		Para j<-1 até 10 faça
			Se ( i = j ) então // Diagonal Principal ( i = j )
				Escreva (Matriz[i,j]);
			Fim se;
			j<-j+1;
		Fim Para;
		i<-i+1;
	Fim para;
FimAlgoritmo.
2. Criar um algoritmo que leia os elementos de uma matriz inteira 10 x 10 e escreva somente os elementos abaixo da diagonal principal.
Algoritmo_Ex02
Declare
	Matriz,: Vetor [1..10;1..10] de inteiro;
	i,j:inteiro;
Inicio
	Para i<-1 até 10 faça
	 Para j<-1 até 10 faça
		Leia (Matriz[i,j]);
		 j<-j+1;
	 Fim para;
	 i<-i+1;
 Fim para;
 Para i<-1 até 10 faça
 Para j<-1 até 10 faça
 	Se ( i > j ) então // Abaixo da Diagonal Principal ( i > J )
 Escreva (Matriz[i,j]);
 Fim se;
 j<-j+1;
 Fim para;
 i<-i+1;
 Fim para;
FimAlgoritmo.
3.Criar um algoritmo que leia os elementos de uma matriz inteira 10 x 10 e escreva somente os elementos acima da diagonal principal.
Algoritmo_Ex03
Declare
	Matriz,: Vetor [1..10;1..10] de inteiro;
	i,j:inteiro;
Inicio
	Para i<-1 até 10 faça
	 Para j<-1 até 10 faça
		 Leia (Matriz[i,j]);
		 j<-j+1;
	 Fim para;
	 i<-i+1;
 Fim para;
 Para i<-1 até 10 faça
		Para j<-1 até 10 faça
		 Se ( i < j ) então // Acima da Diagonal Principal ( i < j )
			 Escreva (Matriz[i,j]);
 Fim se;
 		 j<-j+1;
	 	Fim para;
		i<-i+1;
	Fim para;
FimAlgoritmo.
4.Criar um algoritmo que leia os elementos de uma matriz inteira 10 x 10 e escreva os elementos da diagonal secundária.
Algoritmo_Ex04
Declare
	Matriz: Vetor [1..10;1..10] de inteiro;
 i,j:inteiro;
Inicio
	Para i<-1 até 10 faça
		Para j<-1 até 10 faça
			Leia (Matriz[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;
	Para i<-1 até 10 faça
		Para j<-1 até 10 faça
			Se ( j=11-i ) então //Diag. Secund. Fórmula j= (n° de linhas + 1) - i 
				Escreva (Matriz[i,j]);
			Fim se;
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;
FimAlgoritmo.
5. Criar um algoritmo que entre com valores inteiros para uma matriz m 3 x 3 e imprima a matriz final, conforme mostrado a
seguir:7 4 1
8 5 2
9 6 3
1 2 3A matriz gira 90°
4 5 6
7 8 9
Algoritmo_Ex05
Declare
	 Matriz,Matriz90: Vetor [1..3;1..3] de inteiro;
 	i,j:inteiro;
Inicio
	Para i<-1 até 3 faça
 	Para j<-1 até 3 faça
			Leia (Matriz[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;
	Para i<- até 3 faça
		Para j<-1 até 3 faça
			Matriz90[ j, 3+1-i ]<- Matriz[i,j]; // M[ j , (n° de linhas + 1) - i ]
			Leia (Matriz90[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;
	Para i<-1 até 3 faça
		Para j<-1 até 3 faça
			Escreva (Matriz90[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;			
FimAlgoritmo.
6.Criar um programa que entre com valores inteiros para uma matriz 3 x 3 e imprima a matriz final, conforme mostrado a seguir:
9 8 7
6 5 4
3 2 1
1 2 3A matriz gira 180°
4 5 6
7 8 9	
Algoritmo_Ex06
Declare
	 Matriz,Matriz180: Vetor [1..3;1..3] de inteiro;
 	i,j,cont:inteiro;
Inicio
	Para i<-1 até 3 faça
 	Para j<-1 até 3 faça
			Leia (Matriz[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;
	Para cont<-1 até 2 faça // 2*90 = 180
		Para i<- até 3 faça
			Para j<-1 até 3 faça
				Matriz180[ j, 3+1-i ]<- Matriz[i,j];// M[ j, (n° de linhas+1)-i]
				Leia (Matriz180[i,j]);
				j<-j+1;
			Fim para;
			i<-i+1;
		Fim para;
		cont<-cont+1;
	Fim para;
	Para i<-1 até 3 faça
		Para j<-1 até 3 faça
			Escreva (Matriz180[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;			
FimAlgoritmo.
7.Criar um programa que entre com valores inteiros para uma matriz 3 x 3 e imprima a matriz final, conforme mostrado a seguir:3 6 9
2 5 8
1 4 7
1 2 3A matriz gira 270°
4 5 6
7 8 9
Algoritmo_Ex07
Declare
	 Matriz,Matriz270: Vetor [1..3;1..3] de inteiro;
 	i,j,cont:inteiro;
Inicio
	Para i<-1 até 3 faça
 	Para j<-1 até 3 faça
			Leia (Matriz[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;
	Para cont<-1 até 3 faça // 3*90 = 270
		Para i<- até 3 faça
			Para j<-1 até 3 faça
				Matriz270[ j, 3+1-i ]<- Matriz[i,j];// M[ j, (n° de linhas+1)-i]
				Leia (Matriz270[i,j]);
				j<-j+1;
			Fim para;
			i<-i+1;
		Fim para;
		cont<-cont+1;
	Fim para;
	Para i<-1 até 3 faça
		Para j<-1 até 3 faça
			Escreva (Matriz270[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;			
FimAlgoritmo.
8. Criar um algoritmo que leia os elementos de uma matriz inteira 10 x 10 e imprima sua matriz transposta.
Algoritmo_Ex08
Declare
	MatrizA,MatrizB: Vetor [1..10;1..10] de inteiro;
	i,j:inteiro;
Inicio
	Para i<-1 até 10 faça
		Para j<-1 até 10 faça
			Leia (MatrizA[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;
	Para i<-1 até 10 faça
		Para j<-1 até 10 faça
			MatrizB[ j , i ]<- MatrizA[i.j]; // Inverte linha com coluna: M( j , i )
			Leia (MatrizB[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;
	Para i<-1 até 10 faça
		Para j<-1 até 10 faça
			Escreva (MatrizB[i,j]);
			j<-j+1;
		Fim para;
		i<-i+1;
	Fim para;
FimAlgoritmo.