38) Elaborar um algoritmo em pseudocodigo que efetue a leitura de um nmero inteiro e

apresentar uma mensagem informando se o nmero par ou mpar.

algoritmo "Par ou mpar"
var
n: inteiro
inicio
escreval("Insira um nmero inteiro: ")
leia(n)
se(n mod 2 = 0) entao
escreval("O nmero: ",n," par")
senao
escreval("O nmero: ",n," impar")
fimse
fimalgoritmo
39) Elaborar um algoritmo em pseudocodigo que efetue a leitura de um valor que esteja
entre a faixa de 1 a 9. Aps a leitura do valor fornecido pelo usurio, o programa dever
indicar uma de duas mensagens: O valor est na faixa permitida, caso o usurio fornea
o valor nesta faixa, ou a mensagem O valor est fora da faixa permitida, caso o usurio
fornea valores menores que 1 ou maiores que 9.
algoritmo "Faixa Permitida"
var
n :real
inicio
escreval("Digite um valor: ")
leia(n)
se(n >= 1) e (n <= 9) entao
escreval("O valor est na faixa permitida")
senao
escreval("O valor no est na faixa permitida")
fimse
fimalgoritmo
40) Elaborar um algoritmo em pseudocodigo que efetue a leitura do nome e do sexo de
uma pessoa, apresentando como sada uma das seguintes mensagens: Ilmo Sr., para o
sexo informado como masculino, ou a mensagem Ilma Sra., para o sexo informado como
feminino. Apresente na seqncia da mensagem impressa o nome da pessoa.
algoritmo "Sexo da pessoa"
var
nome, sexo :literal
inicio

escreval("Digite o seu nome: ")

leia(nome)
escreval("Digite o seu sexo: ")
leia(sexo)
se(sexo = "Masculino") entao
escreval("Ilmo Sr. ",nome)
senao
se(sexo = "Feminino") entao
escreval("Ilmo Sra. ",nome)
senao
escreval("Digite um sexo vlido")
fimse
fimse
fimalgoritmo
41) Elaborar um algoritmo em pseudocodigo que leia um nmero. Se positivo armazene-o
em uma varivel chamada A, se for negativo, em uma varivel chamada B. No final
mostrar o resultado das duas variveis.
algoritmo "Armazenamento"
var
n,a,b :real
inicio
escreval("Digite um nmero: ")
leia(n)
se(n >= 0) entao
a<- n
escreval("O nmero :",a," varivel de A")
senao
b <- n
escreval("O nmero :",b," varivel de B")
fimse
fimalgoritmo
42) Tendo como dados de entrada a altura e o sexo de uma pessoa, construa um algoritmo
empseudocodigo que calcule peso ideal, utilizando as seguintes frumulas:Para homens:
(72.7*h) 58 Para mulheres: (62.1*h) 44.7 Onde h equivale a altura da pessoa
algoritmo "Peso Ideal"
var
a, p :real
s :literal
inicio

escreval("Digite o seu sexo F ou M: ")

leia(s)
escreval("Digite a sua altura: ")
leia(a)
se(s = "F") entao
p <- (62.1 * a) - 44.7
escreval("Seu peso ideal : ",p)
senao
se(s = "M") entao
p <- (72.7 * a) - 58
escreval("Seu peso ideal : ",p)
senao
escreval("Digite um sexo vlido")
fimse
fimse
fimalgoritmo
43) Fazer um algoritmo em pseudocodigo para ler quatro valores referentes a quatro notas
escolares de um aluno e imprimir uma mensagem dizendo que o aluno foi aprovado, se o
valor da mdia escolar for maior ou igual a 5. Se o aluno no foi aprovado, indicar uma
mensagem informando esta condio. Apresentar junto com uma das mensagens o valor
da mdia do aluno para qualquer condio.
algoritmo "Situao com mdia"
var
n1, n2, n3, n4, media :real
inicio
escreval("Digite a 1 nota :")
leia(n1)
escreval("Digite a 2 nota :")
leia(n2)
escreval("Digite a 3 nota :")
leia(n3)
escreval("Digite a 4 nota :")
leia(n4)
media<- (n1 + n2 + n3 + n4) / 4
se(media >= 5) entao
escreval("O aluno foi aprovado com mdia: ",media)
senao
escreval("O aluno no foi aprovado com mdia: ",media)
fimse
fimalgoritmo

