Mostrando postagens com marcador algoritmos. Mostrar todas as postagens
Mostrando postagens com marcador algoritmos. Mostrar todas as postagens

sexta-feira, 17 de maio de 2019

Uma Universidade deseja fazer um levantamento a respeito de seu concurso vestibular. Paracada curso é fornecido o seguinte conjunto de valores: Um código do curso; • Número de vagas; • Número de candidatos do sexo masculino; • Número de candidatos do sexo feminino. Fazer um programa que: • Calcule e escreva, para cada curso, o número de candidatos por vaga e a percentagem decandidatos do sexo feminino (escreva também o código correspondente do curso); • Determine o maior número de candidatos por vaga e escreva esse número juntamentecom o código do curso correspondente (supor que não haja empate); • Calcule e escreva o total de candidatos.

83) Uma Universidade deseja fazer um levantamento a respeito de seu concurso vestibular. Paracada curso é fornecido o seguinte conjunto de valores: Um código do curso;
• Número de vagas;
• Número de candidatos do sexo masculino;
• Número de candidatos do sexo feminino.
Fazer um programa que:
• Calcule e escreva, para cada curso, o número de candidatos por vaga e a percentagem decandidatos do sexo feminino (escreva também o código correspondente do curso);
• Determine o maior número de candidatos por vaga e escreva esse número juntamentecom o código do curso correspondente (supor que não haja empate);
• Calcule e escreva o total de candidatos.
algoritmo "semnome"
var
nvagas, cm, cf, tc: inteiro
pcf, cpv, mncv: real
cadastrar: literal
curso, cod_c: caracter
inicio
cadastrar<- "s"
mncv<- 0
tc<- 0
enquanto cadastrar = "s" faca
escreva("O código do curso: ")
leia(cod_c)
escreva("O nº de vagas do curso: ")
leia(nvagas)
escreva("O nº de candidatos masculino: ")
leia(cm)
escreva("O nº de candidatos feminino: ")
leia(cf)
tc<- tc + (cm + cf)
cpv<- (cm + cf) / nvagas
pcf<- cf / (cm + cf) * 100
se(mncv<cpv) entao
mncv<- cpv
curso<- cod_c
fimse
escreval("------------------- x xx---------------------")
escreval("O numero de cadidatos por vaga é: ",cpv)
escreval("O curso ",cod_c," teve ",pcf," % de candidatas mulheres")
escreva("Cadastrar outro curso(s/n)? ")
leia(cadastrar)
fimenquanto
escreval("---------------------------------- x xx ------------------------------------")
escreval("O curso ",curso," teve o maior numero de cadidatos por vaga que é: ",mncv)
escreval("O total de candidatos é: ",tc)
fimalgoritmo

Foi feita uma pesquisa de audiência de canal de TV em várias casas de uma certa cidade, numdeterminado dia. Para cada casa visitada, é fornecido o número do canal (4, 5, 7, 12) e o número depessoas que o estavam assistindo naquela casa. Se a televisão estivesse desligada, nada era anotado,ou seja, esta casa não entrava na pesquisa. Fazer um algoritmo que: • Leia número de casas pesquisadas; • Calcule a percentagem de audiência para cada emissora; • Escreva o número de cada canal e a sua respectiva percentagem.

82) Foi feita uma pesquisa de audiência de canal de TV em várias casas de uma certa cidade, numdeterminado dia. Para cada casa visitada, é fornecido o número do canal (4, 5, 7, 12) e o número depessoas que o estavam assistindo naquela casa. Se a televisão estivesse desligada, nada era anotado,ou seja, esta casa não entrava na pesquisa. Fazer um algoritmo que:
• Leia número de casas pesquisadas;
• Calcule a percentagem de audiência para cada emissora;
• Escreva o número de cada canal e a sua respectiva percentagem.
algoritmo "Pesquisa 2"
var
ncasa, ncanal, p_a, cont, c4, c5, c7, c12: inteiro
tv_l: literal
pc4, pc5, pc7, pc12: real
inicio
tv_l<- "n"
escreval("Televisão desligada (s/n)?: ")
leia(tv_l)
enquantotv_l = "n" faca
cont<- cont + 1
escreva("Qual canal estão assistindo? ")
leia(ncanal)
escreva("Quantas pessoas estão assistindo? ")
leia(p_a)
escreval("------------- x xx ------------")
se(ncanal = 4) entao
c4<- c4 + 1
senao
se(ncanal = 5) entao
c5<- c5 + 1
senao
se(ncanal = 7) entao
c7<- c7 + 1
senao
se(ncanal = 12) entao
c12<- c12 + 1
fimse
fimse
fimse
fimse
pc4 <- c4 / cont * 100
pc5 <- c5 / cont * 100
pc7 <- c7 / cont * 100
pc12 <- c12 / cont * 100
escreva("Encerra pesquisa(s/n)? ")
leia(tv_l)
limpatela
fimenquanto
escreval("O número de casas pesquisadas é: ",cont)
escreval("A audiência da emissora do canal 4 é: ",c4)
escreval("A audiência da emissora do canal 5 é: ",c5)
escreval("A audiência da emissora do canal 7 é: ",c7)
escreval("A audiência da emissora do canal 12 é: ",c12)
escreval("A percentagem do canal 4 é: ",pc4," %")
escreval("A percentagem do canal 5 é: ",pc5," %")
escreval("A percentagem do canal 7 é: ",pc7," %")
escreval("A percentagem do canal 12 é: ",pc12," %")
fimalgoritmo

