Se quiser, baixe esse app ¬ Visualg, copie o código, cole, teste, altere, treine, seja feliz! Sorria! Mesmo, se o mudo fizer careta (RS!).
Exercícios
algoritmo "Dissecando Matriz"
var
m: vetor[1..4, 1..4] de Inteiro
l, c, op: Inteiro
l, c, op: Inteiro
Procedimento MostraMatriz()
inicio
Para l <- 1 ate 4 faca
FimPara
Para c <- 1 ate 4 faca
EscrevaL()
Escreva(m[l,c]:4)
FimPara
FimPara
FimProcedimento
Procedimento DiagonalPrincipal()
var
t: inteiro
inicio
Para l <- 1 ate 4 faca
EscrevaL(m[l,l]:4)
EscrevaL(m[l,l]:4)
Para t <- 1 ate l faca
FimPara
Escreva(" ")
FimPara
FimProcedimento
Procedimento TrianguloSuperior()
var
t: Inteiro
inicio
Para l <- 1 ate 3 faca
Escreva(" ")
EscrevaL()
Escreva(" ")
Para c <- l+1 ate 4 faca
EscrevaL()
Escreva(m[l,c]:4)
FimPara
Para t <- 1 ate l faca
FimPara
Escreva(" ")
FimPara
EscrevaL()
FimProcedimento
Procedimento TrianguloInferior()
inicio
Para l <- 2 ate 4 faca
EscrevaL()
EscrevaL()
EscrevaL()
Para c <- 1 ate l-1 faca
FimPara
Escreva(m[l,c]:4)
FimPara
EscrevaL()
FimProcedimento
inicio
Para l <- 1 ate 4 faca
LimpaTela
Repita
Para c <- 1 ate 4 faca
FimPara
Escreva("Digite valor para a posicao [", l, ",", c, "]: ")
Leia(m[l,c])
FimPara
Leia(m[l,c])
LimpaTela
Repita
EscrevaL()
EscrevaL("MENU DE OPCOES")
EscrevaL("====================")
EscrevaL("[1] Mostrar a Matriz")
EscrevaL("[2] Diagonal Principal")
EscrevaL("[3] Triangulo Superior")
EscrevaL("[4] Triangulo Inferior")
EscrevaL("[5] Sair")
Repita
LimpaTela
Escolha op
Ate (op = 5)
EscrevaL("MENU DE OPCOES")
EscrevaL("====================")
EscrevaL("[1] Mostrar a Matriz")
EscrevaL("[2] Diagonal Principal")
EscrevaL("[3] Triangulo Superior")
EscrevaL("[4] Triangulo Inferior")
EscrevaL("[5] Sair")
Repita
EscrevaL("===== OPCAO: ")
Leia(op)
Ate (op >=1) e (op <=5)
Leia(op)
LimpaTela
Escolha op
Caso 1
FimEscolha
MostraMatriz()
Caso 2
DiagonalPrincipal()
Caso 3
TrianguloSuperior()
Caso 4
TrianguloInferior()
Caso 5
EscrevaL("ENCERRANDO...")