discurssiva LÓGICA DE PROGRAMAÇÃO E ALGORITIMOS 80%

Prévia do material em texto

Questão 1/5
Faça um algoritmo que leia n números. Exiba a soma dos quadrados de todos os números.
Nota: 20.0
	algoritmo "Soma_quadrados"
// Seção de Declarações
var
n,i:inteiro
soma,valor:real
 
inicio
// Seção de Comandos
 
escreval("Soma dos Quadrados")
 
escreval("")
escreval("Digite o número de valores:")
leia(n)
escreval("")
 
soma<-0
para i de 2 ate n faca
    escreval("Digite um valor:")
    leia(valor)
    soma<-soma+(valor*valor)
fimpara
 
escreval("Soma dos quadrados=",soma)
 
fimalgoritmo
Conteúdo das Aulas 5 e 6.
Resposta:algoritmo "soma dos quadrados"
// Seção de Declarações
var
n,i: inteiro
soma, valor: real
inicio
//Seção de comandos
escreval("soma dos quadrados")
escreval("")
escreval(" digite o numero de valores:")
leia (n)
ecreval("")
soma<-0
para i de 2 ate n faca 
escreval('digite um valor:")
leia(valor)
soma<-soma+valor*valor
fimpara
escreval("soma dos valores digitados é:", soma)
fimalgoritmo
Questão 2/5
Escreva um algoritmo para calcular a área de num quadrado.
Nota: 20.0
	algoritmo "Quadrado"
// Seção de Declarações
var
   lado, area: real
 
inicio
// Seção de Comandos
   escreval("Digite o valor para um lado: ")
   leia(lado)
   area<-lado*lado
   escreval("Area do quadrado=",area)
 
fimalgoritmo
Conteúdo da Aula 5.
Resposta:algoritmo "Área de um Quadrado"
//Seção de Decjarações
var
lado, area: real
inicio
//Seção de Comandos
escreval ("Digite o valor de um dos lados")
leia (lado)
area <-lado*lado
escreval(" Área do Quadrado:",area)
fimalgoritmo 
var
largura, comprimento, area: inteiro
escreval("Digite largura")
leia (largura)
escreval("digite comprimento")
leia (comprimento)
area=largura*comprimento
escreval (" Área do quadrado é:")
fimalgoritmo
Questão 3/5
Faça um algoritmo que leia três valores e descubra qual o menor valor.
Nota: 20.0
	algoritmo "Menor3"
// Função : Verificar o menor de tres numeros  e ordem decrescente)
// Seção de Declarações
var
   n1,n2,n3: real
 
inicio
// Seção de Comandos
   escreval("Digite tres números quaisquer: ")
   leia(n1)
   leia(n2)
   leia(n3)
 
   se (n1=n2) e (n2=n3) entao
       escreva ("Os tres numeros sao iguais :", n1, n2, n3)
   senao
      se (n1=n2) ou (n2=n3) ou (n1=n3) entao
         escreva ("Ha numeros iguais :", n1, n2 ,n3)
      senao
     
         se (n1<n2) e (n1<n3) e (n2<n3) entao
            escreva (" n1<n2<n3 ", n1,"<", n2,"<", n3)
         fimse
     
         se (n1<n3) e (n1<n2) e (n3<n2) entao
            escreva (" n1<n3<n2 ", n1,"<", n3,"<", n2)
         fimse
     
         se (n2<n3) e (n2<n1) e (n3<n1) entao
            escreva (" n2<n3<n1 ", n2,"<", n3,"<", n1)
         fimse
 
         se (n2<n1) e (n2<n3) e (n1<n3) entao
            escreva (" n2<n1<n3 ", n2,"<", n1,"<", n3)
         fimse
     
         se (n3<n1) e (n3<n2) e (n1<n2) entao
            escreva (" n3<n1<n2 ", n3,"<", n1,"<", n2)
         fimse
 
         se (n3<n2) e (n3<n1) e (n2<n1) entao
            escreva (" n3<n2<n1 ", n3,"<", n2,"<", n1)
         fimse
      fimse
   fimse
  
fimalgoritmo
Conteúdo da Aula 5.
Resposta:algoritmo "Menor valor entre 3 números"
//Seção de Declarações
var
a1, a2, a3: real
inicio
//Seção de Comandos
escreval ("Digite três numeros:")
leia(a1)
leia(a2)
leia(a3)
se (a1=a2) e (a2=a3) entao
escreva("Todos os números são iguais", a1, a2, a3)
senao
se (a1=a2) ou (a2=a3) ou (a1=a3) entao
escreva("existem numeros iguais"a1,a2,a3)
senao
se (a1<a2) e (a1<a3) e (a2<a3) entao 
escreva("a2<a3<a1", a1,"<",a2,"<",a3)
fimse
se (a2<a3) e (a2<a1) e (a3<a2) entao
escreva("a1<a3<a2",a1,"<",a3,"<",a2)
fimse
se (a2<a3) e (a2<a1) e (a3<a1) entao
escreva("a2<a3<a1", n2,"<",a3,"<",a1)
fimse
se (a2<a1) e (a2<a3) e (a1<a3) entao
escreva("a2<a1<a3",a2,"<",a1,"<",a3)
fimse
se (a3<a1) e (a3<a2) e (a1<a2) entao
escreva("a3<a1<a2",a3,"<",a1,"<",a2)
fimse
se (a3<a2) e (a3<a1) e (a2<a1) entao
escreva("a3<a2<a1",a3,"<",a2,"<",a1)
fimse 
fimse 
fimse
fimalgoritmo
Questão 4/5
Faça um algoritmo que leia um valor que corresponda ao tempo de produção em horas e um valor que represente o custo em reais da produção. Mostre a mensagem conforme a tabela abaixo:
	Tempo
	Valor
	Mensagem
	<0.5
	<50,00
	Ideal
	>=1.0
	>50,00
	Inviável
	>=0.5 e <1.0
	<50,00
	Viável
Nota: 20.0
	algoritmo "producao-viavel"
// Seção de Declarações
var
  tempo: real
  valor:real
inicio
// Seção de Comandos
escreva("Digite o tempo de produção em horas")
leia(tempo)
escreva("Digite o custo em reais")
leia(valor)
 
se (tempo<0.5) e (valor<50.00) entao
   escreval("Ideal")
fimse
se ((tempo>=0.5) e(tempo<1.0)) e (valor<50.00) entao
   escreval("Viavel")
fimse
se (tempo>=1.0) e (valor>50.00) entao
   escreval("Inviavel")
fimse
fimalgoritmo
 Conteúdo da Aula 6.
Resposta:algoritmo "produçao ideal, viavel ou inviavel"
//Seção de Declaroções
var
tempo:real
valor:real
inicio
//Seção de Comandos
escreva("Digite o tempo de produçao em horas")
leia(tempo)
escreva("digite o valor em reais")
leia(valor)
se (tempo<0.5) e (valor<50,00) entao
escreva("ideal")
fimse
se ((tempo>=0.5) e (tempo<1.0)) e (valor<50,00) entao
escreva("viavel")
fimse
se (tempo>=1.0) e (valor>50,00) entao
escreva("inviavel")
fimse
fimalgoritmo
Questão 5/5
Faça um algoritmo que leia dados para um vetor de n elementos. Após a leitura de todos os elementos do vetor, o mesmo deverá pedir uma posição neste vetor e um novo valor. O algoritmo deverá incluir nesta posição este novo valor. Logo, os demais valores do vetor deverão ser empurrados para as próximas posições do vetor.
Nota: 0.0
	algoritmo "vetores"
var
 
  i,n,posicao : inteiro
  valor:real
  v: 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
  
   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
Conteúdo das Aulas 9 e 10.
Resposta:algoritmo " Elementos"
//Seção de Declarações
var