Leitura de Matriz 3X4

algoritmo "matriz 3 x 4"
// Autor : Henrique de Amorim
// Data : 03/12/2013
// Seção de Declarações 
 var

mtr: vetor[1..3,1..4] de real
i,j: inteiro
inicio
// Seção de Comandos
para i de 1 ate 3 faca
     para j de 1 ate 4 faca
          escreval("DIGITE UM NUMERO")
          leia (mtr[i,j])
     fimpara
fimpara
para i de 1 ate 3 faca
     para j de 1 ate 4 faca
          escreva(mtr[i,j],"   ")
     fimpara
     escreval("")
fimpara
fimalgoritmo

Soma Entre Vetores

algoritmo "soma de vetores"
// Autor : Henrique de Amorim
// Data : 03/12/2013
// Seção de Declarações 
var

v1: vetor[1..5] de inteiro
v2: vetor[1..5] de inteiro
v3: vetor[1..5] de inteiro
i, maior, menor: inteiro
inicio
// Seção de Comandos
para i de 1 ate 5 faca
     escreva("DIGITE UM NUMERO: ")
     leia (v1[i])
fimpara
para i de 1 ate 5 faca
     escreva("DIGITE UM NUMERO: ")
     LEIA (v2[i])
fimpara
para i de 1 ate 5 faca
     v3[i]<-v1[i]+v2[i]
     escreval(v3[i])
     se (menor=0) entao
        menor<-v3[i]
     senao
        se (menor>v3[i]) entao
           menor<-v3[i]
        fimse
     fimse
     se (maior<v3[i]) entao
        maior<-v3[i]
     fimse
fimpara
escreval ("A MENOR SOMA E ", menor)
escreval ("A MAIOR SOMA E ", maior)
fimalgoritmo

Matriz 2: Gerar matriz com cubo dos elementos de outra matriz

// Autor : Henrique de Amorim
// Data : 03/12/2013
// Seção de Declarações 
var

mat1: vetor[1..5,1..5] de real
mat2: vetor[1..5,1..5] de real
i,j: inteiro
inicio
// Seção de Comandos
para i de 1 ate 5 faca
     para j de 1 ate 5 faca
          escreva("DIGITE UM NUMERO: ")
          leia(mat1[i,j])
          mat2[i,j]<-mat1[i,j]^3
     fimpara
fimpara
para i de 1 ate 5 faca
     para j de 1 ate 5 faca
          escreva(mat2[i,j], "   ")
     fimpara
     escreval("")
fimpara
escreval("O ELEMENTO CENTRAL DA NOVA MATRIZ E ",mat2[3,3])

fimalgoritmo

Gerar matriz transposta

algoritmo "semnome" // Autor : Henrique de Amorim // Data : 03/12/2013 // Seção de Declarações   var mat1: vetor[1..2,1..3] de real mat2: vetor[1..3,1..2] de real i,j: inteiro inicio // Seção de Comandos para i de 1 ate 2 faca      para j de 1 ate 3 faca           escreva("DIGITE UM NUMERO: ")           leia(mat1[i,j])           mat2[j,i]<-mat1[i,j]      fimpara fimpara para i de 1 ate 2 faca      para j de 1 ate 3 faca           escreva (mat1[i,j],"  ")      fimpara      escreval("") fimpara escreval("") para j de 1 ate 3 faca      para i de 1 ate 2 faca           escreva (mat2[j,i],"  ")      fimpara      escreval("") fimpara fimalgoritmo

 Matriz: Pesquisa de elemento por linha e coluna

algoritmo "pesquisa de matriz"
// Autor : Henrique de Amorim
// Data : 02/12/2013
// Seção de Declarações 
var

mat: vetor[1..3,1..4] de real
i,j: inteiro
inicio
// Seção de Comandos
para i de 1 ate 3 faca
     para j de 1 ate 4 faca
          escreval("DIGITE UM NUMERO: ")
          leia(mat[i,j])
     fimpara
fimpara
escreva("DIGITE O NUMERO DA LINHA DESEJADA (1 ATE 3): ")
leia(i)
escreva("DIGITE O NUMERO DA LINHA DESEJADA (1 ATE 4): ")
leia(j)
escreval("O ELEMENTO DA MATRIZ PROCURADO É ",mat[i,j])
fimalgoritmo


Soma de elementos de uma linha na matriz

algoritmo "Soma entre vetores"

// Autor :  Henrique de Amorim
// Data : 02/12/2013
// Seção de Declarações 
var

mat:vetor[1..4,1..3] de real
soma: real
i,j,linha:inteiro
inicio
// Seção de Comandos
para i de 1 ate 4 faca
     para j de 1 ate 3 faca
          escreva ("DIGITE UM NUMERO: ")
          leia(mat[i,j])
     fimpara
fimpara
escreva ("ESCOLHA UMA LINHA: ")
leia(linha)
para j de 1 ate 3 faca
     soma<-soma+mat[linha,j]
fimpara
escreval("A SOMA DOS ELEMENTOS DA LINHA ",linha," E DE ",soma)
fimalgoritmo

Soma da Diagonal de uma matriz
algoritmo "Soma da diagonal"

// Autor : Henrique

// Data : 02/12/2013

// Seção de Declarações 

 var

mat:vetor[1..3,1..3] de inteiro

i,j,soma:inteiro

inicio

// Seção de Comandos

para i de 1 ate 3 faca

     para j de 1 ate 3 faca

          escreva("DIGITE UM NUMERO: ")

          leia(mat[i,j])

          se (i=j) entao

             soma<-soma+mat[i,j]

          fimse

     fimpara

fimpara

escreval("A SOMA DOS ELEMENTOS DA DIAGONAL E DE ",soma)

fimalgoritmo