EXERCICIOS RESOLVIDOS LOGICA DE PROGRAMAÇÃO VISUALG

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

EXERCICIOS RESOLVIDOS LOGICA/Conjuga��o de numeros pares e impares (2).alg
algoritmo "Conjugação de numeros pares e impares"
// Ler duas matrizes A e B de uma dimensao com 6 elementos. A matriz A devera
// aceitar apenas a entrada de valores pares, enquanto a matriz B devera aceitar
// apenas a entrada de valores impares. A entrada das matrizes devera ser validada
// pelo programa e nao pelo usuario. Construir uma matriz C de forma que a matriz
// C seja a junçao das matrizes A e B, de modo que a matriz C contenha 12 elementos.
// Apresentar a matriz C.
var
A, B: vetor [1..3] de inteiro
C,N: vetor [1..6] de inteiro
I,K,R,J,U: inteiro
inicio
 PARA I de 1 ate 6 FACA
 escreva("Digite os elementos do vetor: ")
 Leia (N[I])
 FIMPARA
 
 J <- 1
 K <- 1
 PARA I de 1 ate 6 FACA
 
 SE (N[I]mod 2)=0 ENTAO
 A[J] <- N[I]
 J <- J+1
 SENAO
 B[K] <- N[I]
 K <- K+1
 FIMSE
 FIMPARA
 I <- 1
 U <- 4
 K <- 1
 PARA J DE 1 ATE 3 FACA
 C[I] <- A[J]
 C[U] <- B[K]
 U <- U+1
 I <- I+1
 K <- K+1
 FIMPARA
 PARA J DE 1 ATE 3 FACA
 escreval ("O elemento ", J, " do vetor A é: ", A[J])
 FIMPARA
 PARA K DE 1 ATE 3 FACA
 escreval ("O elemento ", K, " do vetor B é: ", B[K])
 FIMPARA
 PARA I DE 1 ATE 6 FACA
 escreval ("O vetor C é: [", C[I], " ]")
 FIMPARA
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/Conjuga��o de numeros pares e impares.alg
 EXERCICIOS MATRIZES E VETORES
 
1. ALGORITMO "CONJUGAÇÃO DE NUMEROS PARES E IMPARES"
 
 LER DUAS MATRIZES A E B DE UMA DIMENSAO COM 6 ELEMENTOS. A MATRIZ A DEVERA ACEITAR APENAS A ENTRADA DE VALORES PARES, ENQUANTO A MATRIZ B DEVERA ACEITAR APENAS A ENTRADA DE VALORES IMPARES. A ENTRADA DAS MATRIZES DEVERA SER VALIDADA PELO PROGRAMA E NAO PELO USUARIO. CONSTRUIR UMA MATRIZ C DE FORMA QUE A MATRIZ C SEJA A JUNÇAO DAS MATRIZES A E B, DE MODO QUE A MATRIZ C CONTENHA 12 ELEMENTOS. APRESENTAR A MATRIZ C.
 
 VAR
 
 A, B: VETOR [1..3] DE INTEIRO
 C,N: VETOR [1..6] DE INTEIRO
 I,K,R,J,U: INTEIRO
 
 INICIO
 
 PARA I DE 1 ATE 6 FACA
 ESCREVA("DIGITE OS ELEMENTOS DO VETOR: ")
 LEIA (N[I])
 FIMPARA
 
 J <- 1
 K <- 1
 PARA I DE 1 ATE 6 FACA
 
 SE (N[I]MOD 2)=0 ENTAO
 A[J] <- N[I]
 J <- J+1
 SENAO
 B[K] <- N[I]
 K <- K+1
 FIMSE
 FIMPARA
 I <- 1
 U <- 4
 K <- 1
 PARA J DE 1 ATE 3 FACA
 C[I] <- A[J]
 C[U] <- B[K]
 U <- U+1
 I <- I+1
 K <- K+1
 FIMPARA
 
 PARA J DE 1 ATE 3 FACA
 ESCREVAL ("O ELEMENTO ", J, " DO VETOR A É: ", A[J])
 FIMPARA
 
 PARA K DE 1 ATE 3 FACA
 ESCREVAL ("O ELEMENTO ", K, " DO VETOR B É: ", B[K])
 FIMPARA
 
 PARA I DE 1 ATE 6 FACA
 ESCREVAL ("O VETOR C É: [", C[I], " ]")
 FIMPARA
 
 FIMALGORITMO
 
 
2. ALGORITMO "MEDIA ARITMETICA RELACIONADA"
CALCULAR A MEDIA DAS ESTATURAS DOS ALUNOS DA TURMA 3 DE LOP (100 ALUNOS). CALCULAR QUANTOS SAO MAIS ALTOS E QUANTOS SAO MAIS BAIXOS QUE A MEDIA.
VAR
 A: VETOR [1..5] DE REAL
 SOMA, MEDIA: REAL
 I, CONTMAIOR, CONTMENOR: INTEIRO
INICIO
PARA I DE 1 ATE 5 FACA
 ESCREVA("DIGITE O ELEMENTO DA LINHA ",I," : ")
 LEIA (A[I])
FIMPARA
 SOMA <- 0
PARA I DE 1 ATE 5 FACA
 SOMA <- SOMA + A[I]
FIMPARA
 
PARA I DE 1 ATE 5 FACA
 MEDIA <- (SOMA/5)
