Prova resolvida

Prévia do material em texto

1)algoritmo "Algprovas"
//Considere que o último concurso vestibular apresentou três provas: Português,
//Matemática e Conhecimentos Gerais. Considerando que para cada candidato
//tem-se um registro contendo o seu nome e as notas obtidas em cada uma das
//provas, construa um algoritmo que forneça:
//a) o nome e as notas em cada prova do candidato
//b) a média do candidato
//c) uma informação dizendo se o candidato foi aprovado ou não. Considere que
//um candidato é aprovado se sua média for maior que 7.0 e se não apresentou
//nenhuma nota abaixo de 5.0
var
nomeCandidato:caracter
Nota1, Nota2, Nota3, media:real
inicio
escreva("Informe o nome do candidato: ")
leia(nomeCandidato)
escreval()
escreva("Informe as notas de Português, Matemática e Conhecimentos Gerais: ")
escreval
escreval("Português...> ")
leia(Nota1)
escreval
escreval("Matemática...> ")
leia(Nota2)
escreval
escreval("Conhecimentos Gerais...> ")
leia(Nota3)
escreval
escreval("===-------------------- ==")
media <- (Nota1 + Nota2 + Nota3) / 3
escreval(nomeCandidato, " Português: ", Nota1:2:2)
escreval(nomeCandidato, " Matemática: ", Nota2:2:2)
escreval(nomeCandidato, " Conhecimentos Gerais: ", Nota3:2:2)
escreval
escreval
escreval(nomeCandidato, " Média: ", media:2:0)
se ((Nota1 < 5) ou (Nota2 < 5) ou (Nota3 < 5) ou (media < 7)) entao
 escreval()
 escreval ("O resultado é: ")
 escreval(" Reprovado")
senao
 escreval()
 escreval ("O resultado é: ")
 escreval(" Aprovado")
fimse
fimalgoritmo
2)algoritmo "AreadoCilindro"
//Faça um algoritmo que calcule e apresente o valor
//do volume de uma lata de
//óleo, utilizando a fórmula VOLUME = 3,14159 * RAIO2 * ALTURA
var
alturaCilindro, raioCilindro, volumeCilindro:real
inicio
// Seção de Comandos
escreval ("Digite o valor do raio da lata de óleo em cm: ")
leia(raioCilindro)
escreval ("Digite o valor da altura da lata de óleo em cm: ")
leia(alturaCilindro)
volumeCilindro<-((raioCilindro*raioCilindro)*alturaCilindro*3.14159265)
escreval("O volume de lata de óleo em cm é: ",volumeCilindro:2:0,"cm 3")
fimalgoritmo
3)algoritmo "ConverteCelsiusemFarenheit"
4)) algoritmo "CorretoresVendas"
//Uma empresa de vendas tem três corretores. A empresa paga ao corretor uma
//comissão calculada de acordo com o valor de suas vendas. Se o valor da venda
//de um corretor for maior que R$ 50.000.00 a comissão será de 12% do valor
//vendido. Se o valor da venda do corretor estiver entre R$ 30.000.00 e R$
//50.000.00 (incluindo extremos) a comissão será de 9.5%. Em qualquer outro
//caso, a comissão será de 7%. Escreva um algoritmo que gere um relatório
//contendo nome, valor da venda e comissão de cada um dos corretores. O
//relatório deve mostrar também o total de vendas da empresa.
Var
 sair : caracter
 total : real
 i,contador : inteiro
 nome : vetor[1..3] de caracter
 valorVenda : vetor[1..3] de real
 comissao : vetor[1..3] de real
Inicio
 escreval("========================================")
 escreval("=== ===")
 escreval("=== Cadastro de Venda Corretores ===")
 escreval("=== ===")
 escreval("========================================")
 escreval("")
 sair <- "S"
 repita
 contador <- contador + 1
 escreva("Digite o nome do vendedor: ")
 leia(nome[contador])
 escreva("Digite o valor da venda: ")
 leia(valorVenda[contador])
 escreval("Deseja cadastrar outro corretor? S/N ")
 leia(sair)
 ate sair <> "S"
 para i de 1 ate contador faca
 se ( valorVenda[i] > 50000 ) entao
 comissao[i] <- valorVenda[i] * 0.12
 senao
 se (( valorVenda[i] >= 30000 ) e ( valorVenda[i] <= 50000) ) Entao