44) Fazer um algoritmo em pseudocodigo ler quatro valores referentes a quatro notas
escolares de um aluno e imprimir uma mensagem dizendo que o aluno foi aprovado, se o
valor da mdia escolar for maior ou igual a 7.0. Se o valor da mdia for menor que 7.0,
solicitar a nota de exame, somar com o valor da mdia e obter nova mdia. Se a nova
mdia for maior ou igual a 5, apresentar uma mensagem dizendo que o aluno foi aprovado
em exame. Se o aluno no foi aprovado, indicar uma mensagem informando esta
condio. Apresentar junto com as mensagenso valor da mdia do aluno, para qualquer
condio.
algoritmo "Situao do Aluno"
var
n1, n2, n3, n4, media, nrecup, mrecup :real
inicio
escreval ("Digite a primeira nota: ")
leia (n1)
escreval ("Digite a segunda nota: ")
leia (n2)
escreval ("Digite a terceira nota: ")
leia (n3)
escreval ("Digite a quarta nota: ")
leia (n4)
media<-(n1+n2+n3+n4)/4
se(media >=7)entao
escreval ("O aluno est aprovado com mdia: ",media)
senao
escreval ("O aluno est de recuperao com mdia: ",media)
escreval ("Digite a nota de recuperao: ")
leia(nrecup)
mrecup<-(media + nrecup)/2
se(mrecup>=5)entao
escreval("O aluno foi aprovado na recuperao com media: ",mrecup)
senao
escreval("O aluno no foi aprovado na recuperao com mdia: ",mrecup)
fimse
fimse
fimalgoritmo
45) Fazer um algoritmo em pseudocodigo para ler o ano de nascimento de uma pessoa,
calcular emostrar sua idade e, tambm, verificar e mostrar se ela j tem idade para votar
(16 anos ou mais)e para conseguir a Carteira de Habilitao (18 anos ou mais).
algoritmo "Maior Idade"

var
ano, idade: inteiro
inicio
escreval("digite seu ano de nascimento: ")
leia(ano)
idade<- 2013 - ano
escreval("Sua idade : ",idade)
se(idade >= 18) entao
escreval("Ja tem idade para votar")
escreval("J tem idade para ter habilitao")
senao
se(idade >= 16 ) entao
escreval("J tem idade npara votar")
senao
escreval("No pode votar e nem ter habilitao")
fimse
fimse
fimalgoritmo
46) Fazer um algoritmo em pseudocodigo ler o cdigo de um determinado produto e
mostrar a suaclassificao. Utilize a seguinte tabela como referncia:
algoritmo "pesquisa por codigo"
var
codigo, outro :inteiro
cla: literal
inicio
escreva("Digite o cdigo da pesquisa: ")
leia(codigo)
escolhacodigo
caso 1
escreval("Alimento no perecvel")
caso 2, 3, 4
escreval("Alimento perecvel")
caso 5, 6
escreval("Vesturio")
caso 7
escreval("Higiene pessoal")
caso 8, 9, 10, 11, 12, 13, 14, 15
escreval("Limpeza e ultensliosdomesticos")
outrocaso
leia(outro)

