ativ ALGORT. 08 OK

Prévia do material em texto

algoritmo E PROGRAMAÇÃO
atividades DA aula 08
Todos os algoritmos desta atividade deverão ser desenvolvidos no VISUALG e enviados no Microsoft Word.
Faça um algoritmo para ler uma matriz 5x5 de números inteiros e ler um número inteiro x. A seguir, o algoritmo deve multiplicar os elementos da segunda coluna da matriz por x e exibir a matriz modificada.
 Algoritmo "Matriz 5x5 numeros inteiros " 
// Função : Matriz modificada 
// Autora : LEILIAM da SILVA BUENO
// Data : 26/11/2017 
// Seção de Declarações 
Var 
// Seção de Declarações das variáveis 
A :VETOR [1..5,1..5]de INTEIRO 
I,J :INTEIRO 
X :INTEIRO 
 
Inicio 
// Seção de Comandos, procedimento, funções, operadores, etc... 
 PARA I DE 1 ATE 5 FACA 
 PARA J DE 1 ATE 5 FACA 
 repita 
 ESCREVA ( "DIGITE O [ ",I, ", ",J, "] :") 
 LEIA (A[I,J ]) 
 ate ( A[I,J ]>=0) 
 FIMPARA 
 FIMPARA 
 escreva l( "matriz A : ") 
 PARA I DE 1 ATE 5 FACA 
 PARA J DE 1 ATE 5 FACA 
 SE (J=5 ) ENTAO 
 escreva l(A[I,J ]) 
 SENAO 
 escreva( A[ I,J]) 
 FIMSE 
 FIMPARA 
 FIMPARA 
 
 escreva l ( "") 
 escreva ( "Digite o numero que queira mutiplicar pela 2.o coluna :") 
 LEIA (X) 
para I DE 1 ATE 5 FACA 
para j de 1 ate 5 faca 
Se (J=2) ENTAO 
A[I,J ]<- A[I, J]*X 
FIMSE 
FIMPARA 
FIMPARA 
 escreva l( "matriz A modificada : ") 
 PARA I DE 1 ATE 5 FACA 
 PARA J DE 1 ATE 5 F ACA 
 SE (J=5 ) ENTAO 
 escreva l(A[I,J ]) 
 SENAO 
 escreva( A[ I,J]) 
 FIMSE 
 FIMPARA 
FIMPARA 
Fimalgoritmo
Faça um algoritmo para ler uma matriz 5x5 de números inteiros e verificar se a soma da diagonal principal é igual ou não a soma da diagonal secundária.
algoritmo "Matriz 5 x5 numeros inteiros " 
// Função : Soma diagonal principal é igual ou não 
// Autora : LEILIAM 
// Data : 26/11/2017 
// Seção de Declarações 
VAR 
// SEÇÃO DE DEC LARAÇ ÕES DAS VARIÁVEIS 
A :VETOR [1..5,1..5] DE REAL 
I,J :INTEIRO 
SOMADP,SOMADS :REAL 
 
INICIO 
// SEÇÃO D E COMANDOS 
Para I de 1 at e 5 faca 
Para J de 1 ate 5 faca 
Repita 
Escreva l( "DIGITE O [ ",I, ", ",J, "] ELEMENTOS DA MATRIZ ") 
Leia (A[I,J ]) 
Ate ( A[ I,J]>=0 ) 
Fimpara 
Fimpara 
Escreva l ( " ") 
Escreva l( "MATRIZ:") 
Para I de 1 at e 5 faca 
Para J de 1 ate 5 faca 
Se (J = 5 ) entao 
Escreva l ( A[ I,J] ) 
Senao 
Escreva ( A[I,J ]) 
Fimse 
Fimpara 
Fimpara 
Escreva l ( " ") 
SOMADP<- 0 
Para I de 1 at e 5 faca 
Para J de 1 ate 5 faca 
SOMADP <- SOMADP + A [I,J ] 
Fimpara 
Fimpara 
Escreva l ( "A SOMA DA DIAGONAL PRINCIPA L É :",SOMADP) 
SOMADS<- 0 
Para I de 1 at e 5 faca 
Para J de 1 ate 5 faca 
SOMADS <- SOMADS + A [I,J ] 
Fimpara 
Fimpara 
Escreva l ( " A SOMA DA DIAGONAL SECUNDARIA É :", SOMADS) 
Se ( SOMADP = SOMADS) Entao 
Escreva ( " AS SOMAS POSSUEM RESU LTADOS IGUAIS ") 
Senao 
Escreva ( "AS SOMAS POSSUEM RESULTADOS DIFERENTES ") 
Fimse 
Fimalgoritmo 
Faça um algoritmo para ler uma matriz 5x5 de inteiros e calcular a sua transposta AT. Exemplo para matriz de ordem 4 (apenas um exemplo!!!):
 
  
  1   2   3   4                   1 5   9 13 
  5   6    7   8        At=   2 6 10 14 
