Exemplos de Algoritmos com Vetores e Matrizes

Prévia do material em texto

algoritmo "matriz"
var
matriz:vetor [0..3,0..2] de inteiro
linha, coluna:inteiro
inicio
// Seção de Comandos
para linha de 0 ate 2 faca
para coluna de 0 ate 1 faca
 escreval("Digite um numero para inserir na matriz")
 leia(matriz[linha,coluna])
fimpara
fimpara
//escrever um elemento da matriz na tela:
escreval(matriz[0,1])
fimalgoritmo
algoritmo "aula_vetor"
var
numeros: vetor [1..10] de real
i : inteiro
inicio
        para i de 1 ate 10 faca
             escreva("Entre com o ", i, "º Nº: ")
             leia( numeros[i])
        fimpara
       para i de 1 ate 10 faca
             se (( i mod 2) = 1) entao
                     escreval ("O ",i,"º nº:",numeros[i])
            fimse
      fimpara
fimalgoritmo
algoritmo "vetor_invertido"
// Função : Estudo de vetores, o programa aceita 10 numeros e exibe-os em ordem inversa
var
indice:inteiro
p10:vetor [1..10] de inteiro
inicio
    para indice de 1 ate 10 faca
         escreva(" Digite o ",indice,"º Nº:")
          leia(p10[indice])
   fimpara
   para indice de 10 ate 1 passo -1 faca
         escreval("exibindo o",indice,"º nº:",p10[indice])
   fimpara
fimalgoritmo
 algoritmo "vetor_cadastro"
// Função : Estudo de vetores, realiza 5 cadastros diferentes
var
ordem:inteiro
nome:vetor [1..5] de caracter
end:vetor [1..5] de caracter
tel:vetor [1..5] de caracter
inicio
    para ordem de 1 ate 5 faca
         escreva(" Digite o ",ordem,"º Nome:")
          leia(nome[ordem])
         escreva(" Digite o ",ordem,"º Endereço:")
          leia(end[ordem])
         escreva(" Digite o ",ordem,"º Telefone:")
          leia(tel[ordem])
   fimpara
   para ordem de 1 ate 5 passo 1 faca
         escreval("O ",ordem,"º nome digitado foi:", nome[ordem])
         escreval("O ",ordem,"º endereço digitado foi:", end[ordem])
         escreval("O ",ordem,"º telefone digitado foi:", tel[ordem])
   fimpara
fimalgoritmo