Exercicios

algoritmo "Questao 1"
// Função : Calcular
// Autor :
// Data : 08/12/2014
// Seção de Declarações
var
i,j,L,soma:inteiro
M:vetor[1..4,1..3] de inteiro
inicio
// Seção de Comandos
//Desenvolva um algoritmo que leia uma matriz 4x3 de inteiro e
//imprima a soma dos elementos de uma determinada Linha L fornecida
// pelo usuário. O programa deve repetir a opção de digitar uma linha
//L para que seja apresentada a soma.

escreval("Digite o valor da matriz M:")
para i de 1 ate 4 faca
   para j de 1 ate 3 faca
      escreval("Valor de linha",i,"coluna",j)
      leia(M[i,j])
   fimpara
fimpara

escreval("Digite a linha desejada")
leia(L)

para j de 1 ate 3 faca
   soma<-M[L,j]+soma
fimpara


escreval(soma)
fimalgoritmo  



algoritmo "Questao 5"
// Função : Calcular
// Autor :
// Data : 09/12/2014
// Seção de Declarações
var
i,j:inteiro
A:vetor[1..4,1..4] de inteiro
inicio
// Seção de Comandos
escreval("Digite os valores da matriz A:")
para i de 1 ate 4 faca
   para j de 1 ate 4 faca
      escreval("Posicao",i,",",j)
      leia(A[i,j])
   fimpara
fimpara

se ((A[2,1]=0) e (A[3,1]=0) e (A[3,2]=0) e (A[4,1]=0) e (A[4,2]=0) e (A[4,3]=0)) entao
   escreval("É uma matriz triangular superior")
senao
   escreval("Não é uma matriz triangular superior")
fimse

escreval()
para i de 1 ate 4 faca
   escreval()
   para j de 1 ate 4 faca
      escreva(A[i,j])
   fimpara
fimpara
fimalgoritmo



algoritmo "Questao 10"
// Função : Calcular
// Autor :
// Data : 10/12/2014
// Seção de Declarações
var

A,B:vetor[1..10,1..2] de inteiro
i:inteiro
inicio
// Seção de Comandos
escreval("Digite os valores da matriz A")
para i de 1 ate 100 faca
leia(A[i])
fimpara

escreval("Digite os valores da matriz B")
para i de 1 ate 100 faca
leia(B[i])
fimpara


fimalgoritmo



algoritmo "Questao 20"
// Função : Calcular
// Autor :
// Data : 14/12/2014
// Seção de Declarações
var
i,j,soma2,soma,media2,media:inteiro
A,A2:vetor[1..12,1..12] de inteiro
inicio
// Seção de Comandos

escreval("Escreva os numeros da matriz")
para i de 1 ate 12 faca
   para j de 1 ate 12 faca
      leia(A[i,j])
      se (i>j) entao
         soma<-A[i,j]+ soma
         media<-soma/12
      fimse
      se (i<j) entao
         soma2<-A[i,j]+ soma2
         media2<-soma2/
      fimse
   fimpara
fimpara

para i de 1 ate 5 faca
   para j de 1 ate 5 faca
      C[i,j]<-A2[i,j]+B2[i,j]
   fimpara
fimpara


escreval("A soma das matrizes sao:")
para i de 1 ate 5 faca
   escreval()
   para j de 1 ate 5 faca
      escreva(C[i,j])
   fimpara
fimpara
fimalgoritmo