Lógica e Linguagem de Programação

ANP - 26/07/19

Exercício 1

Algoritmo "vetor"

Var

Valor: vetor [0..9] de inteiro
i, y, z: inteiro

Inicio

para i de 0 ate 9 faca
     leia (valor[i])
fimpara
para i de 0 ate 8 faca
     para y de (i+1) ate 9 faca
          se valor [i] > valor[y] entao
             z:= valor[i]
             valor [i]:= valor[y]
             valor [y]:= z
           fimse
      fimpara
fimpara
para i de  ate 9 faca
     Escreval(valor[i])
fimpara
fimalgoritmo



Fimalgoritmo

Exercício 2

Algoritmo "matriz"

Var

mat, mat2: vetor[0..4,0..4] de inteiro
x, y: inteiro

Inicio

para x de 0 ate 4 faca
     para y de 0 ate 4 faca
     leia(mat[x,y])
     fimpara
fimpara

para x de 0 ate 4 faca
     para y de 0 ate 4 faca
mat2[x,y]:= mat[x,y] * mat[x,y] * mat[x,y]
fimpara
     fimpara

para x de 0 ate 4 faca
     para y de 0 ate 4 faca
          Escreva(mat[x,y])
fimpara
escreval ()
     fimpara
    
escreval ()

para x de 0 ate 4 faca
     para y de 0 ate 4 faca
          Escreva(mat2[x,y])
fimpara
escreval ()
     fimpara
escreval ()

escreval (mat2[3,3])
    
fimalgoritmo



Fimalgoritmo