FIMPARA
 ESCREVAL ("A MEDIA DA TURMA É: ", MEDIA)
 
 CONTMAIOR <- 0
 CONTMENOR <- 0
PARA I DE 1 ATE 5 FACA
 SE (A[I] > MEDIA) ENTAO
 CONTMAIOR <- CONTMAIOR + 1 
 SENAO
 CONTMENOR <- CONTMENOR + 1
 FIMSE
FIMPARA
 
 ESCREVAL ("O NUMERO DE ALUNOS COM ESTATURA MAIOR QUE A MEDIA É: ", CONTMAIOR)
 
 ESCREVA ("O NUMERO DE ALUNOS COM ESTATURA MENOR QUE A MEDIA É: ", CONTMENOR)
FIMALGORITMO
 
 3. ALGORITMO "MATRIZ CONJUGADA"
LER TRES MATRIZES (A, B E C) DE UMA DIMENSAO COM 5 ELEMENTOS CADA. CONSTRUIR UMA MATRIZ D, SENDO ESTA A JUNÇAO DAS TRES OUTRAS MATRIZES. DESTA FORMA D DEVERA TER O TRIPLO DE ELEMENTOS, OU SEJA, 15. APRESENTAR OS ELEMENTOS DA MATRIZ D.
VAR
A, B: VETOR [1..2] DE INTEIRO
C: VETOR [1..4] DE INTEIRO
I,J, U, X: INTEIRO
INICIO
PARA I DE 1 ATE 2 FACA
 ESCREVAL ("DIGITE O ELEMENTO DA LINHA ",I," : ")
 LEIA (A[I])
 LEIA (B[I])
FIMPARA
 J <- 3
PARA I DE 1 ATE 2 FACA
 C[I] <- A[I]
 C[J] <- B[I]
 J <- J+1
FIMPARA
PARA I DE 1 ATE 4 FACA
 ESCREVA (C[I])
FIMPARA
PARA U DE 1 ATE 4 PASSO 1 FACA
 PARA I DE 1 ATE 4 PASSO 1 FACA
 SE ( A[ I ] > A[ I + 1 ] ) ENTAO
 X <- A[I]
 A[ I ] <- A[ I + 1 ]
 A[ I + 1 ] <- X
 FIMSE
 FIMPARA
FIMPARA
PARA I DE 1 ATE 4 FACA
 ESCREVA (C[I])