comissao[i] <- valorVenda[i] * 0.095
 senao
comissao[i] <- valorVenda[i] * 0.07
 fimse
 fimse
 total <- valorVenda[i] + total
 fimpara
 para i de 1 ate contador faca
 escreva("O vendedor: ",nome[i]," vendeu R$ ",valorVenda[i])
5)algoritmo "Folhap"
//Faça um algoritmo que:
//a) Obtenha o valor para a variável HT (horas trabalhadas no mês);
//b) Obtenha o valor para a variável VH (valor hora trabalhada):
//c) Obtenha o valor para a variável PD (percentual de desconto);
//d) Calcule o salário bruto => SB = HT * VH;
//e) Calcule o total de desconto => TD = (PD/100)*SB;
//f) Calcule o salário líquido => SL = SB – TD;
//g) Apresente os valores de: Horas trabalhadas, Salário Bruto, Desconto, Salário
//Liquido.
var
hsTrabalhadasmes:real
hraTrabalhadaMes,hraTrabalhada,salBruto:real
salLiquido,descontosMes:real
//-----------------------------
inicio
// Seção de Comandos
escreval ("Digite o número de horas trabalhadas ao mês: ")
leia (hsTrabalhadasMes)
escreval ("Digite o vlo da hora trabalhada... ")
leia(hraTrabalhada)
escreval ("Descontos ao Mês do Salário... ")
leia(descontosMes)
salBruto <- hraTrabalhada*HsTrabalhadasMes
salLiquido <- salBruto - descontosMes
escreval
escreval (" A quantidade horas Trabalhadas... ", hraTrabalhada)
escreval (" O salário Bruto do Funcionário é... ", salBruto)
escreval (" O salário Líquido do Funcionário é...: ", salLiquido)
escreval (" O salário para as ", hsTrabalhadasMes, " Horas é de : ")
escreval()
escreval ("Salário Bruto... ", salBruto, " Descontos... ",descontosMes, " Líquido...: ", salLiquido)
fimalgoritmo
6) algoritmo "ordenarvalores"
//Construa um algoritmo que receba como entrada três valores e os imprima em
//ordem crescente.
var
numero1,numero2,numero3 : inteiro
inicio
// Seção de Comandos
escreval("Entre com tres números distintos: ")
escreval()
escreval("Digite o primeiro número: ")
leia (numero1)
escreval()
escreval("Digite o segundo número: ")
leia (numero2)
escreval()
escreval("Digite o terceiro número: ")
leia (numero3)
escreval
escreval
se((numero1=numero2) ou (numero2=numero3) ou (numero1=numero3)) entao
 escreval ("Alguns ou todos os numeros sao iguais ")
senao
 se ((numero1<numero2) e (numero1<numero3) e (numero2<numero3)) entao//numero1 é menor
 se (numero2<numero3) entao
 escreval("Os número digitados na ordem crescente são: ",numero1,numero2,numero3)
 senao
 escreval ("Os número digitados na ordem crescente são: ",numero2,numero3,numero1)
 fimse
 fimse
 se ((numero2<numero1) e (numero2<numero3) e (numero1<numero3)) entao//numero2 é menor
 se (numero1<numero3) entao
 escreval ("Os número digitados na ordem crescente são: ",numero2,numero1,numero3)
 senao
 escreval ("Os número digitados na ordem crescente são: ",numero1,numero3,numero2)
 fimse
 fimse
 se ((numero3<numero1) e (numero3<numero2) e (numero1<numero2)) entao//numero3 é menor
 se (numero1<numero2) entao
 escreval ("Os número digitados na ordem crescente são: ",numero3,numero1,numero2)
 senao
 escreval ("Os número digitados na ordem crescente são: ",numero1,numero2,numero3)
 fimse
 fimse
