Lógica de Programação e Algoritmos Discursiva

Prévia do material em texto

13/08/2016 AVA UNIVIRTUS
http://univirtus­277877701.sa­east­1.elb.amazonaws.com/ava/web/#/ava/AvaliacaoUsuarioHistorico/82061/novo/1 1/8
Matriz Discursiva UTA B FASE I – 04/07 até 22/ [O aluno poderá estar utilizando o Software VisuALG]
PROTOCOLO: 201607111304902A104A5RÔMULO SILVA RAMOS - RU: 1304902 Nota: 100
Disciplina(s):
Lógica de Programação e Algoritmos
Data de início: 11/07/2016 19:06
Prazo máximo entrega: 11/07/2016 20:36
Data de entrega: 11/07/2016 19:59
Questão 1/5
Faça um algoritmo que crie uma função de conversão de uma temperatura em graus celsius para uma temperatura em 
Farenheit.
A fórmula para conversão é: 
Nota: 20.0
algoritmo "conversaoCFf"
// Seção de Declarações
var
far,celsius: real
 
funcao conv(c:real):real
var res: real
inicio
 
res<­9/5*c+32;
retorne res
fimfuncao
 
inicio
// Seção de Comandos
 
escreval("Informa a temperatura inicial em Graus Celsius:")
leia(celsius)
 
far<­conv(celsius)
 
escreval("Temperatura em Farehneit:", far)
 

13/08/2016 AVA UNIVIRTUS
http://univirtus­277877701.sa­east­1.elb.amazonaws.com/ava/web/#/ava/AvaliacaoUsuarioHistorico/82061/novo/1 2/8
Resposta:
algoritmo "funcao_de_conversao"
var
tempC, tempF: real
funcao converteCemF(celsius: real) : real
var
  farenheit: real
inicio
  farenheit <­ ((9/5)*celsius) + 32
  retorne farenheit
fimfuncao
inicio
escreva("Digite a temperatura em Celsius:")
leia(tempC)
tempF <­ converteCemF(tempC)
escreval("Temperatura em Farenheit: ", tempF)
fimalgoritmo
Questão 2/5
Faça um algoritmo que receba um vetor com valores positivos e negativos. Após a entrada dos dados o algoritmo deverá 
decompor este em outros dois vetores. Um vetor somente de números positivos e outro vetor só de números negativos. 
Ao término, mostrar os dois novos vetores.
Nota: 20.0
fimalgoritmo
Conteúdo da Aula 8.
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:")

13/08/2016 AVA UNIVIRTUS
http://univirtus­277877701.sa­east­1.elb.amazonaws.com/ava/web/#/ava/AvaliacaoUsuarioHistorico/82061/novo/1 3/8
Resposta:
algoritmo "positivo_negativo"
var
i,x,p,n: inteiro
numeros: vetor[1..50] de inteiro
positivos: vetor[1..50] de inteiro
negativos: vetor[1..50] de inteiro
inicio
escreva("Digite o tamanho do vetor:")
leia(x)
p <­ 0
   leia(n)
   para i de 1 ate n faca
     escreval("Digite um numero qualquer:")
     leia(v[i])
   fimpara
  
   limpatela
 
   k<­0
   j<­0
   para i de 1 ate n faca
     se (v[i]>0) entao
        k<­k+1
        vp[k]<­v[i]
     senao
        j<­j+1
        vn[j]<­v[i]
     fimse
    
   fimpara
 
   escreval("Positivos:")
   para i de 1 ate j faca
      escreval(vp[i])
   fimpara
  
   escreval("Negativos:")
   para i de 1 ate k faca
      escreval(vn[i])
   fimpara
 fimalgoritmo
Conteúdo das Aulas 9 e 10.
13/08/2016 AVA UNIVIRTUS
http://univirtus­277877701.sa­east­1.elb.amazonaws.com/ava/web/#/ava/AvaliacaoUsuarioHistorico/82061/novo/1 4/8
n <­ 0
para i de 1 ate x faca
  escreva("Digite o valor para numeros[",i,"]: ")
  leia(numeros[i])
  se numeros[i] < 0 entao
    n <­ n+1
    negativos[n] <­ numeros[i]
  senao
    p <­ p + 1
    positivos[p] <­ numeros[i]
  fimse 
fimpara
limpatela
para i de 1 ate p faca
  escreval("positivos[",i,"]: ", positivos[i])
fimpara
escreval(" ")
para i de 1 ate n faca
  escreval("negativos[",i,"]: ",negativos[i])
fimpara
fimalgoritmo
Questão 3/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")

13/08/2016 AVA UNIVIRTUS
http://univirtus­277877701.sa­east­1.elb.amazonaws.com/ava/web/#/ava/AvaliacaoUsuarioHistorico/82061/novo/1 5/8
Resposta:
algoritmo "questao3"
var
tempo,custo: real
inicio
escreva("Digite o tempo de producao:")
leia(tempo)
escreva("Digite o custo de producao:")
leia(custo)
se (tempo < 0.5) e (custo < 50) entao
  escreva("Ideal")
fimse
se (tempo >= 1) e (custo > 50) entao
  escreva("Inviavel")
fimse
se (tempo >= 0.5) e (tempo < 1) e (custo < 50) entao
  escreva("Viavel")
fimse
fimalgoritmo
Questão 4/5
Escreva um algoritmo para calcular a área de num quadrado.
Nota: 20.0
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.
13/08/2016 AVA UNIVIRTUS
http://univirtus­277877701.sa­east­1.elb.amazonaws.com/ava/web/#/ava/AvaliacaoUsuarioHistorico/82061/novo/1 6/8
Resposta:
algoritmo "area_quadrado"
var
l: real
inicio
escreva("Digite o valor do lado do quadrado:")
leia(l)
escreva("A area de um quadrado com lado ",l, " e igual a ", l*l)
fimalgoritmo
Questão 5/5
Faça um algoritmo que leia uma matriz mXn e depois mostre os dados.
algoritmo "matriz01"
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.

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:")

13/08/2016 AVA UNIVIRTUS
http://univirtus­277877701.sa­east­1.elb.amazonaws.com/ava/web/#/ava/AvaliacaoUsuarioHistorico/82061/novo/1 7/8
Resposta:
algoritmo "matriz01"
var
m,n,i,j : inteiro
matriz: vetor[1..10,1..10] de inteiro
inicio
escreva("Digite o numero de linhas da matriz:")
leia(m)
escreva("Digite o numero de colunas da matriz:")
leia(n)
escreval(" ")
para i de 1 ate m faca
  para j de 1 ate n faca
    escreva("Informe o valor de matriz[",i,",",j,"]: ")
     leia(matriz[i,j])
  fimpara
fimpara
escreval(" ")
escreval("Matriz informada:")
para i de 1 ate m faca
  para j de 1 ate n faca
    escreva(matriz[i,j])
  fimpara
  escreval(" ")
fimpara
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+j
  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
13/08/2016 AVA UNIVIRTUS
http://univirtus­277877701.sa­east­1.elb.amazonaws.com/ava/web/#/ava/AvaliacaoUsuarioHistorico/82061/novo/1 8/8
fimalgoritmo