Um certa empresa fez uma pesquisa para saber se as pessoas gostaram ou não de um novoproduto lançado no mercado. Para isso, forneceu-se o sexo do entrevistado e a sua resposta (sim ounão). Sabendo-se que foram entrevistadas 2.000 pessoas, fazer um algoritmo que calcule e escreva: • O número de pessoas que responderam sim; • O número de pessoas que responderam não; • A percentagem de pessoas do sexo feminino que responderam sim; • A percentagem de pessoas do sexo masculino que responderam não;

81) Um certa empresa fez uma pesquisa para saber se as pessoas gostaram ou não de um novoproduto lançado no mercado. Para isso, forneceu-se o sexo do entrevistado e a sua resposta (sim ounão). Sabendo-se que foram entrevistadas 2.000 pessoas, fazer um algoritmo que calcule e escreva:
• O número de pessoas que responderam sim;
• O número de pessoas que responderam não;
• A percentagem de pessoas do sexo feminino que responderam sim;
• A percentagem de pessoas do sexo masculino que responderam não;
algoritmo "Pesquisa"
var
sexo, res: literal
cont, conts, contn, nf, nm: inteiro
pf, pm: real
inicio
enquantocont< 2000 faca
escreva("Qual o seu sexo(m/f)?: ")
leia(sexo)
escreva("O produto está aprovado(s/n)?: ")
leia(res)
escreval("-------------- x xx --------------")
se(res = "s") e (sexo = "f") entao
nf<- nf + 1
senao
se(res = "n") e (sexo = "m") entao
nm<- nm + 1
fimse
fimse
se(res = "s") entao
conts<- conts + 1
senao
contn<- contn + 1
fimse
cont<- cont + 1
fimenquanto
pf<- nf / cont * 100
pm<- nm / cont * 100
escreval("O numero de reposta igual a sim é: ",conts)
escreval("O numero de reposta igual a não é: ",contn)
escreval("A percentagem de sim feminino é: ",pf)
escreval("A percentagem de não masculino é: ",pm)
fimalgoritmo

80) Deseja-se fazer um levantamento a respeito da ausência de alunos à primeira prova de Lógicade Programação para cada uma das 10 turmas existentes. Para cada turma é fornecido um conjuntode valores, sendo que os dois primeiros valores do conjunto correspondem à identificação da turma (A, B, C...) e ao número de alunos matriculados. Os demais valores deste conjunto contêm onúmero de matrícula do aluno e a letra A ou P para o caso de o aluno estar ausente ou presente,respectivamente. Fazer um programa que: • Para cada turma, calcule a percentagem de ausência e escreva a identificação da turma e apercentagem calculada. • Determine e escreva quantas turmas tiveram percentagem de ausência superior a 5%.

80) Deseja-se fazer um levantamento a respeito da ausência de alunos à primeira prova de Lógicade Programação para cada uma das 10 turmas existentes. Para cada turma é fornecido um conjuntode valores, sendo que os dois primeiros valores do conjunto correspondem à identificação da turma (A, B, C...) e ao número de alunos matriculados. Os demais valores deste conjunto contêm onúmero de matrícula do aluno e a letra A ou P para o caso de o aluno estar ausente ou presente,respectivamente. Fazer um programa que:
• Para cada turma, calcule a percentagem de ausência e escreva a identificação da turma e apercentagem calculada.
• Determine e escreva quantas turmas tiveram percentagem de ausência superior a 5%.

