Prova Discursiva Lógica de Programação e Algoritmos

Prévia do material em texto

25/07/2017 AVA UNIVIRTUS
file:///home/dell/%C3%81rea%20de%20Trabalho/AVA%20UNIVIRTUS.html 1/7
Questão 1/5
Escreva um algoritmo para calcular a área de num quadrado.
Nota: 6.0
Resposta:
algoritmo''area_quadrada'' 
var 
Questão 2/5
Faça um algoritmo que exiba um relatório de Totais e % por faixa-etária e sexo no seguinte 
formato:
 
"*** Totais por faixa-etária e sexo ***
Número de meninas:
Número de mulheres:
Número de meninos:
Número de homens:
Total geral:
 
% de meninas:
% de mulheres:
% de meninos:
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.
25/07/2017 AVA UNIVIRTUS
file:///home/dell/%C3%81rea%20de%20Trabalho/AVA%20UNIVIRTUS.html 2/7
% de homens:
Nota: 20.0
algoritmo "estat"
var
x, idade,qt,fem_maior, fem_menor,masc_maior, masc_menor:
inteiro
sexo:caracter
 
inicio
// Seção de Comandos
escreval("Digite a quantidade de entradas:")
leia(qt)
enquanto x < qt faca
 
 escreva("Digite uma idade: ")
 leia(idade)
 escreva("Digite o sexo (f/m): ")
 leia(sexo)
 
 se (idade<18) e (sexo="f") entao
 fem_menor<-fem_menor+1
 fimse
 
 se (idade<18) e (sexo="m") entao
 masc_menor<-masc_menor+1
 fimse
 
 se (idade>=18) e (sexo="f") entao
 fem_maior<-fem_maior+1
 fimse
 
 se (idade>=18) e (sexo="m") entao
 masc_maior<-masc_maior+1
 fimse
 
 
x<-x+1
fimenquanto
 
 escreval("*** Totais por faixa-etária e sexo ***")
25/07/2017 AVA UNIVIRTUS
file:///home/dell/%C3%81rea%20de%20Trabalho/AVA%20UNIVIRTUS.html 3/7
Resposta:
algoritimo ''calcula_faixa_etaria'' 
var 
x,idade,qt,fem_maior,fem_menor,masc_maior,masc_menor:
inteiro 
sexo: caracter 
inicio 
escreval(''digite a quantidade de entradas:'') 
leia(qt) 
enquanto x<qt faca 
escreval(''Digite uma idade:'') 
leia(idade) 
escreval(''Digite o sexo (F ou M) 
leia(sexo) 
se (idade<18) e (sexo=''F'') entao 
fem_menor<-fem_menor+1 
fimse 
se (idade<18) e (sexo=''M'') entao 
masc_menor<masc_menor+1 
fimse 
se (idade>18) e (sexo=''F'') entao 
fem_menor<-fem_menor+1 
fimse 
se (idade>18) e (sexo=''F'') entao 
fem_maior<-fem_maior+1 
fimse 
se (idade>18) e (sexo''M'') entao 
masc_maior<masc_maior+1 
fimse 
x<x+1 
fimenquanto 
escreval('' Totais por faixa-etária e sexo'') 
escreval(''numero de meninas'',fem_menor) 
escreval(''numero de mulheres'',fem_maior) 
escreval(''numero de meninos'',masc_menor) 
 escreval("Número de meninas: ",fem_menor)
 escreval("Número de mulheres: ",fem_maior)
 escreval("Número de meninos: ",masc_menor)
 escreval("Número de homens: ",masc_maior)
 escreval("Total geral:",qt)
 
 escreval("% de meninas: ",fem_menor*100/qt," %")
 escreval("% de mulheres: ",fem_maior*100/qt," %")
 escreval("% de meninos: ",masc_menor*100/qt," %")
 escreval("% de homens: ",masc_maior*100/qt," %")
 
fimalgoritmo
Conteúdo das Aulas 9 e 10.
25/07/2017 AVA UNIVIRTUS
file:///home/dell/%C3%81rea%20de%20Trabalho/AVA%20UNIVIRTUS.html 4/7
escreval''numero de homens'',masc_maior) 
escreval(''total geral'') 
escreval(''' Porcentagem de meninas'',fem_menor*100/qt,,''%'')
escreval(''porcentagem de mulheres'', fem_maior*100/qt,''%'')
escreval(''porcentagem de meninos''.masc_menor*100/qt,''%'')
escreval(''porcentagem de homens'',masc_maior*100/qt,''%'')
fimalgoritmo
Questão 3/5
Dentro da maneira como o computador manipula informações, numa linguagem de programação 
há tipos primitivos básicos utilizados para construção de programas. Quais são?
Nota: 16.0
Resposta:
Inteiro 
caracter 
Questão 4/5
Faça um algoritmo que leia uma matriz mXn e depois mostre os dados.
algoritmo "matriz01"
Nota: 0.0
São os tipos inteiro, caracter, real e lógico.
Conteúdo da Aula 3, Slide 3.
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
25/07/2017 AVA UNIVIRTUS
file:///home/dell/%C3%81rea%20de%20Trabalho/AVA%20UNIVIRTUS.html 5/7
Resposta:
algoritmo('' matriz01'')
Questão 5/5
Faça um algoritmo que mostre uma tabela de conversão de temperaturas de Celsius para 
Farenheit. O algoritmo deve receber a temperatura inicial em graus Celsius, a quantidade de 
temperaturas a exibir o incremento entre temperaturas. Por exemplo, a primeira temperatura seria 
10 com incremento 5, a próxima temperatura seria 15 e assim por diante até chegar na 
quantidade de temperaturas necessárias.
A fórmula para conversão é: 
Nota: 16.0
 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
algoritmo "conversaoCF"
// Seção de Declarações
var
celsius, far, celsius_inicial : real
qt_temp, incremento,i:inteiro
inicio
// Seção de Comandos
 
25/07/2017 AVA UNIVIRTUS
file:///home/dell/%C3%81rea%20de%20Trabalho/AVA%20UNIVIRTUS.html 6/7
Resposta:
algoritimo ''conversao'' 
var 
celsius, far, celsius_inicial: real 
qt_temp, incremento,i:inteiro 
inicio 
escreval('Informe a temperatura inicial de graus celsius: 
'') 
leia(celsius_inicial) 
escreval('' Informe a quantidade de temperaturas da 
tabela:'') 
leia(qt_temp) 
escreval('' Informe o incremento de temperatura em 
grau celsius'') 
leia(incremento) 
celsius<-celsius-incremento 
escreva(I,'' - '')
escreval(''celsius:'',celsius) 
escrevalFarenheit: '', far) 
escreval('''') 
fimpara 
fimalgoritmo 
escreval("Informa a temperatura inicial em Graus
Celsius:")
leia(celsius_inicial)
escreval("Informa a quantidade de temperaturas da
tabela:")
leia(qt_temp)
escreval("Informe o incremento de temperatura em
Graus Celsius")
leia(incremento)
 
celsius<-celsius_inicial
para i de 1 ate qt_temp faca
 far<-9/5*celsius+32;
 celsius<-celsius+incremento
 escreva(i," - ")
 escreval("Celsius:",celsius)
 escreval("Farenheit:",far)
 escreval("")
fimpara
 
fimalgoritmo
Conteúdo das Aulas 5 e 6.
25/07/2017 AVA UNIVIRTUS
file:///home/dell/%C3%81rea%20de%20Trabalho/AVA%20UNIVIRTUS.html 7/7