fimse
fimalgoritmo
7) algoritmo "pesquisaNumeroSerie"
//Faça um algoritmo que armazene 20 números inteiros. Após a leitura,
//leia um número de busca e verifique se o número
//de busca está no vetor.
var
 vetorPosicao: vetor [1..5] de inteiro
 NUM, POSICAO: inteiro
 inicio
 // preencher o array
 PARA POSICAO DE 1 ATE 5 FACA
 ESCREVAL ("Digite um número para inserir na Série:")
 LEIA (vetorPosicao[POSICAO])
 FIMPARA
 //entrar com valor a pesquisar
 ESCREVAL ("Digite um número para pesquisar na Série:")
 LEIA (NUM)
 POSICAO <- 1
//pesquisar no vetor e exibir o resultado da busca
 ENQUANTO (POSICAO < 5) e (vetorPosicao[POSICAO] <> NUM) FACA
 POSICAO <- POSICAO + 1
 FIMENQUANTO
 SE vetorPosicao[POSICAO] = NUM ENTAO
 ESCREVA ("Númeroencontrado na posição ", POSICAO)
 SENAO
 ESCREVA ("Número não encontrado na série")
 FIMSE
 Fimalgoritmo
8)- algoritmo "SalariosMedias"
//Faça um algoritmo que calcule a média de salários de uma empresa, pedindo
//ao usuário o nome dos funcionários e os salários e devolvendo a média, o salário
//mais alto e o salário mais baixo. Use nome = “fim” para encerrar a leitura.
var
nome, nomeMaior, nomeMenor: caracter
cont:inteiro
salario, maior, menor, soma, media: real
inicio
soma <- 0
cont <- 0
escreval("para sair do programa digite < FIM > ")
escreva("Informe o nome do servidor: ")
leia(nome)
enquanto (nome <> "FIM") faca
 escreva("Informe o salário do servidor: ")
 leia(salario)
 soma <- soma + salario
 cont <- cont + 1
 se (cont = 1) entao
 nomeMaior <- nome
 maior <- salario
 nomeMenor <- nome
 menor <- salario
 senao
 se (salario < menor) entao
 nomeMenor <- nome
 menor <- salario
 fimse
 se (salario > maior) entao
 nomeMaior <- nome
 maior <- salario
 fimse
 fimse
 escreva("Informe o nome: ")
 leia(nome)
fimenquanto
se (cont > 0) entao
 escreval(nomeMenor, " tem o menor salário: ", menor)
 escreval(nomeMaior, " tem o maior salário: ", maior)
 media <- soma / cont
 escreval("Media dos salários: ", media)
senao
 escreval(" Não FOI INFORMADO NEHUM FUNCIONÁRIO ")
fimse
fimalgoritmo
9)- algoritmo "Soma100valores"
//Some os núieros de 1 a 100 e imprima o valor
var
soma: inteiro
numero: inteiro
Inicio
numero <- 1
enquanto numero < 100 faca
soma <- soma + numero
numero <- numero + 1
fimenquanto
escreva("A soma dos N伹ero de 1 a 100, comulativamnete ・ ", soma)
Fimalgoritmo
10- algoritmo "SomadeValoreseContadores"
//Construa um Algoritmo que, para um grupo de 50 valores inteiros, determine:
//a) A soma dos números positivos;
//b) A quantidade de valores negativos;
var
valor,neg, soma, i: inteiro
inicio
// Seção de Comandos
i<-1
soma<-0
neg<-0
enquanto i<=50 faca
 escreval("Digite uma serie de 50 valores inteiros quaisquer: ")
 leia(valor)
 se valor>=0 entao
 soma<-soma+valor
 senao
 neg<-neg+1
 fimse
 i<-i+1
fimenquanto
escreval("A soma dos valores positivos.. ", soma)
escreval("A quantidade de valores negativos na série é...: ", neg)
fimalgoritmo