Um determinado material radioativo perde metade de sua massa a cada 50 segundos. Dada amassa inicial, em gramas, fazer um programa que determine o tempo necessário para que essamassa se torne menor que 0,5 grama. Escreva a massa inicial, a massa final e o tempo calculado emhoras, minutos e segundos.

79) Um determinado material radioativo perde metade de sua massa a cada 50 segundos. Dada amassa inicial, em gramas, fazer um programa que determine o tempo necessário para que essamassa se torne menor que 0,5 grama. Escreva a massa inicial, a massa final e o tempo calculado emhoras, minutos e segundos.
algoritmo "Material Radioativo"
var
massa, massai, massaf: real
contador, hora, minuto, segundo: inteiro
inicio
contador<- 0
massaf<- 0
escreval("Digite a massa inicial: ")
leia(massa)
massai<- massa
enquanto (massa >= 0.5) faca
massa<- massa / 2
contador<- contador + 50
fimenquanto
massaf<- massa
segundo<- contador mod 60
minuto<- contador div 60
hora<- minuto div 60
escreval("A massa inicial é: ",massai)
escreval("A massa final é: ",massaf)
escreval("O tempo gasto foi: ",hora," h ",minuto," m ",segundo," s")
fimalgoritmo

Refaça o exercício 77, lendo as taxas e as populações.

78) Refaça o exercício 77, lendo as taxas e as populações.
algoritmo "Crescimento anual"
var
a, b, taxaa, taxab: real
ano: inteiro
inicio
ano<- 0
escreval("Digite a população do país A: ")
leia(a)
escreval("Digite a taxa do país A: ")
leia(taxaa)
escreval("-------------- x xx---------------")
escreval("Digite a população do país B: ")
leia(b)
escreval("Digite a taxa do país B: ")
leia(taxab)
enquanto a <= b faca
a<- a * taxaa / 100
b <- b * taxab / 100
ano<- ano + 1
fimenquanto
escreval("A quantida de anos para A chegar até B é: ",ano)
fimalgoritmo

Supondo que a população de um país A seja da ordem de 90.000.000 habitantes com uma taxaanual de crescimento de 3% e que a população de um país B seja aproximadamente de 200.000.000habitantes com uma taxa anual de cresciemento de 1,5%. Fazer um algoritmo que calcule e escrevao número de anos necessários para que a população do país A ultrapasse ou iguale a população dopaís B, mantidas essas taxas de crescimento.

77) Supondo que a população de um país A seja da ordem de 90.000.000 habitantes com uma taxaanual de crescimento de 3% e que a população de um país B seja aproximadamente de 200.000.000habitantes com uma taxa anual de cresciemento de 1,5%. Fazer um algoritmo que calcule e escrevao número de anos necessários para que a população do país A ultrapasse ou iguale a população dopaís B, mantidas essas taxas de crescimento.
algoritmo "Crescimento anual"
var
a, b: real
ano: inteiro
inicio
a<- 90000000
b <- 200000000
ano<- 0
enquanto a <= b faca
a<- a * 0.03
b <- b * 0.015
ano<- ano + 1
fimenquanto
escreval("A quantida de anos para A chegar até B é: ",ano)
fimalgoritmo

Um comerciante deseja fazer o levantamento do lucro das mercadorias que ele omercializa.Para isto, mandou digitar cada mercadoria com o nome, preço de compra preço de venda dasmercadorias. Fazer um algoritmo que: • Determine e escreva quantas mercadorias proporcionam: • Lucro menor 10 %; • Lucro entre 10% e 20%; • Lucro maior que 20%. • Determine e escreva o valor total de compra e de venda de todas as mercadorias, assim como olucro total.

76)Um comerciante deseja fazer o levantamento do lucro das mercadorias que ele omercializa.Para isto, mandou digitar cada mercadoria com o nome, preço de compra preço de venda dasmercadorias. Fazer um algoritmo que:
• Determine e escreva quantas mercadorias proporcionam:
• Lucro menor 10 %;
• Lucro entre 10% e 20%;
• Lucro maior que 20%.
• Determine e escreva o valor total de compra e de venda de todas as mercadorias, assim como olucro total.
algoritmo "Levantamento de lucro"
var
nome, x: literal
precompra, prevenda, lucro, menorl, mediol, maiorl, totalc, totalv, lucrog: real