escreva ("Invlido")
fimescolha
fimalgoritmo
47) Escrever um algoritmo para ler trs valores inteiros e escrever na tela o maior e o
menordeles. Considere que todos os valores so diferentes.
algoritmo "Maior e Menor Valor"
var
v1, v2, v3: inteiro
inicio
escreval("Digite o primeiro valor: ")
leia(v1)
escreval("Digite o segundo valor: ")
leia(v2)
escreval("Digite o terceiro valor: ")
leia(v3)
se(v1 > v2) e (v1 > v3) e (v2 > v3) entao
escreval("O maior valor : ",v1," e o menor : ",v3)
senao
se(v1 > v2) e (v1 > v3) e (v3 > v2) entao
escreval("O maior valor : ",v1," e o menor : ",v2)
senao
se(v2 > v1) e (v2 > v3) e (v1 > v3) entao
escreval("O maior valor : ",v2," e o menor : ",v3)
senao
se(v2 > v1) e (v2 > v3) e (v3 > v1) entao
escreval("O maior valor : ",v2," e o menor : ",v1)
senao
se(v3 > v1) e (v3 > v2) e (v1 > v2) entao
escreval("O maior valor : ",v3," e o menor : ",v2)
senao
se(v3 > v1) e (v3 > v2) e (v2 > v1) entao
escreval("O maior valor : ",v3," e o menor : ",v1)
fimse
fimse
fimse
fimse
fimse
fimse
fimalgoritmo

48) Escrever um algoritmo para ler cinco valores inteiros, calcular a sua mdia, e escrever
na telaos nmeros que so superiores mdia.
algoritmo "Mdia e comparao"
var
notas: vetor [1..5] de inteiro
i, maior_media, soma: inteiro
media: real
inicio
escreval("Digite as 5 notas: ")
para i de 1 ate 5 faca
leia(notas[i])
soma<- soma + notas[i]
media<- soma / 5
fimpara
escreval("A Soma das notas : ",soma)
escreval("A mdia das notas : ",media)
escreval("Os valores maiores que a mdia so: ")
para i de 1 ate 5 faca
se(notas[i] > media) entao
maior_media<- notas[i]
escreval(maior_media)
fimse
fimpara
fimalgoritmo
49)Escrever um algoritmo para ler a quantidade de horas/aula de dois professores e o
valor porhora recebido por cada um. Mostrar na tela qual dos professores tem salrio total
maior.
algoritmo "Mdia e comparao"
var
h_a, valor: vetor [1..2] de real
prof: vetor [1..2] de literal
i: inteiro
salario, maior: real
inicio
maior<- 0
salario<- 0
para i de 1 ate 2 faca
escreval("Digite o nome do professor ",i)
leia(prof[i])

escreval("Digite a quantidade de Hora/Aula do professor ",i)

leia(h_a[i])
escreval("Digite o valor da Hora/Aula do professor ",i)
leia(valor[i])
escreval("----------- x ------- x ------------- x ----------")
fimpara
para i de 1 ate 2 faca
salario<- h_a[i] * valor[i]
escreval("O salrio do professor ",i," : ",salario)
se( salario > maior) entao
maior<- salario
fimse
fimpara
escreval("O maior salrio o do professor que ganha: ",maior)
fimalgoritmo
50) Escreva um algoritmo que l trs valores para os lados de um tringulo. O algoritmo
deveverificar se o tringulo equiltero (todos lados iguais), issceles (dois lados iguais)
ou scaleno(todos lados diferentes).
algoritmo "Tipo de triangulo"
var
l1, l2, l3: real
inicio
escreval("Digite o lado 1 do tringulo: ")
leia(l1)
escreval("Digite o lado 1 do tringulo: ")
leia(l2)
escreval("Digite o lado 1 do tringulo: ")
leia(l3)
se(l1 = l2) e (l2 = l3) entao
escreval("O tringulo equiltaro")
senao
se(l1 <> l2) e (l1 <> l3) e (l2 <> l3) entao
escreval("O tringulo escaleno")
senao
se(l1 = l2) ou (l1 = l3) ou (l2 = l3) entao
escreval("O tringulo issceles")
fimse
fimse
fimse
fimalgoritmo