FIMPARA
FIMALGORITMO
4. ALGORITMO "MINMAX"
NA TEORIA DOS SISTEMAS, DEFINE-SE O ELEMENTO MINMAX DE UMA MATRIZ COMO O MAIOR ELEMENTO DA LINHA EM QUE SE ENCONTRA O MENOR ELEMENTO DA MATRIZ. ELABORE UM PROGRAMA QUE CARREGUE UMA MATRIZ 3X4 COM NUMEROS REAIS, CALCULE E MOSTRE SEU MINMAX E SUA POSIÇÃO (LINHA, COLUNA)
VAR
A: VETOR [1..3,1..4] DE REAL
MAIOR, MENOR: REAL
I, J, COLUNA, LINHA: INTEIRO
INICIO
PARA I DE 1 ATE 3 FACA
 PARA J DE 1 ATE 4 FACA
 ESCREVA("DIGITE NA LINHA ", I, " O ELEMENTO ", J, " : ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
 MENOR <- A[1,1]
 LINHA <- 1
 
PARA I DE 1 ATE 3 FACA
 PARA J DE 1 ATE 4 FACA
 SE (A[I,J] < MENOR) ENTAO
 MENOR <- A[I,J]
 LINHA <- I
 FIMSE
 FIMPARA
FIMPARA
 MAIOR <- A[LINHA,1]
 COLUNA <- 1
PARA I DE 1 ATE 3 FACA
 PARA J DE 2 ATE 4 FACA
 SE (A[LINHA,J] > MAIOR) ENTAO
 MAIOR <- A[LINHA,J]
 COLUNA <- J
 FIMSE
 FIMPARA
FIMPARA
 ESCREVA ("O NUMERO ",MAIOR, " É O MINMAX NA A[",LINHA,",",COLUNA," ]")
FIMALGORITMO
5. ALGORITMO "SOMA DOS ELEMENTOS E NOVA MATRIZ"
VAR
A: VETOR [1..3,1..3] DE REAL
I, J, SOMA, NOVA: INTEIRO
INICIO
PARA I DE 1 ATE 3 FACA
 PARA J DE 1 ATE 4 FACA
 ESCREVA("DIGITE O ELEMENTO ", J, " DA LINHA", I, ":")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
PARA I DE 1 ATE 3 FACA
 SOMA [I] <- 0
 PARA J DE 1 ATE 4 FACA
 SOMA [I] <- SOMA [I] + A[I,J]
 NOVA[I,J] <- SOMA [I] *
 A[I,J] <- NOVA[I,J]
 FIMPARA
 ESCREVAL("O ELEMENTO", I, " DA MATRIZ SOMA É : ", SOMA [I])
 ESCREVAL("O NOVO ELEMENTO DA MATRIZ A É ", NOVA[I,J])
FIMPARA
FIMALGORITMO
6. ALGORITMO "CONJUGAÇÃO DE NUMEROS PARES E IMPARES"
LER DUAS MATRIZES A E B DE UMA DIMENSAO COM 6 ELEMENTOS. A MATRIZ A DEVERA ACEITAR APENAS A ENTRADA DE VALORES PARES, ENQUANTO A MATRIZ B DEVERA ACEITAR APENAS A ENTRADA DE VALORES IMPARES. A ENTRADA DAS MATRIZES DEVERA SER VALIDADA PELO PROGRAMA E NAO PELO USUARIO. CONSTRUIR UMA MATRIZ C DE FORMA QUE A MATRIZ
C SEJA A JUNÇAO DAS MATRIZES A E B, DE MODO QUE A MATRIZ C CONTENHA 12 ELEMENTOS. APRESENTAR A MATRIZ C.
VAR
A, B: VETOR [1..3] DE INTEIRO
C,N: VETOR [1..6] DE INTEIRO
I,K,J,U: INTEIRO
INICIO
PARA I DE 1 ATE 6 FACA
 ESCREVA("DIGITE OS ELEMENTOS DO VETOR: ")
 LEIA (N[I])
FIMPARA
 
 J <- 1
 K <- 1
PARA I DE 1 ATE 6 FACA
 SE (N[I]MOD 2)=0 ENTAO
 A[J] <- N[I]
 J <- J+1
 SENAO
 B[K] <- N[I]
 K <- K+1
 FIMSE
FIMPARA
 I <- 1
 U <- 4
 K <- 1
PARA J DE 1 ATE 3 FACA
 C[I] <- A[J]
 C[U] <- B[K]
 U <- U+1
 I <- I+1
 K <- K+1
FIMPARA
PARA J DE 1 ATE 3 FACA
 ESCREVAL ("O ELEMENTO ", J, " DO VETOR A É: ", A[J])
FIMPARA
 
PARA K DE 1 ATE 3 FACA
 ESCREVAL ("O ELEMENTO ", K, " DO VETOR B É: ", B[K])
FIMPARA
PARA I DE 1 ATE 6 FACA
 ESCREVAL ("O VETOR C É: [", C[I], " ]")
FIMPARA
FIMALGORITMO
7. ALGORITMO "MATRIZ TRANSPOSTA"
VAR
A, B: VETOR [1..3,1..3] DE INTEIRO
I,J: INTEIRO
INICIO
PARA I DE 1 ATE 3 FACA
 PARA J DE 1 ATE 3 FACA
 ESCREVA("DIGITE O ELEMENTO ", J," DA LINHA ",I," : ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
PARA I DE 1 ATE 3 FACA
 PARA J DE 1 ATE 3 FACA
 B[J,I] <- A[I,J]
 FIMPARA
FIMPARA
PARA J DE 1 ATE 3 FACA
 PARA I DE 1
ATE 3 FACA
 ESCREVAL("A MATRIZ TRANSPOSTA É: ", B[J,I])
 FIMPARA
FIMPARA
 
FIMALGORITMO
EXERCICIOS RESOLVIDOS LOGICA/CONTADOR DE ZEROS DA MATRIZ.alg
ALGORITMO "CONTADOR DE ZEROS DA MATRIZ"
// Ler uma matriz quadrada de ordem 3 e a seguir contar quantos elementos da matriz
// são iguais a zero apresentando este resultado.
var
A,B: VETOR [1..3,1..3] DE REAL
I, J, CONTZERO: INTEIRO
inicio
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVA ("DIGITE O ELEMENTO (",I,",", J,") DA MATRIZ: ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
CONTZERO <- 0
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 SE (A[I,J] = 0) ENTAO
 CONTZERO <- CONTZERO + 1
 FIMSE
 FIMPARA
FIMPARA
ESCREVA ("EXISTEM ", CONTZERO, " ZEROS NA MATRIZ")
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/ELEMENTOS EXCETO DIAGONAL SECUNDARIA.alg
ALGORITMO "MATRIZ RESULTANTE TROCA DE LINHAS"
// Ler uma matriz quadrada de ordem 3 e a seguir deverão ser trocados entre si
// os valores da 1ª linha pelos respectivos valores da 3ª linha escrevendo ao
// final a matriz resultante.
var
A,B: VETOR [1..3,1..3] DE REAL
I, J: INTEIRO
SOMA: REAL
inicio
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVA ("DIGITE O ELEMENTO (",I,",", J,") DA MATRIZ: ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 SE ((I+J)<>4)ENTAO
 B[I,J] <- A[I,J]
 FIMSE
 FIMPARA
FIMPARA
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVAL ("A NOVA MATRIZ RESULTANTE É(",I,",", J,"): ", B[I,J])
 FIMPARA
FIMPARA
SOMA <- 0
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 SOMA <- SOMA + B[I,J]
 FIMPARA
FIMPARA
 ESCREVAL (SOMA)
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/LOCALIZA��O DO MAIOR NUMERO DA MATRIZ.alg
ALGORITMO "LOCALIZAÇÃO DO MAIOR NUMERO DA MATRIZ"
var
A, MAIOR: VETOR [1..3,1..3] DE REAL
I, J, LINHA, COLUNA: INTEIRO
inicio
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVA ("DIGITE O ELEMENTO (",I,",", J,") DA MATRIZ: ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
LINHA <- 1
COLUNA <- 1
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 SE (A[LINHA,COLUNA] < A[I,J] ) ENTAO
 LINHA <- I
 COLUNA <- J
 FIMSE
 FIMPARA
FIMPARA
ESCREVA ("O MAIOR ELEMENTO DA MATRIZ É ", A[LINHA,COLUNA], " E ESTÁ NA POSIÇÃO (", LINHA, COLUNA, ")")
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/MANZANO L06B.alg
algoritmo "MANZANO L06B"
var
A,B: vetor [1..3] de INTEIRO
I: INTEIRO
inicio
 PARA I de 1 ate 3 FACA
 escreva("Digite o elemento da linha ",I," : ")
 leia (A[I])
 FIMPARA
 PARA I de 1 ate 3 FACA
 B[I] <- A[I]*3
 FIMPARA
 PARA I de 1 ate 3 FACA
 ESCREVAL ("A MATRIZ B É: ", B[I])
 FIMPARA
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/MANZANO L06D.alg
algoritmo "OPERADOR LITERAL"
var
NOME: vetor [1..3] de LITERAL
I: INTEIRO
PESQ,RESP: LITERAL
ACHA: LOGICO
inicio
 PARA I de 1 ate 3 FACA
 escreva("Digite O NOME DA ", I, "ª", " linha: ")
 leia (NOME[I])
 FIMPARA
 
 RESP <- "SIM"
 ENQUANTO (RESP = "SIM") FACA
 ESCREVA ("ENTRE COM O NOME A SER PESQUISADO: ")
 LEIA (PESQ)
 I <- 1
 ACHA <- FALSO
 ENQUANTO (I<=3) E (ACHA = FALSO) FACA
 SE (PESQ = NOME[I]) ENTAO
 ACHA <- VERDADEIRO
 SENAO
 I <- I + 1
 FIMSE
 FIMENQUANTO
 SE (ACHA = VERDADEIRO) ENTAO
 ESCREVAL (PESQ, " FOI LOCALIZADO NA POSIÇÃO ", I)
 SENAO
 ESCREVAL (PESQ, " NÃO FOI LOCALIZADO")
 FIMSE
 ESCREVA ("DESEJA CONTINUAR?")
 LEIA (RESP)
 FIMENQUANTO
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/Matriz Conjugada em ordem crescente.alg
algoritmo "Multiplicação de matriz"
VAR
A, B, C: VETOR [1..2,1..2] DE INTEIRO
I,J, K: INTEIRO
INICIO
PARA I DE 1 ATE 2 FACA
 PARA J DE 1 ATE 1 FACA
 ESCREVA("DIGITE O ELEMENTO ", "(", I, " ,", J," )"," - ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
PARA I DE 1 ATE 1 FACA
 PARA J DE 1 ATE 2 FACA
 ESCREVA("DIGITE O ELEMENTO ", "(", I, " ,", J," )"," - ")
 LEIA (B[I,J])
 FIMPARA
 FIMPARA
PARA I DE 1 ATE 2 FACA
 PARA J DE 1 ATE 2 FACA
 C[I,J] <- 0
 PARA K DE 1 ATE 2 FACA
 C[I,J] <- C[I,J] + A[I,K] * B[K,J]
 FIMPARA
 FIMPARA
FIMPARA
PARA I DE 1 ATE 2 FACA
 PARA J DE 1 ATE 2 FACA
 ESCREVAL("A MATRIZ C É (", I, " ,", J," )"," - ", C[I,J])
 FIMPARA
FIMPARA
FIMALGORITMO
EXERCICIOS RESOLVIDOS LOGICA/Matriz conjugada.alg
algoritmo "Matriz conjugada"
// Ler tres matrizes (A, B e C) de uma dimensao com 5 elementos cada. Construir
// uma matriz D, sendo esta a junçao das tres outras matrizes. Desta forma D
// devera ter o triplo de elementos, ou seja, 15. Apresentar os elementos da matriz D.
var
A, B: vetor [1..2] de inteiro
C: vetor [1..4] de inteiro
I,J, U, X: inteiro
inicio
 PARA I de 1 ate 2 FACA
 escreval("Digite o elemento da linha ",I," : ")
 leia (A[I])
 leia (B[I])
 FIMPARA
 J <- 3
 PARA I de 1 ate 2 FACA
 C[I] <- A[I]
 C[J] <- B[I]
 J <- J+1
 FIMPARA
 PARA I de 1 ate 4 FACA
 escreva (C[I])
 fimpara
para U de 1 ate 4 passo 1 faca
 para I de 1 ate 4 passo 1 faca
 se ( A[ I ] > A[ I + 1 ] ) entao
 X <- A[I]
 A[ I ] <- A[ I + 1 ]
 A[ I + 1 ] <- X
 fimse
 fimpara
fimpara
 PARA I de 1 ate 4 FACA
 escreva (C[I])
 fimpara
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/MATRIZ OPOSTA.alg
ALGORITMO "MATRIZ OPOSTA"
// Ler uma matriz A quadrada de ordem 3 e a seguir criar a sua matriz oposta.
// Para implementar a matriz oposta basta tornar os elementos da matriz em seus
// opostos, ou seja, fazer Ai,j igual a -Ai,j.
var
A, OPOSTA: VETOR [1..3,1..3] DE REAL
I, J: INTEIRO
inicio
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVA ("DIGITE O ELEMENTO (",I,",", J,") DA MATRIZ: ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 OPOSTA [I,J] <- A[I,J]* (-1)
 FIMPARA
FIMPARA
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVAL ("A MATRIZ OPOSTA É: ", OPOSTA[I,J])
 FIMPARA
FIMPARA
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/MATRIZ RESULTANTE TROCA DE LINHAS.alg
ALGORITMO "MATRIZ RESULTANTE TROCA DE LINHAS"
// Ler uma matriz quadrada de ordem 3 e a seguir deverão ser trocados entre si
// os valores da 1ª linha pelos respectivos valores da 3ª linha escrevendo ao
// final a matriz resultante.
var
A: VETOR [1..3,1..3] DE REAL
I, J: INTEIRO
inicio
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVA ("DIGITE O ELEMENTO (",I,",", J,") DA MATRIZ: ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
PARA I DE 3 ATE 1 PASSO -1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVAL ("A NOVA MATRIZ RESULTANTE É(",I,",", J,"): ", A[I,J])
 FIMPARA
FIMPARA
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/Matriz Transposta.alg
algoritmo "Matriz Transposta"
// Função :
// Autor :
// Data : 27/05/2015
// Seção de Declarações 
var
A, B: vetor [1..3,1..3] de inteiro
I,J: inteiro
inicio
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 3 FACA
 escreva("Digite o elemento ", J," da linha ",I," : ")
 leia (A[I,J])
 FIMPARA
 FIMPARA
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 3 FACA
 B[J,I] <- A[I,J]
 FIMPARA
 FIMPARA
 PARA J de 1 ate 3 FACA
 PARA I de 1 ate 3 FACA
 escreval("A matriz transposta é: ", B[J,I])
 FIMPARA
 FIMPARA
 
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/MATRIZ TRIANGULAR SUPERIOR.alg
algoritmo "MATRIZ TRIANGULAR SUPERIOR"
// Ler uma matriz quadrada de ordem 3 e a seguir verificar se a matriz
informada
// é uma matriz triangular superior.
var
A,B: VETOR [1..3,1..3] DE REAL
I, J, TRIANGULAR: INTEIRO
inicio
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVA ("DIGITE O ELEMENTO (",I,",", J,") DA MATRIZ: ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
TRIANGULAR <- 1
PARA I DE 2 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 2 PASSO 1 FACA
 SE (I>J) E (A[I,J] = 0) ENTAO
 TRIANGULAR <- 0
 FIMSE
 FIMPARA
FIMPARA
SE (TRIANGULAR <> 1) ENTAO
 ESCREVAL ("MATRIZ TRIANGULAR SUPERIOR")
 SENAO
 ESCREVAL ("MATRIZ COMUM")
FIMSE
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/MATRIZ TRIANGULAR.alg
algoritmo "MATRIZ TRIANGULAR"
// Ler uma matriz quadrada de ordem 4 e a seguir transformá-la em uma matriz
// triangular superior, atribuindo zero a todos os elementos abaixo da diagonal
// principal, escrevendo-a no final.
var
A: VETOR [1..3,1..3] DE REAL
I, J: INTEIRO
inicio
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVA ("DIGITE O ELEMENTO (",I,",", J,") DA MATRIZ: ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 SE (I>J) ENTAO
 A[I,J] <- 0
 FIMSE
 FIMPARA
FIMPARA
PARA I DE 1 ATE 3 PASSO 1 FACA
 PARA J DE 1 ATE 3 PASSO 1 FACA
 ESCREVAL ("A MATRIZ TRIANGULAR É (", I, ",", J, "): ", A[I,J])
 FIMPARA
FIMPARA
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/MatrizResultante.alg
algoritmo "MatrizResultante"
// Desenvolver um programa que efetue a leitura de dez elementos de uma matriz A
// tipo vetor. Construir uma matriz B de mesmo tipo, observando a seguinte lei
// de formaçao: se o valor do indice for par, o valor devera ser multiplicado
// por 5, sendo impar, devera ser somando com 5. Ao final mostrar o conteudo da matriz B.
var
A, B: vetor [1..5] de real
I, R: inteiro
inicio
 PARA I de 1 ate 5 FACA
 escreva("Digite o elemento: ")
 leia (A[I])
 FIMPARA
 PARA I de 1 ate 5 FACA
 R <- I - 2 * ( I div 2 )
 
 Se (R = 0) entao
 B [I] <- A [I] * 5
 senao
 B [I] <- A[I] + 5
 fimse
 FIMPARA
 PARA I de 1 ate 5 FACA
 escreval( "A matriz B é: ", B [I])
 FIMPARA
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/MINMAX.alg
algoritmo "MINMAX"
//Na teoria dos sistemas, define-se o elemento MINMAX de uma matriz como o maior
//elemento da linha em que se encontra o menor elemento da matriz. Elabore um
//programa que carregue uma matriz 3X4 com numeros reais, calcule e mostre seu MINMAX
//e sua posição (linha, coluna)
var
A: vetor [1..3,1..4] de real
MAIOR, MENOR: real
I, J, COLUNA, LINHA: inteiro
inicio
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 4 FACA
 escreva("Digite na linha ", I, " o elemento ", J, " : ")
 leia (A[I,J])
 FIMPARA
 FIMPARA
 MENOR <- A[1,1]
 LINHA <- 1
 
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 4 FACA
 SE (A[I,J] < MENOR) ENTAO
 MENOR <- A[I,J]
 LINHA <- I
 FIMSE
 FIMPARA
 FIMPARA
 MAIOR <- A[LINHA,1]
 COLUNA <- 1
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 4 FACA
 SE (A[LINHA,J] > MAIOR) ENTAO
 MAIOR <- A[LINHA,J]
 COLUNA <- J
 FIMSE
 FIMPARA
 FIMPARA
 escreva("O numero ",MAIOR, " é o MINMAX na A[",LINHA,",",COLUNA," ]")
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/Multiplica��o de matriz - 2� Maneira.alg
algoritmo "Multiplicação de matriz - 2ª Maneira"
VAR
A, B, C: VETOR [1..2,1..2] DE INTEIRO
I,J, K, SOMA: INTEIRO
INICIO
PARA I DE 1 ATE 2 FACA
 PARA J DE 1 ATE 1 FACA
 ESCREVA("DIGITE O ELEMENTO ", "(", I, " ,", J," )"," - ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
PARA I DE 1 ATE 1 FACA
 PARA J DE 1 ATE 2 FACA
 ESCREVA("DIGITE O ELEMENTO ", "(", I, " ,", J," )"," - ")
 LEIA (B[I,J])
 FIMPARA
FIMPARA
PARA I DE 1 ATE 2 FACA
 PARA J DE 1 ATE 2 FACA
 SOMA <- 0
 PARA K DE 1 ATE 2 FACA
 SOMA <- SOMA + A[I,K] * B[K,J]
 FIMPARA
 C[I,J] <- SOMA
 FIMPARA
FIMPARA
PARA I DE 1 ATE 2 FACA
 PARA J DE 1 ATE 2 FACA
 ESCREVAL("A MATRIZ C É (", I, " ,", J," )"," - ", C[I,J])
 FIMPARA
FIMPARA
FIMALGORITMO
EXERCICIOS RESOLVIDOS LOGICA/Multiplica��o de matriz.alg
algoritmo "Multiplicação de matriz"
VAR
A, B, C: VETOR [1..2,1..2] DE INTEIRO
I,J, K: INTEIRO
INICIO
PARA I DE 1 ATE 2 FACA
 PARA J DE 1 ATE 1 FACA
 ESCREVA("DIGITE O ELEMENTO ", "(", I, " ,", J," )"," - ")
 LEIA (A[I,J])
 FIMPARA
FIMPARA
PARA I DE 1 ATE 1 FACA
 PARA J DE 1 ATE 2 FACA
 ESCREVA("DIGITE O ELEMENTO ", "(", I, " ,", J," )"," - ")
 LEIA (B[I,J])
 FIMPARA
 FIMPARA
PARA I DE 1 ATE 2 FACA
 PARA J DE 1 ATE 2 FACA
 C[I,J] <- 0
 PARA K DE 1 ATE 2 FACA
 C[I,J] <- C[I,J] + A[I,K] * B[K,J]
 FIMPARA
 FIMPARA
FIMPARA
PARA I DE 1 ATE 2 FACA
 PARA J DE 1 ATE 2 FACA
 ESCREVAL("A MATRIZ C É (", I, " ,", J," )"," - ", C[I,J])
 FIMPARA
FIMPARA
FIMALGORITMO
EXERCICIOS RESOLVIDOS LOGICA/Notas menores na prova1.alg
algoritmo "prova1"
var
 not: vetor [1..10, 1..3] de real
 cont1, cont2, cont3, l, c: inteiro
inicio
 PARA l de 1 ate 10 FACA
 PARA c de 1 ate 3 FACA
 escreval("Digite a nota da prova ",c," do aluno ",l,": ")
 leia(not[l,c])
 FIMPARA
 FIMPARA
 cont1<-0
 cont2<-0
 cont3<-0
 PARA l de 1 ate 10 FACA
 SE (not[l,1] <= not[l,2]) e (not[l,1] <= not[l,3]) ENTAO
 cont1<- cont1 + 1
 escreval("A menor nota do aluno ",l," é ", not[l,1])
 SENAO
 SE (not[l,2] <= not[l,1]) e (not[l,2] <= not[l,3]) ENTAO
 cont2<- cont2 + 1
 escreval("A menor nota do aluno ",l," é ", not[l,2])
 SENAO
 SE (not[l,3] <= not[l,2]) e (not[l,3] <= not[l,1]) ENTAO
 cont3<- cont3 + 1
 escreval ("A menor nota do aluno ",l," é ", not[l,3])
 FIMSE
 FIMSE
 FIMSE
 FIMPARA
 escreval(cont1," alunos tiveram a menor nota na prova 1")
 escreval(cont2," alunos tiveram a menor nota na prova 2")
 escreval(cont3," alunos tiveram a menor nota na prova 3")
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/OPERADOR LITERAL.alg
algoritmo "OPERADOR LITERAL"
var
NOME: vetor [1..3] de LITERAL
I: INTEIRO
PESQ,RESP: LITERAL
ACHA: LOGICO
inicio
 PARA I de 1 ate 3 FACA
 escreva("Digite O NOME DA ", I, "ª", " linha: ")
 leia (NOME[I])
 FIMPARA
 
 RESP <- "SIM"
 ENQUANTO (RESP = "SIM") FACA
 ESCREVA ("ENTRE COM O NOME A SER PESQUISADO: ")
 LEIA (PESQ)
 I <- 1
 ACHA <- FALSO
 ENQUANTO (I<=3) E (ACHA = FALSO) FACA
 SE (PESQ = NOME[I]) ENTAO
 ACHA <- VERDADEIRO
 SENAO
 I <- I + 1
 FIMSE
 FIMENQUANTO
 SE (ACHA = VERDADEIRO) ENTAO
 ESCREVAL (PESQ, " FOI LOCALIZADO NA POSIÇÃO ", I)
 SENAO
 ESCREVAL (PESQ, " NÃO FOI LOCALIZADO")
 FIMSE
 ESCREVA ("DESEJA CONTINUAR?")
 LEIA (RESP)
 FIMENQUANTO
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/Ordem crescente.alg
algoritmo "Ordem crescente"
// Função :
// Autor :
// Data : 27/05/2015
// Seção de Declarações 
var
A: vetor [1..5] de inteiro
I,J, AUX: inteiro
inicio
 para I de 1 ate 5 passo 1 faca
 leia ( A[ I ] )
 fimpara
 para J de 1 ate 4 passo 1 faca
 para I de 1 ate 4 passo 1 faca
 se ( A [ I ] > A [ I + 1 ] ) entao
 AUX <- A[I]
 A[ I ] <- A[ I + 1 ]
 A[ I + 1 ] <- AUX
 fimse
 fimpara
 fimpara
 para I de 1 ate 5 passo 1 faca
escreva ( A[ I ] )
 fimpara
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/ordem decrescente.alg
algoritmo "ordem decrescente"
// Ler 12 elementos de uma matriz tipo vetor, coloca-los em ordem decrescente
// e apresentar os elementos ordenados.
var
A: vetor [1..5] de inteiro
I,J,X: inteiro
inicio
 PARA I de 1 ate 5 FACA
 escreva("Digite o elemento ",I," : ")
 leia (A[I])
 FIMPARA
 para I de 1 ate 4 passo 1 faca
 para J de I + 1 ate 5 passo 1 faca
 se ( A[I] < A[J] ) entao
 X <- A[I]
 A[I] <- A[J]
 A[J] <- X
 
 fimse
 fimpara
 fimpara
 PARA I de 1 ate 5 FACA
 escreval("Os elementos em ordem decrescente da matriz A é: ", A[I])
 FIMPARA
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/PALINDROMO.alg
algoritmo "PALINDROMO"
var
A: vetor [1..6] de INTEIRO
PALINDROMO,I: INTEIRO
inicio
 PARA I de 1 ate 6 FACA
 escreva("Digite o elemento da linha ",I," : ")
 leia (A[I])
 FIMPARA
 PALINDROMO <- 0
 PARA I de 1 ate 6 FACA
 SE (A[I] = A[7-I]) ENTAO
 PALINDROMO <- PALINDROMO + 1
 FIMSE
 FIMPARA
 
 SE (PALINDROMO = 6) ENTAO
 ESCREVA("PALINDROMO")
 SENAO
 ESCREVA ("NAO É PALINDROMO")
 FIMSE
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/PORCENTAGEM DUM NUMERO.alg
algoritmo "PORCENTAGEM DUM NUMERO"
var
A: vetor [1..5] de INTEIRO
I,ZERO, UM: INTEIRO
PORCUM, PORCZERO: REAL
inicio
 PARA I de 1 ate 5 FACA
 escreva("Digite o elemento da linha ",I," : ")
 leia (A[I])
 FIMPARA
 ZERO <- 0
 UM <- 0
 PARA I de 1 ate 5 FACA
 SE (A[I] = 0) ENTAO
 ZERO <- ZERO + 1
 SENAO
 SE (A[I] = 1) ENTAO
 UM <- UM + 1
 FIMSE
 FIMSE
 PORCZERO <- (ZERO*100)/5
 PORCUM <- (UM*100)/5
 FIMPARA
 ESCREVAL (PORCZERO, "% PARA O NUMERO 0")
 ESCREVAL (PORCUM, "% PARA O NUMERO 1")
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/Soma de Matriz.alg
algoritmo "Soma de Matriz"
// Função :
// Autor :
// Data : 27/05/2015
// Seção de Declarações 
var
A, B, C: vetor [1..3,1..3] de inteiro
I,J: inteiro
inicio
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 3 FACA
 escreva("Digite o elemento ", J," da linha ",I," : ")
 leia (A[I,J])
 FIMPARA
 FIMPARA
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 3 FACA
 escreva("Digite o elemento ", J," da linha ",I," : ")
 leia (B[I,J])
 FIMPARA
 FIMPARA
 
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 3 FACA
 C[I,J] <- A[I,J] + B[I,J]
 FIMPARA
 FIMPARA
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 3 FACA
 escreval("A matriz C é: ", C[I,J])
 FIMPARA
 FIMPARA
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/soma dos elementos da diagonal principal.alg
algoritmo "semnome"
// Ler uma matriz A de duas dimensoes com 10 linhas e 10 colunas. Apresentar o
// somatório dos elementos situados na diagonal principal (posições A[1,1],
// A[2,2], A[3,3], A[4,4] e assim por diante) da referida matriz.
var
A: vetor [1..3,1..3] de inteiro
I,J, SOMA: inteiro
inicio
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 3 FACA
 escreva("Digite o elemento ", J," da linha ",I," : ")
 leia (A[I,J])
 FIMPARA
 FIMPARA
 
 SOMA <- 0
 PARA I de 1 ate 3 FACA
 SOMA <- SOMA + A[I,I]
 FIMPARA
 escreva("A soma dos elementos da diagonal principal é: ", SOMA)
 
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/Soma dos numeros impares da matriz.alg
algoritmo "Soma dos numeros impares da matriz"
// Desenvolver um programa que efetue a leitura de cinco elementos de uma matriz
// A do tipo vetor. No final, apresente o total da soma de todos os elementos
// que sejam impares.
var
A: vetor [1..3] de inteiro
I,SOMA: inteiro
inicio
 PARA I de 1 ate 3 FACA
 escreva("Digite o elemento ",I," : ")
 leia (A[I])
 FIMPARA
 SOMA <- 0
 
 PARA I de 1 ate 3 FACA
 se (A[I] mod 2) <> 0 entao
 SOMA <- SOMA + A[I]
 fimse
 FIMPARA
 escreva("A soma dos numeros impares da matriz A é: ", SOMA)
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/Subtra��o de vetor.alg
algoritmo "Subtração de vetor"
// Ler duas matrizes A e B do tipo vetor com 20 elementos. Construir uma matriz C,
// onde cada elemento de C e a subtraçao do elemento correspondente de A com B.
// Apresentar a matriz C.
var
A, B, C: vetor [1..4] de inteiro
I, J, X: inteiro
inicio
 PARA I de 1 ate 4 FACA
 escreva("Digite o elemento da linha ",I," : ")
 leia (A[I])
 leia (B[I])
 FIMPARA
 PARA I de 1 ate 4 FACA
 C[I] <- A[I] - B[I]
 FIMPARA
 PARA I de 1 ate 4 FACA
 escreva (C[I])
 fimpara
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/TEMPERATURA MAIORMENOR DO MES.alg
algoritmo "TEMPERATURA MAIOR/MENOR DO MES"
// Faca um programa que receba a temperatura media de cada mes do ano, armazenando-as
// em um vetor. Calcule e mostre a maior e a menor temperatura do ano e em que mes
// ocorreram (mostrar o mes por extenso: 1 -janeiro, 2 - fevereiro...).
var
TEMPANO: vetor [1..5] de real
TEMPMAIOR, TEMPMENOR: REAL
I,POSMAIOR, POSMENOR: INTEIRO
MES: VETOR [1..5] DE LITERAL
inicio
PARA I DE 1 ATE 5 PASSO 1 FACA
 ESCREVA ("DIGITE O MES ", I, ": ")
 LEIA (MES[I])
FIMPARA
PARA I DE 1 ATE 5 PASSO 1 FACA
 ESCREVA ("DIGITE A MEDIA DA TEMPERATURA DO MES ", I, ": ")
 LEIA (TEMPANO[I])
FIMPARA
TEMPMAIOR <- TEMPANO [1]
TEMPMENOR <- TEMPANO [1]
POSMAIOR <- 1
POSMENOR <- 1
PARA I DE 1 ATE 5 PASSO 1 FACA
 SE (TEMPANO[I] > TEMPMAIOR) ENTAO
 TEMPMAIOR <- TEMPANO [I]
 POSMAIOR <- I
 SENAO (TEMPANO[I] < TEMPMENOR)
 TEMPMENOR <- TEMPANO [I]
 POSMENOR <- I
 FIMSE
FIMPARA
ESCREVAL("A TEMPERATURA MAIOR É:", TEMPMAIOR, " DO MES DE ", MES[POSMAIOR], " E A TEMPERATURA MENOR É:", TEMPMENOR, " DO MES DE ", MES[POSMENOR])
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/Vetor parte inteira.alg
algoritmo "Vetor parte inteira"
// Ler uma matriz A tipo vetor que contera 15 numeros inteiros. Construir uma
// matriz B de mesmo tipo, sendo que cada elemento de B devera ser a metade
// (parte inteira) de cada elemento de A. Apresentar os elementos das matrizes A
// em ordem decrescente e os elementos da matriz B em ordem crescente.
var
A, B: vetor [1..5] de inteiro
I, J, AUX: inteiro
inicio
 PARA I de 1 ate 5 FACA
 escreva("Digite o elemento da linha ",I," : ")
 leia (A[I])
 FIMPARA
 PARA I de 1 ate 5 FACA
 B[I] <- A[I] DIV 2
 FIMPARA
 PARA J de 1 ate 4 FACA
 PARA I de 1 ate 4 FACA
 se ( A[I] < A[I+1]) entao
 AUX <- A[I]
 A[I] <- A[I+1]
 A[I+1] <- AUX
 fimse
 FIMPARA
 FIMPARA
 PARA J de 1 ate 4 FACA
 PARA I de 1 ate 4 FACA
 se ( B[I] > B[I+1]) entao
 AUX <- B[I]
 B[I] <- B[I+1]
 B[I+1] <- AUX
 fimse
 FIMPARA
 FIMPARA
 PARA I de 1 ate 5 FACA
 escreval ("A matriz A é: ", A[I])
 FIMPARA
 
 PARA I de 1 ate 5 FACA
 escreval ("A matriz B é: ", B[I])
 FIMPARA
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/VETOR TRANSPOSTO.alg
algoritmo "VETOR TRANSPOSTO"
// Função :
// Autor :
// Data : 28/05/2015
// Seção de Declarações
var
A, B: vetor [1..5] de inteiro
I: inteiro
inicio
 PARA I de 1 ate 5 FACA
 escrevaL("Digite os elementos da matriz A:")
 leia (A[I])
 FIMPARA
 
 PARA I de 1 ate 5 FACA
 
 B[I] <- A[6-I]
 FIMPARA
 PARA I de 1 ate 5 FACA
 escreval ("O vetor transposto de A [", A[I],"] é B [",B[I], "]")
 FIMPARA
 
fimalgoritmo
EXERCICIOS RESOLVIDOS LOGICA/Visualg (Vers�o 2).lnk