A=   9  10  11 12               3 7 11 15
    13 14  15 16                 4 8 10 16
 
algoritmo "Matriz 5 x5 numeros inteiros " 
// Função : Calcular transposta 
// Autora : leiliam da silva bueno 
// Data : 26/11/2017 
// Seção de Declarações 
Var 
// Seção de Declarações das variáveis 
I,J :INTEIRO 
M :VETOR [1..5,1..5 ]DE INTEIRO 
 
Inicio 
// Seção de Comandos 
para I de 1 a te 5 faca 
para J de 1 at e 5 faca 
escreva ( "Digite o o. numero ") 
leia ( M[I, J]) 
fimpara 
fimpara 
para I de 1 a te 5 faca 
para J de 1 at e 5 faca 
Escreva ( " ",M [I,J ]) 
Fimpara 
Escr va l ( " ") 
Fimpara 
Escreva l ( " MATRIZ TRANSPOSTA ") 
Para I de 1 at e 5 faca 
para J de 1 at e 5 faca 
escreva ( " ", M [J, I]) 
fimpara 
escreva l ( "") 
fimpara 
 
Fimalgoritmo
		
Faça um algoritmo para ler uma matriz A de ordem 5x5 de números inteiros e verificar se a matriz é ou não simétrica. Dizemos que uma matriz é simétrica quando todo elemento aij é igual ao elemento aji, para todo i, j ≤ 5. Exemplo para matriz simétrica de ordem 4 (apenas um exemplo!!!):
 R: 
 
algoritmo "Matriz 5 x5 numeros inteiros " 
// Função : Calcular Simetria 
// Autora :LEILIAM DA SILVA BUENO 
// Data : 27/11/2017 
// Seção de Declarações 
Var 
// Seção de Declarações das variáveis 
mat : vetor [1..5,1..5] de inte iro 
 
co l, linha, c : inteiro 
 
Inicio 
// Seção de Comandos 
 
escreva l( "DIGITE OS VALORES ") 
para linha de 1 ate 5 passo 1 faca 
para co l de 1 a te 5 passo 1 faca 
escreva( "Linha ", linha, "|Coluna ",co l, ":") 
le a( mat [ linha,co l]) 
fimpara 
fimpara 
escreva l( " ") 
escreva l( "DADOS DA MATRIZ ") 
para linha de 1 ate 5 passo 1 faca 
para co l de 1 a te 5 passo 1 faca 
escreva( mat [ linha,co l]) 
fimpara 
escreva l( " ") 
fimpara 
escreva l( " ") 
escreva l( "SIMETRIA ") 
para linha de 1 ate 5 passo 1 faca 
para co l de 1 ate 5 passo 1 faca 
se ( mat[ linha,co l]= mat[co l, linha]) entao 
c<- c+0 
senao 
c<- c- 1 
fimse 
fimpara 
fimpara 
se (c<0) entao 
escreva l( "A matriz não é simétrica ") 
senao 
escreva l( "A matriz é simétrica ") 
fimse 
 
Fimalgoritmo