51) Escrever um algoritmo que leia valores inteiros em duas variveis distintas.
Se o resto da diviso da primeira pela segunda for 1 mostre a soma dessas variveis
mais oresto da diviso;
Se for 2 escreva se o primeiro e o segundo valor so pares ou mpares;
Se for igual a 3 multiplique a soma dos valores lidos pelo primeiro;
Se for igual a 4 divida a soma dos nmeros lidos pelo segundo, se este for diferente de
zero.
Em qualquer outra situao mostre o quadrado dos nmeros lidos.
algoritmo "Dois Valores"
var
v1, v2, soma, mult: inteiro
divisao, q1, q2: real
inicio
escreval("Digite o primeiro nmero: ")
leia(v1)
escreval("Digite o segundo nmero: ")
leia(v2)
se(v1 mod v2 = 1) entao
soma<- v1 + v2 + 1
escreval("A soma de v1 e v2 mais o resto : ",soma)
senao
se(v1 mod v2 = 2) entao
se(v1 mod 2 = 0) e (v2 mod 2 = 0) entao
escreval("v1 e v2 so par")
senao
se(v1 mod 2 <> 0) e (v2 mod 2 <> 0) entao
escreval("v1 e v2 so impar")
fimse
fimse
senao
se(v1 mod v2 = 3) entao
mult<- (v1 + v2) * v1
escreval("A soma de v1 e v2 multiplicado por v1 : ",mult)
senao
se(v2 = 0) entao
escreval("No haver diviso por zero")
senao
se(v1 mod v2 = 4) entao
divisao<- (v1 + v2) / v2
escreval("A soma de v1 e v2 dividido por v2 : ",divisao)

senao
q1<- v1^2
q2<- v2^2
escreval("O quadrado do nmero 1 : ",q1)
escreval("O quadrado do nmero 2 : ",q2)
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
62) Escrever um algoritmo para ler dois valores e uma das seguintes operaes a
seremexecutadas (codificadas da seguinte forma: 1 Adio, 2 Subtrao, 3
Multiplicao e 4 Diviso). Calcular e escrever o resultado dessa operao sobre os dois
valores lidos.
algoritmo "Codificao"
var
v1, v2, cod, adicao, mult: inteiro
divisao, subtracao: real
inicio
escreval("Digite o primeiro valor: ")
leia(v1)
escreval("Digite o segundo valor: ")
leia(v2)
escreval("-------------- x ----------- x ------------- x ---------------------")
repita
escreval("Digite o cdigo: ")
leia(cod)
escolhacod
caso 1
adicao<- v1 + v2
escreval("A soma : ",adicao)
caso 2
subtracao<- v1 - v2
escreval("A subtrao : ",subtracao)
caso 3
mult<- v1 * v2
escreval("A multiplicao : ",mult)
caso 4
divisao<- v1 / v2

escreval("A diviso : ",divisao)

outrocaso
escreval("Digite um cdigo vlido")
fimescolha
ate (cod>= 1) e (cod<= 4)
fimalgoritmo
63) Escreva um algoritmo que leia um nmero inteiro. Se o nmero lido for positivo,
escreva uma mensagem indicando se ele par ou mpar. Se o nmero for negativo,
escreva a seguinte mensagem Este nmero no positivo.
algoritmo "Positivo ou Negativo"
var
n: inteiro
inicio
escreval("Digite um nmero inteiro: ")
repita
leia(n)
se( n = 0 ) entao
escreval("Digite um nmero diferente de zero")
senao
se( n > 0 ) e ( n mod 2 = 0 ) entao
escreval("O nmero ",n," positivo e par")
senao
se( n > 0 ) e ( n mod 2 <> 0 ) entao
escreval("O nmero ",n," positivo e impar")
senao
escreval("O nmero no positivo")
fimse
fimse
fimse
ate n > 0
fimalgoritmo
64) Zezinho comprou um microcomputador para controlar o rendimento dirio de seu
trabalhocomo pescador. Toda vez que ele traz um peso de peixes maior que o
estabelecido peloregulamento de pesca do estado de Santa Catarina (50 quilos) deve
pagar um multa de R$ 4,00por quilo excedente. Zezinho precisa que voc faa um
algoritmo que leia a o peso de peixes everifique se h excesso. Se houver, o excesso e o
valor da multa que Zezinho dever pagar. Casocontrrio mostrar uma mensagem que ele
no deve pagar nada.
algoritmo "Controle de peso"