inicio
repita
escreva("Produto: ")
leia(nome)
escreva("Preço de compra: ")
leia(precompra)
escreva("Preço de venda: ")
leia(prevenda)
escreva("Cadastrar outro produto,(s/n)?: ")
leia(x)
escreval("-------------------- x xx ---------------------")
totalc<- totalc + precompra
totalv<- totalv + prevenda
lucro<- prevenda - precompra
lucrog<- lucrog + lucro
se (lucro <precompra * 0.1) entao
menorl<- menorl + 1
senao
se(lucro >= precompra * 0.1) e (lucro <= precompra * 0.2) entao
mediol<- mediol + 1
senao
se(lucro >precompra * 0.2) entao
maiorl<- maiorl + 1
fimse
fimse
fimse
ate x = "n"
escreval("Nº de produtos com 10% de lucro: ",menorl)
escreval("Nº de produtos entre 10% e 20% de lucro: ",mediol)
escreval("Nº de produtos com mais de 20% de lucro: ",maiorl)
escreval("O valor total de compra é: ",totalc)
escreval("O valor total de venda é: ",totalv)
escreval("O Lucro geral é: ",lucrog)
fimalgoritmo

A conversão de graus Farenheit para graus centígrados é obtida por: C ← (F-32)*5/9Fazer um algoritmo que calcule e escreva uma tabela em centígrados em função de grausFarenheit, que variam de 50 a 150 de 2 em 2.

75) A conversão de graus Farenheit para graus centígrados é obtida por: C ← (F-32)*5/9Fazer um algoritmo que calcule e escreva uma tabela em centígrados em função de grausFarenheit, que variam de 50 a 150 de 2 em 2.
algoritmo "De Farenheit para Centígrados"
var
graus: vetor[50..150] de inteiro
c: real
i: inteiro
inicio
para i de 50 ate 150 passo 2 faca
c <- (i - 32) * 5 / 9
escreval(i," F é igual a ",c," C")
fimpara
fimalgoritmo

Tem-se um conjunto de dados contendo a altura e o sexo (masculino, feminino) de 50pessoas. Fazer um algoritmo que calcule e escreva: • A maior e a menor altura do grupo; • A média de altura das mulheres; • O número de homens.

74) Tem-se um conjunto de dados contendo a altura e o sexo (masculino, feminino) de 50pessoas. Fazer um algoritmo que calcule e escreva:
• A maior e a menor altura do grupo;
• A média de altura das mulheres;
• O número de homens.
algoritmo "Conjunto de dados"
var
cont, soma, nhomens, nmulher: inteiro
altura: real
alturaM, alturaH, media, maior, menor: real
sexo: literal
inicio
cont<- 0
nhomens<- 0
nmulher<- 0
escreval("Digite a altura e o sexo de 5 pessoas:")
repita
escreva("Altura: ")
leia(altura)
escreva("Sexo: ")
leia(sexo)
escreval("--------------- x xx --------------")
cont<- cont + 1
se(altura > maior ) entao
maior<- altura
se(altura < menor) entao
menor<- altura
fimse
fimse
se(sexo = "m") entao
nmulher<- nmulher + 1
atecont = 5
fimalgoritmo

Fazer um algoritmo que: • Leia um número indeterminado de linhas contendo cada uma a idade de um indivíduo. • Calcule e escreva a idade média deste grupo de indivíduos.

73) Fazer um algoritmo que:
• Leia um número indeterminado de linhas contendo cada uma a idade de um indivíduo.
• Calcule e escreva a idade média deste grupo de indivíduos.
algoritmo "Idade média"
var
idade, soma, cont: inteiro
media: real
inicio
cont<- -1
escreval("Digite uma relação de idades: ")
repita
leia(idade)
soma<- soma + idade
cont<- cont + 1
ate idade = 0
media<- soma / cont
escreval("A soma das idades é: ",soma)
escreval("A quantidade é: ",cont)
escreval("A média das idades é de: ",media)
fimalgoritmo

Construa um algoritmo que leia 50 valores inteiros e positivos e: · Encontre o maior valor · Encontre o menor valor · Calcule a média dos números lidos

72) Construa um algoritmo que leia 50 valores inteiros e positivos e:
· Encontre o maior valor
· Encontre o menor valor
· Calcule a média dos números lidos
algoritmo "Maior menor e média"
var
valor: vetor[1..50] de inteiro
i, menor, maior, soma: inteiro
media: real
inicio
maior<- 0
menor<- 10000
escreval("Digite 50 números inteiros e positivos: ")
para i de 1 ate 50 faca
leia(i)
se(i > maior) entao
maior<- i
se(i < menor) entao
menor<- i
fimse
fimse
soma<- soma + i
media<- soma / 50
fimpara
escreval("O maior valor é: ",maior)
escreval("O menor valor é: ",menor)
escreval("A média dos valores é: ",media)
fimalgoritmo