Lógica de Programação e Algoritmos - Todas APOLs / NOTA 100

Prévia do material em texto

Lógica de Programação e Algoritmos
APOL 1 - GABARITO
Lógica de Programação e Algoritmos
APOL 1 - GABARITO
Lógica de Programação e Algoritmos
APOL 1 - GABARITO
Lógica de Programação e Algoritmos
APOL 1 - GABARITO
Lógica de Programação e Algoritmos
APOL 1 - GABARITO
Lógica de Programação e Algoritmos
APOL 2 - GABARITO
Lógica de Programação e Algoritmos
APOL 2 - GABARITO
Lógica de Programação e Algoritmos
APOL 2 - GABARITO
Lógica de Programação e Algoritmos
APOL 2 - GABARITO
Lógica de Programação e Algoritmos
APOL 3 - GABARITO
Lógica de Programação e Algoritmos
APOL 3 - GABARITO
Lógica de Programação e Algoritmos
APOL 3 - GABARITO
Lógica de Programação e Algoritmos
APOL 3 - GABARITO
Lógica de Programação e Algoritmos
APOL 3 - GABARITO
algoritmo "prog1"
var
x, idade,crianca,preadole,adolescente,adulto: inteiro 
inicio
// Seção de Comandos
para x de 1 ate 10 faca
     escreva("Digite uma idade: ")
     leia(idade)
     se idade<=11 entao
        crianca<-crianca+1
     fimse
+----------------------------------------+
|                                                                                                 |
|                                                                                                 |
|                                                                                                 |
|                                                                                                 |
|                                                                                                 |
+----------------------------------------+
  se (idade>14) e (idade<=17) entao
        adolescente<-adolescente+1
     fimse
     se idade >= 18 entao
        adulto<-adulto+1
     fimse
fimpara
   escreval("*** Totais por faixa-etária ***")
   escreval("Número de criancas: ",crianca)
   escreval("Número de pre-adolescentes: ",preadole)
   escreval("Número de adolescentes: ",adolescente)
   escreval("Número de adultos: ",adulto)
fimalgoritmo
Lógica de Programação e Algoritmos
APOL 4 - GABARITO
algoritmo "matriz"
var
  matriz:vetor[1..10,1..10] de inteiro
  i,j,m,n:inteiro
 
inicio
escreval("***** Entrada de Dados *****")
escreval("")
escreva("Digite o numero de linhas e o numero de colunas para matriz:")
leia(m,n)
para i de 1 ate m  faca
  para j de 1 ate n faca
       escreva("Digite um valor para linha:",i," coluna:",j,":")
       matriz[i,j]<-i+1
  fimpara
fimpara
limpatela
escreval("***** Resultados da matriz *****")
para i de 1 ate m faca
  para j de 1 ate n faca
     escreva(matriz[i,j])
  fimpara
     escreval("")
fimpara
 
fimalgoritmo
algoritmo "vetores"
var
  i,j,k,n : inteiro
  v: vetor [1..50] de real
  vp: vetor [1..50] de real
  vn: vetor [1..50] de real
  aux: real 
inicio
//seção de comandos
    escreval("Digite o número de elementos do vetor:")
   leia(n)
   para i de 1 ate n faca
     escreval("Digite um numero qualquer:")
     leia(v[i])
   fimpara
    limpatela
+-------------------------------------------------------------------------------------------------------------------------------+
+-------------------------------------------------------------------------------------------------------------------------------+
   escreval("Positivos:")
   para i de 1 ate k faca
      escreval(vp[i])
   fimpara 
   escreval("Negativos:")
   para i de 1 ate j faca
      escreval(vn[i])
   fimpara
fimalgoritmo
Lógica de Programação e Algoritmos
APOL 4 - GABARITO
algoritmo "vetores"
inicio
//seção de comandos
 
   escreval("Digite o número de elementos do vetor:")
   leia(n)
   para i de 1 ate n faca
     escreval("Digite um numero qualquer:")
     leia(v[i])
   fimpara
  
   escreval("Digite um valor qualquer para inserir no vetor:")
   leia(valor)
   escreval("Digite a posição do vetor")
   leia(posicao)
  
   para i de n ate 2 passo -1 faca
      se (i>=posicao) entao
         v[i+1]<-v[i]
      fimse
      se (posicao=i) entao
         v[i]<-valor
      fimse
 
   fimpara
 
   para i de 1 ate n+1 faca
      escreval(v[i])
   fimpara
fimalgoritmo
algoritmo "matriz"
 
var
 
  matriz:vetor[1..10,1..10] de inteiro
  i,j,m,n:inteiro
 
inicio
 
escreval("***** Entrada de Dados *****")
escreval("")
escreva("Digite o numero de linhas e o numero de colunas para matriz:")
leia(m,n)
para i de 1 ate m  faca
  para j de 1 ate n faca
       escreva("Digite um valor para linha:",i," coluna:",j,":")
       matriz[i,j]<-j+i
  fimpara
fimpara
 
limpatela
 
escreval("***** Resultados da matriz *****")
para i de 1 ate m faca
  para j de 1 ate n faca
     escreva(matriz[i,j])
  fimpara
     escreval("")
fimpara
 
fimalgoritmo
Lógica de Programação e Algoritmos
APOL 5 - GABARITO
preco[1,1]<-1
preco [1,2]<-2
preco[1,3]<-3
preco [1,4]<-4
preco[2,1]<-23.00
preco [2,2]<-500.00
preco[2,3]<-12.00
preco [2,4]<-13.00
Lógica de Programação e Algoritmos
APOL 5 - GABARITO
  qt_carc<-Compr(nome)
  espaco<-Pos(" ",nome)
  x<-Copia(nome,espaco+1,qt_carc)
  retorne x
Lógica de Programação e Algoritmos
APOL 5 - GABARITO
r<-Raizq(valor)
potencia<-exp(r, 3)
escreval("O resultado da operação e: “, potencia)
algoritmo "Função"
// Seção de Declarações
var
n1,n2,resultado1:real
funcao fsx(v1,v2:real):real
var
  total:real
inicio
  total<-v1+(v2*v2)
  retorne total
fimfuncao
inicio
// Seção de Comandos
escreva("Digite um valor:")
leia(n1)
escreva("Digite o segundo valor:")
leia(n2)
resultado1<-fsx(n1,n2)
escreval("O valor da operação de ",n1," com ",n2," =",resultado1
fimalgoritmo
Lógica de Programação e Algoritmos
APOL 5 - GABARITO
preco[1]<-150.00
preco [2]<-250.00
preco[3]<-10.00
preco [4]<-40.00
preco[5]<-120.00
preco [6]<-500.00
preco[7]<-12.00
preco [8]<-13.00