var
multa, peso, pesopermitido, excesso : real
inicio
escreval("Digite o peso permtido: ")
leia(pesopermitido)
escreval("Digite o peso da pesca")
leia(peso)
se(pesopermitido< peso) entao
excesso<- peso - pesopermitido
multa<- excesso * 4
escreval("Houve excesso de: ",excesso," Kg, com multa de: ",multa)
senao
escreval("O pescador no vai pagar nada")
fimse
fimalgoritmo
65) Faa um algoritmo que receba o valor do salrio de uma pessoa e o valor de
umfinanciamento pretendido. Caso o financiamento seja menor ou igual a 5 vezes o salrio
dapessoa, o algoritmo dever escrever Financiamento Concedido"; seno, ele dever
escrever"Financiamento Negado". Independente de conceder ou no o financiamento, o
algoritmoescrever depois a frase "Obrigado por nos consultar."
algoritmo "Financiamento"
var
sala, financ: real
inicio
escreval("Digite o valor do salrio: ")
leia(sala)
escreval("Digite o valor do financiamento pretendido: ")
leia(financ)
se(financ<= 5 * sala) entao
escreval("Financiamento concedido, obrigado por nos consultar")
senao
escreval("Financiamento negado, obrigadopor nos consultar")
fimse
fimalgoritmo
66) A Secretaria de Meio Ambiente que controla o ndice de poluio mantm 3 grupos
deindstrias que so altamente poluentes do meio ambiente. O ndice de poluio
aceitvel varia de0 (zero) at 0,25. Se o ndice sobe para 0,3 as indstrias do 1o grupo so
intimadas asuspenderem suas atividades, se o ndice crescer para 0,4 as industrias do 1o

e 2o grupo sointimadas a suspenderem suas atividades, se o ndice atingir 0,5 todos os

grupos devem sernotificados a paralisarem suas atividades. Faa um algoritmo que leia o
ndice de poluio medidoe emita a notificao adequada aos diferentes grupos de
empresas.
algoritmo "Controle Ambiental"
var
indice: real
inicio
escreval("Digite o indice de poluio: ")
leia(indice)
se(indice>= 0.5) entao
escreval("Todos os grupos devem suspender suas atividades")
senao
se(indice>= 0.4) entao
escreval("1 e 2 grupos devem suspender suas atividades")
senao
se(indice>= 0.3) entao
escreval("Apenas o 1 grupo deve suspender suas atividades")
senao
escreval("Todas os grupos podem manter as atividades")
fimse
fimse
fimse
fimalgoritmo
67) Faa um programa que l 4 valores X, A, B e C onde X um nmero inteiro e positivo
e A, B,e C so quaisquer valores reais. O programa deve escrever os valores lidos e:
se X = 1, escrever os trs valores A, B e C em ordem crescente;
se X = 2, escrever os trs valores A, B e C em ordem decrescente;
se X = 3, escrever os trs valores A, B, e C de forma que o maior valor fique entre os
outrosdois;
se X no for um dos trs valores acima, dar uma mensagem indicando isso.
algoritmo "Manipulando valores"
var
x: inteiro
a, b, c, menor, meio, maior: real
inicio
escreval("Digite o valor de A: ")
leia(a)
escreval("Digite o valor de b: ")

leia(
escreval("Digite o valor de C: ")
leia
se(a >

e (b > c) entao

maior<- a
meio<- b
menor<- c
senao
se(a > c) e (c >

entao

maior<- a
meio<- c
menor<- b
senao
se(b > a) e (a > c) entao
maior<- b
meio<- a
menor<- c
senao
se(b > c) e (c > a) entao
maior<- b
meio<- c
menor<- a
senao
se(c > a) e (a >

entao

maior<- c
meio<- a
menor<- b
senao
se(c >

e (b > a) entao

maior<- c
meio<- b
menor<- a
fimse
fimse
fimse
fimse
fimse
fimse
escreval("Digite o valor de X: ")
leia(x)
escolha x

caso 1
escreval(menor, meio, maior)
caso 2
escreval(maior, meio, menor)
caso 3
escreval(menor, maior, meio)
outrocaso
escreval("No nem 1, 2 ou 3")
fimescolha
fimalgoritmo
68) Elabore um algoritmo que informe se um dado ano ou no bissexto. Obs: um ano
bissexto se ele for divisvel por 400 ou se ele for divisvel por 4 e no por 100.
algoritmo "Ano bissexto"
var
ano: inteiro
inicio
escreval("Digite um ano: ")
leia(ano)
se((ano mod 4 = 0) e (ano mod 100 <> 0)) ou (ano mod 400 = 0) entao
escreval("O ano: ",ano," bissexto")
senao
escreval("O ano: ",ano," no bissexto")
fimse
fimalgoritmo
69) Faa um algoritmo que determine o maior entre N nmeros. A condio de parada a
entradade um valor 0, ou seja, o algoritmo deve processar o maior at que a entrada seja
igual a 0(ZERO).
algoritmo "Maior nmero"
var
n, maior: real
inicio
maior<- 0
repita
escreval("Digite um nmero positivo maior que zero: ")
leia(n)
se(n > maior) entao
maior<- n
fimse

ate n = 0
escreval("O maior nmero : ",maior)
fimalgoritmo
70) Faa um algoritmo que conte de 1 a 100 e a cada mltiplo de 10 emita uma
mensagem:Mltiplo de 10.
algoritmo "Multiplos de 10"
var
n: vetor[1..100] de inteiro
i: inteiro
inicio
escreval("Os multiplos de 10 de 1 a 100 so:")
para i de 1 ate 100 faca
se(i mod 10 = 0) entao
escreval(i)
fimse
fimpara
fimalgoritmo
71) Elabore um algoritmo que gere e escreve os nmeros mpares entre nmeros entre
100 e 200.
algoritmo "Numeros Impares de 100 a 200"
var
n: vetor[100..200] de inteiro
i, impar: inteiro
inicio
escreval("Os nmeros impares de 100 a 200 so:")
para i de 100 ate 200 faca
se(i mod 2 <> 0) entao
escreval(i)
fimse
fimpara
fimalgoritmo
72) Construa um algoritmo que leia 50 valores inteiros e positivos e:
Encontre o maior valor
Encontre o menor valor
Calcule a mdia dos nmeros lidos
algoritmo "Maior menor e mdia"
var

valor: vetor[1..50] de inteiro

i, menor, maior, soma: inteiro
media: real
inicio
maior<- 0
menor<- 10000
escreval("Digite 50 nmeros 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 mdia dos valores : ",media)
fimalgoritmo
73) Fazer um algoritmo que:
Leia um nmero indeterminado de linhas contendo cada uma a idade de um indivduo.
Calcule e escreva a idade mdia deste grupo de indivduos.
algoritmo "Idade mdia"
var
idade, soma, cont: inteiro
media: real
inicio
cont<- -1
escreval("Digite uma relao 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 mdia das idades de: ",media)

fimalgoritmo
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 mdia de altura das mulheres;
O nmero 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
75) A converso de graus Farenheit para graus centgrados obtida por: C (F32)*5/9Fazer um algoritmo que calcule e escreva uma tabela em centgrados em funo de
grausFarenheit, que variam de 50 a 150 de 2 em 2.
algoritmo "De Farenheit para Centgrados"

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
76)Um comerciante deseja fazer o levantamento do lucro das mercadorias que ele
omercializa.Para isto, mandou digitar cada mercadoria com o nome, preo de compra
preo 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("Preo de compra: ")
leia(precompra)
escreva("Preo 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
77) Supondo que a populao de um pas A seja da ordem de 90.000.000 habitantes com
uma taxaanual de crescimento de 3% e que a populao de um pas B seja
aproximadamente de 200.000.000habitantes com uma taxa anual de cresciemento de
1,5%. Fazer um algoritmo que calcule e escrevao nmero de anos necessrios para que a
populao do pas A ultrapasse ou iguale a populao dopas 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

78) Refaa o exerccio 77, lendo as taxas e as populaes.

algoritmo "Crescimento anual"
var
a, b, taxaa, taxab: real
ano: inteiro
inicio
ano<- 0
escreval("Digite a populao do pas A: ")
leia(a)
escreval("Digite a taxa do pas A: ")
leia(taxaa)
escreval("-------------- x xx---------------")
escreval("Digite a populao do pas B: ")
leia(
escreval("Digite a taxa do pas 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
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 necessrio
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
80) Deseja-se fazer um levantamento a respeito da ausncia de alunos primeira prova de
Lgicade Programao para cada uma das 10 turmas existentes. Para cada turma
fornecido um conjuntode valores, sendo que os dois primeiros valores do conjunto
correspondem identificao da turma (A, B, C...) e ao nmero de alunos matriculados.
Os demais valores deste conjunto contm onmero de matrcula 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 ausncia e escreva a identificao da turma
e apercentagem calculada.
Determine e escreva quantas turmas tiveram percentagem de ausncia superior a 5%.
81) Um certa empresa fez uma pesquisa para saber se as pessoas gostaram ou no de
um novoproduto lanado no mercado. Para isso, forneceu-se o sexo do entrevistado e a
sua resposta (sim ouno). Sabendo-se que foram entrevistadas 2.000 pessoas, fazer um
algoritmo que calcule e escreva:
O nmero de pessoas que responderam sim;
O nmero de pessoas que responderam no;
A percentagem de pessoas do sexo feminino que responderam sim;
A percentagem de pessoas do sexo masculino que responderam no;
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 no : ",contn)
escreval("A percentagem de sim feminino : ",pf)
escreval("A percentagem de no masculino : ",pm)
fimalgoritmo
82) Foi feita uma pesquisa de audincia de canal de TV em vrias casas de uma certa
cidade, numdeterminado dia. Para cada casa visitada, fornecido o nmero do canal (4, 5,
7, 12) e o nmero depessoas que o estavam assistindo naquela casa. Se a televiso
estivesse desligada, nada era anotado,ou seja, esta casa no entrava na pesquisa. Fazer
um algoritmo que:
Leia nmero de casas pesquisadas;
Calcule a percentagem de audincia para cada emissora;
Escreva o nmero 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("Televiso desligada (s/n)?: ")
leia(tv_l)
enquantotv_l = "n" faca
cont<- cont + 1

escreva("Qual canal esto assistindo? ")

leia(ncanal)
escreva("Quantas pessoas esto 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 nmero de casas pesquisadas : ",cont)
escreval("A audincia da emissora do canal 4 : ",c4)
escreval("A audincia da emissora do canal 5 : ",c5)
escreval("A audincia da emissora do canal 7 : ",c7)
escreval("A audincia 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
83) Uma Universidade deseja fazer um levantamento a respeito de seu concurso
vestibular. Paracada curso fornecido o seguinte conjunto de valores: Um cdigo do curso;

 Nmero de vagas;
Nmero de candidatos do sexo masculino;
Nmero de candidatos do sexo feminino.
Fazer um programa que:
Calcule e escreva, para cada curso, o nmero de candidatos por vaga e a percentagem
decandidatos do sexo feminino (escreva tambm o cdigo correspondente do curso);
Determine o maior nmero de candidatos por vaga e escreva esse nmero
juntamentecom o cdigo do curso correspondente (supor que no 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 cdigo 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

84) O sistema de avaliao de uma determinada disciplina obedece aos seguintes critrios:
Durante o semestre so dadas trs notas;
A nota final obtida pela mdia aritmtica das notas dadas durante o curso;
considerado aprovado o aluno que tiver a nota final superior ou igual a 6.0 e que
tivercomparecido a um mnimo de 75% das aulas. Fazer um algoritmo que:
1. leia um conjunto de dados contendo o nmero de matrcula, as trs notas e a frequncia
(nmerode aulas frequentadas) para 100 alunos.
2. Calcule:
A nota final de cada aluno;
A maior e a menor nota da turma;
A nota mdia da turma;
O total de alunos reprovados;
A percentagem de alunos reprovados por frequncia insuficiente.
3. Escreva
Para cada aluno, o nmero de matrcula, a frequncia, a nota final e ocdigo (aprovado
ou reprovado);
Todos os valores que foram calculados no item 2;