LISTA 3 RESPOSTAS

Prévia do material em texto

UNINORTE Laureate 
Disciplina: Algoritmos e Programação 
Prof.: M.Sc. Lennon C. Chaves 
 Aluno: Marcos Paulo de Souza Bastos 
 Turma: IFN01S1 
 
3a Lista de Exercícios de Algoritmos e Programação Curso: 
Sistemas de Informação e Engenharia da Computação 
Assunto: Estrutura de Controle Sequenciais 
 
 
 
1. Calcular o número de dias existentes entre dois anos digitados pelo usuário. Exemplo de 
formato: 2002 (AAAA). 
Algoritmo "Questão1" 
Var ano1,ano2,dias :inteiro 
 
Inicio 
escreva("Digite o primeiro ano: ") 
leia(ano1) 
escreva("Digite o segundo ano: ") 
leia(ano2) 
dias<-(ano1-ano2)*365 
escreva("O Número de dias entre os anos digitados são: ",dias) 
 
Fimalgoritmo 
 
 
2. Calcular o valor pago da conta de água dos últimos três meses e Calcular a sua conta do 
próximo mês, sabendo-se que o preço por m3 consumido de água vai passar de R$ 2,50 para R$ 
3,50. 
Algoritmo "Questão2" 
Var valor1,valor2,valor3,valor4,total1,total2 :real 
 
 
Inicio 
 
escreva("Digite quantos m³ de água você consumiu no primeiro mês:") 
leia(valor1) 
 
escreva("Digite quantos m³ de água você consumiu no segundo mês:") 
leia(valor2) 
 
escreva("Digite quantos m³ de água você consumiu no terceiro mês:") 
leia(valor3) 
 
total1<-(valor1+valor2+valor3)*2.50 
 
escreva("O valor pago nos últimos três meses com o valor do m³ de água a 2,50 
é:",total1) 
 
escreva(" Digite quantos m³ de água você consumiu no terceiro mês:") 
leia(valor4) 
total2<-valor4*3.50 
escreva("O valor pago nesse mês com o valor do m³ de água a 3,50 é:",total2) 
 
Fimalgoritmo 
 
3. Calcular e mostrar o tempo em anos, meses, dias, horas, minutos e segundos de um ano 
digitado pelo usuário em relação ao ano atual. Dado de entrada: Ano de nascimento. 
Exemplo de formato: 2002 (AAAA). 
 
Algoritmo "Questão3" 
Var anod,anox,anos,meses,dias,horas,minutos,segundos :real 
 
 
 
Inicio 
 
escreva("Digite o ano atual: ") 
leia(anod) 
escreva("Digte o ano do seu nascimento: ") 
leia(anox) 
anos<-anod-anox 
meses<-anos*12 
dias<-meses*31 
horas<-dias*24 
minutos<-horas*60 
segundos<-minutos*60 
 
escreval("O número de anos é: ",anos) 
escreval("O número de meses é: ",meses) 
escreval("O número de dias é: ",dias) 
escreval("O número de horas é: ",horas) 
escreval("O número de minutos é: ",minutos) 
escreval("O número de segundos é: ",segundos) 
Fimalgoritmo 
 
 
 
 
 
4. Um automóvel tem um consumo médio de 1 litro de gasolina para cada 16 km roda- dos. 
Dados: distância percorrida. Calcule a quantidade de gasolina consumida. 
 
Algoritmo "Questão4" 
Var Distancia,km :real 
Inicio 
escreva("Digite a distância percorrida: ") 
leia(distancia) 
km<-distancia/16 
escreva("A quantidade de gasolina consumida é: ",km) 
Fimalgoritmo 
 
5. Calcular o custo de um bolo de aniversário, sabendo-se que o preço por quilo de bolo é de R$ 
16,00. Dado: Peso total do bolo. 
Algoritmo "Questão5" 
Var peso,preco :real 
 
Inicio 
 
escreva("Digite o peso do bolo: ") 
leia(peso) 
 
preco<-peso*16 
 
escreva("O preço do bolo é: ",preco) 
 Fimalgoritmo 
 
 
 
 
6. Dado: Nome, endereço e telefone. Construa um algoritmo para ler os dados digitados pelo 
usuário e mostre-os no visualG. 
Algoritmo "Questão6" 
Var nome,endereco,telefone :caractere 
 
Inicio 
 
escreva("Digite o seu nome: ") 
leia(nome) 
escreva("Digite o seu endereço: ") 
leia(endereco) 
escreva("Digite o seu telefone: ") 
leia(telefone) 
escreva("o seu nome é:",nome) 
escreva("o seu endereço é:",endereco) 
escreva(telefone,"o seu telefone é:",telefone) 
Fimalgoritmo 
 
 
 
 
7. Construa um algoritmo que calcule a média ponderada entre 5 números quaisquer, sendo 
que os pesos a serem aplicados são 1, 2, 3, 4 e 5 respectivamente. 
 
Algoritmo "Questão7" 
Var n1,n2,n3,n4,n5,media1,media2 :real 
 
Inicio 
 
escreva("Digite o primeira nota: ") 
leia(n1) 
escreva("Digite a segunda nota: ") 
leia(n2) 
escreva("Digite a terceira nota: ") 
leia(n3) 
escreva("Digite a quarta nota: ") 
leia(n4) 
escreva("Digite a quinta nota nota: ") 
leia(n5) 
 
 
media1<-n1*1+n2*2+n3*3+n4*4+n5*5 
media2<-media1/15 
 
escreva("A média ponderada é: ",media2) 
Fimalgoritmo 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
8. Prepare um algoritmo capaz de inverter um número, de 3 dígitos, fornecido, ou seja, 
apresentar primeiro a unidade e, depois, a dezena e a centena. 
 
Algoritmo "Questão8" 
Var aux,dezena,centena,unidade,numero :inteiro 
 
Inicio 
 
escreval("Digite um numéro: ") 
leia(numero) 
 
aux<-numero 
unidade<-aux%10 
aux<-aux\10 
dezena<-aux%10 
centena<-aux\10 
 
escreval("o numéro digitado é: ",numero) 
escreval("A unidade do número digitado é: ",unidade) 
escreval("A dezena do número digitado é: ",dezena) 
escreval("A centena do número digitado é: ",centena) 
 
Fimalgoritmo
 
 
 
 
9. Ao completar o tanque de combustível de um automóvel, faça um algoritmo que calcule 
o consumo efetuado, assim como a autonomia que o carro ainda teria antes do 
abastecimento. Considere que o veículo sempre seja abastecido até encher o tanque e que 
são fornecidas apenas a capacidade do tanque, a quantidade de litros abastecidos e a 
quilometragem percorrida desde o último abastecimento. 
Algoritmo "Questão9" 
var tanque,litrosa,dist,ce,at,gc :real 
Inicio 
escreval("Digite a capacidade do tanque de combustível: ") 
leia(tanque) 
escreval("Digite a quantidade de litros abastecidos: ") 
leia(litrosa) 
se tanque<litrosa entao 
escreval("A QUANTIDADE DE LITROS ABASTECIDOS É MAIOR DO QUE O 
TANQUE PODE SUPORTAR") 
fimalgoritmo 
fimse 
escreval("Digite a distância percorrida: ") 
leia(dist) 
gc<-tanque-litrosa 
ce<-gc 
at<-gc/dist 
escreval("O consumo efetuado pelo carro é: ",ce," Litros") 
escreval("O carro ainta teria uma autonomia de ",at," KM/H") 
Fimalgoritmo 
 
10. Um dado comerciante cobra 10% de acréscimo para cada prestação em atraso depois dá um 
desconto de 10% sobre esse valor. Faça um algoritmo que solicite o valor da prestação em 
atraso e apresente o valor final a pagar, assim como o prejuízo do comerciante na operação. 
 
Algoritmo "Questão10" 
var valorat,v,valorf :real 
 
Inicio 
escreval("Digite o valor da parcela em atraso: ") 
leia(valorat) 
v<-valorat*10/100 
escreval("O valor final a ser pago é: ",valorat) 
escreval("O prejuízo do comerciante é de: ",v) 
Fimalgoritmo 
 
 
 
 
 
 
 
 
 
 
 
11. Ler um número inteiro e imprimir seu sucessor e seu antecessor. 
 
ii 
Algoritmo "Questão11" 
 
var numero,sucessor,antecessor :inteiro 
 
Inicio 
escreval("Digite um número: ") 
leia(numero) 
sucessor<-numero+1 
antecessor<-numero-1 
 
escreval("O sucessor de ",numero," é",sucessor) 
escreval("O antecessor de ", numero," é",antecessor) 
 
Fimalgoritmo 
 
12. Ler nome, endereço, telefone e email e imprimi-los. 
 
Algoritmo "Questão12" 
 
var nome,endereco,email,telefone:caractere 
 
Inicio 
 
escreval("Digite o seu nome: ") 
leia(nome) 
 
escreval("Digite o seu endereço: ") 
leia(endereco) 
 
escreval("Digite o seu e-mail: ") 
leia(email) 
 
escreval("Digite o seu telefone: ") 
leia(telefone) 
 
escreval("O seu nome é: ",nome) 
escreval("O seu endereço é: ",endereco) 
escreval("O seu e-mail é: ",email) 
escreval("O seu telefone é: ",telefone) 
 
Fimalgoritmo 
 
13. Ler dois inteiros e imprimir a soma. Antes do resultado, deverá aparecer a mensagem: SOMA:. 
 
Algoritmo "Questão13" 
 
var soma,numero1,numero2:inteiro 
Inicio 
 
escreva("Digite um número para a soma: ") 
leia(numero1) 
escreva("Dite um segundo número para a soma: ") 
leia(numero2) 
 
soma<-numero1+numero2 
ii 
 
escreval("SOMA: ") 
escreva(soma) 
 
Fimalgoritmo 
 
 
 
 
 
 
 
 
14. Ler dois inteiros e imprimir o produto. 
 
Algoritmo "Questão14" 
 
var mult,numero1,numero2 :inteiro 
Inicio 
 
escreva("Digite um número: ") 
leia(numero1) 
escreva("Dite um segundo número: ") 
leia(numero2) 
mult<-numero1*numero2 
escreval("o produto entre os dois números é: ",mult) 
 
Fimalgoritmo 
 
15. Ler um real e imprimir a terça parte deste número. 
 
Algoritmo "Questão15" 
 
var num1,divi :real 
Inicio 
escreva("Digite um número: ") 
leia(num1) 
divi<-num1/3 
 
escreval("A terça parte desse número é: ",divi) 
 
Fimalgoritmo 
 
16. Entrar com dois números e imprimir a média aritmética com a mensagem “média” antes 
do resultado. 
Algoritmo "Questão16" 
 
var num1,num2,med :real 
Inicio 
 
escreva("Digite o primeiro número: ") 
leia(num1) 
escreva("Digite o segundo número: ") 
leia(num2) 
med<-(num1+num2)/2 
escreval("MÉDIA") 
escreval(med) 
ii 
 
Fimalgoritmo 
 
17. Entrar com quatro números e imprimir a média ponderada, sabendo-se que os pesos são 
respectivamente: 1, 2, 3 e 4. 
Algoritmo "Questão17" 
 
var num1,num2,num3,num4,med,med2 :real 
Inicio 
 
escreva("Digite o primeiro número: ") 
leia(num1) 
escreva("Digite o segundo número: ") 
leia(num2) 
escreva("Digite o terceiro número: ") 
leia(num3) 
escreva("Digite o quarto número: ") 
leia(num4) 
 
med<-(num1*1+num2*2+num3*3+num4*4) 
med2<-med/10 
 
escreval("A média ponderada é: ",med2) 
 
Fimalgoritmo 
 
18. Entrar com um ângulo e imprimir: seno, co-seno, tangente, secante, co- secante e co-
tangente deste ângulo. Considere que existem comandos cálculo do seno (sen(x)), co-seno 
(cos(x)) e tangente (tan(x)). 
Algoritmo "Questão18" 
var angulo,seno,cosseno,tangente,secante,cosecante,cotangente :real 
 
Inicio 
escreva("Digite um Ângulo: ") 
leia(angulo) 
 
seno<-(sen(angulo)) 
cosseno<-(cos(angulo)) 
tangente<-(tan(angulo)) 
secante<-1/(cos(angulo)) 
cosecante<-1/(sen(angulo)) 
cotangente<-1/(tan(angulo)) 
 
escreval("O seno do ângulo ",angulo,"° séra de ",seno:5:2) 
escreval("O cosseno do ângulo ",angulo,"° séra de ",cosseno:5:2) 
escreval("A tangente do ângulo ",angulo,"° séra de ",tangente:5:2) 
escreval("O Co-secante do ângulo ",angulo,"° séra de ",cosecante:5:2) 
escreval("A Co-tangente do ângulo ",angulo,"° séra de ",cotangente:5:2) 
 
Fimalgoritmo 
 
19. Entrar com um número e imprimi o logaritmo desse número na base 10. Considere que 
existe um comando para cálculo do logaritmo (log(x)). 
 
ii 
Algoritmo "Questão19" 
var logaritmo,x:real 
Inicio 
 
escreva("Digite um número: ") 
leia(x) 
logaritmo<-(log(x)) 
 
escreval(" o logaritmo é: ",logaritmo) 
 
Fimalgoritmo 
 
20. Entrar com um número e a base em que se deseja calcular o logaritmo desse número e 
imprimi-lo. Considere que existe um comando para cálculo do logaritmo (log(x)). 
 
Algoritmo "Questão20" 
 
var logaritmo,x,b:real 
Inicio 
 
escreva("Digite um número: ") 
leia(x) 
escreva("Digite a base: ") 
leia(b) 
 
logaritmo<- log(x)/ log(b) 
 
escreval(" o logaritmo é: ",logaritmo) 
 
Fimalgoritmo 
 
 
 
21. Entrar com um número e imprimir o número, seu quadrado e sua raiz quadrada. 
 
Algoritmo "Questão21" 
 
var numero,raiz,quadrado,v:real 
 
Inicio 
 
escreva("Digite um número: ") 
leia(numero) 
quadrado<-numero*numero 
raiz<-raizq(numero) 
 
escreval("O quadrado de ",numero," é",quadrado) 
escreval("A raiz de ",numero," é",raiz) 
 
Fimalgoritmo 
 
22. Entrar com o saldo de uma aplicação e imprimir o novo saldo, considerando o reajuste de 1%. 
 
Algoritmo "Questão22" 
 
ii 
var saldo,saldon,por:real 
 
Inicio 
escreva("Digite o antigo saldo: ") 
leia(saldo) 
 
por<-(saldo*1)/100 
saldon<-saldo+por 
escreval("O novo saldo é: ",saldon) 
 
Fimalgoritmo 
 
23. Entrar com um número no formato CDU (Centenas, Dezenas e Unidades) e imprimir 
invertido: UCD (Exemplo: 123 sairá 321). O número deverá ser armazenado em outra variável 
antes de ser impresso. 
 
Algoritmo "Questão23" 
 
var numero,numeron,aux:inteiro 
 
Inicio 
 
escreva("Digite um número com três digitos: ") 
leia(numero) 
aux<-numero 
numeron<-0 
enquanto (aux>0) faca 
numeron<-numeron*10+(aux%10) 
aux<-aux\10 
fimenquanto 
escreval("O numero digitado era: ",numero) 
escreval("O número invertido é: ",numeron) 
 
Fimalgoritmo
ii 
 
24. Sabendo-se que 100 quilowatts de energia custa um sétimo do salário mínimo, fazer um 
algoritmo que receba o valor do salário mínimo e a quantidade de quilowatts gasta por uma 
residência e imprima o valor em reais de cada quilowatt, o valor a ser pago e o novo valor a 
ser pago por essa residência com um desconto de 10%. 
Algoritmo "Questão24" 
 
var salario,taxa,watt,wr,conta,contan,cd,precow:real 
 
 
Inicio 
 
escreva("Digite o valor do sálario: ") 
leia(salario) 
escreva("Digite a quantidade de quilowatts consumidas: ") 
leia(watt) 
 
precow<-(salario/7)/100 
conta<-precow*watt 
contan<-(conta*10)/100 
cd<-conta-contan 
escreval("O valor em reais por cada kWh é: R$",precow:4:2) 
escreval("O valor da conta é: R$",conta:3:2) 
escreval("O valor com desconto é: R$",cd:3:2) 
 
Fimalgoritmo 
 
Entrar com a base e a altura de um retângulo e imprimir seu perímetro, sua área e sua 
diagonal. 
Algoritmo "Questão25" 
 
var base,altura,diagonal,perimetro :real 
 
Inicio 
 
escreva("Digite a base de um retângulo: ") 
leia(base) 
escreva("Digite a altura de um retângulo: ") 
leia(altura) 
 
perimetro<-2*(base+altura) 
diagonal<-((base*base)+(altura*altura)) 
 
escreval("O perimetro é: ",perimetro," CM²") 
escreval("A diagonal é: ",diagonal) 
 
Fimalgoritmo 
 
 
 
 
 
 
 
 
25. Entrar com o raio de um círculo e imprimir seu perímetro e sua área. 
iii 
 
Algoritmo "Questão26" 
 
var perimetro,raio :real 
 
Inicio 
 
escreva("Digite o raio de um circulo: ") 
leia(raio) 
 
perimetro<-2*3.14*raio 
 
escreval("O perimetro é: ",perimetro) 
 
Fimalgoritmo 
 
 
 
26. Entrar com o lado de um quadrado e imprimir seu perímetro, sua área e sua diagonal. 
Algoritmo "Questão27" 
 
var lado,perimetro,area,diagonal :real 
 
Inicio 
 
escreva("Digite o tamanho do lado de um quadrado: ") 
leia(lado) 
 
perimetro<-lado*4 
area<-lado*lado 
diagonal<-raizq(lado*lado+lado*lado) 
 
escreval("O perimetro é: ",perimetro," cm²") 
escreval("A área é: ",area," cm²") 
escreval("A diagonal é: ",diagonal:3:2," cm² aproxidamente") 
 
Fimalgoritmo 
 
27. Entrar com os lados A, B e C de um paralelepípedo. Calcular e imprimir sua diagonal. 
 
Algoritmo "Questão28" 
 
var lado1,lado2,lado3,diagonal :real 
 
Inicio 
 
escreva("Digite o lado A: ") 
leia(lado1) 
escreva("Digite o lado B: ") 
leia(lado2) 
escreva("Digite o lado C: ") 
leia(lado3) 
 
diagonal<-raizq(lado1*lado1+lado2*lado2+lado3*lado3) 
 
iv 
escreval("A diagonal é: ",diagonal:3:2," cm² aproxidamente") 
 
Fimalgoritmo 
 
 
 
 
 
 
 
 
 
28. Entrar com a altura e a base de um triângulo e imprimir a área do triângulo. 
 
Algoritmo "Questão29" 
 
var lado,base,area:real 
 
Inicio 
 
escreva("Digite o lado de um triângulo: ") 
leia(lado) 
escreva("Digite a base de um triângulo: ") 
leia(base) 
 
area<-(lado*base)/2 
 
escreval("A área de um triângulo é: ",area) 
 
Fimalgoritmo 
 
29. Calcular aárea de um losango, dados a diagonal menor e a diagonal maior. 
 
Algoritmo "Questão30" 
 
var dmn,dm,area:real 
 
Inicio 
 
escreva("Digite a diagonal maior: ") 
leia(dm) 
escreva("Digite a diagonal menor: ") 
leia(dmn) 
 
area<-(dmn*dm)/2 
 
escreval("A área de um losango é: ",area," CM²") 
 
Fimalgoritmo 
 
30. Entrar com os valores dos catetos de um triângulo retângulo e imprimir a hipotenusa, 
lembrando que: 
A2 = B2 + C2, 
onde A é a hipotenusa, B e C são os catetos 
v 
 
Algoritmo "Questão31" 
 
var lado,base,hip:real 
 
Inicio 
 
escreva("Digite o lado de um triângulo: ") 
leia(lado) 
escreva("Digite a base de um triângulo: ") 
leia(base) 
 
hip<-raizq(lado^2+base^2) 
 
escreval("A hipotenusa de um triângulo é: ",hip," CM²") 
 
Fimalgoritmo 
 
 
 
31. Entrar com a razão de uma Progressão Aritmética e o valor do primeiro termo. 
Calcular e imprimir o décimo termo da série. 
 
Algoritmo "Questão32" 
 
var pa,razao,termo13,termo1 :inteiro 
 
Inicio 
 
escreva("Digite a razão: ") 
leia(razao) 
escreva("Digite o primeiro termo: ") 
leia(termo1) 
 
termo13<-termo1+(13-1)*razao 
 
escreval("O Décimo terceiro termo é: ",termo13) 
 
Fimalgoritmo 
 
32. Entrar com a razão de uma Progressão Geométrica e o valor do primeiro termo. 
Calcular e imprimir o quinto termo da série. 
 
Algoritmo "Questão33" 
 
var pa,razao,termo5,termo1 :inteiro 
 
Inicio 
 
escreva("Digite a razão: ") 
leia(razao) 
escreva("Digite o primeiro termo: ") 
leia(termo1) 
 
termo5<-termo1+(13-1)*razao 
vi 
 
escreval("O Décimo terceiro termo é: ",termo5) 
 
Fimalgoritmo 
 
33. Em épocas de pouco dinheiro, os comerciantes estão procurando aumentar suas ven- das 
oferecendo desconto. Faça um algoritmo que possa entrar com o valor de um produto e 
imprima novo valor tendo em vista que o desconto foi de 9%. 
Algoritmo "Questão34" 
 
var valor,desconto,desconto2 :real 
 
Inicio 
escreva("Digite o valor da compra: ") 
leia(valor) 
desconto<-(valor*9)/100 
desconto2<-valor-desconto 
 
escreval("O valor com desconto é: R$",desconto2) 
Fimalgoritmo 
 
 
34. Ler uma temperatura em graus centrígrados e apresentá-la convertida em graus Fah- renheit. A 
fórmula é F = (9*C +160)/5, onde F é a temperatura em Fahrenheit e C é a temperatura em 
centígrados. 
Algoritmo "Questão35" 
 
var temperatura1,temperatura2 :real 
 
Inicio 
 
escreva("Digite o temperatura em C°: ") 
leia(temperatura1) 
temperatura2<-(9*temperatura1+160)/5 
 
escreval("A temperatura convertida em Fahrenheit é: ",temperatura2,"F°") 
 
Fimalgoritmo 
 
35. Calcular e apresentar o valor do volume de uma lata de óleo, utilizando a fórmula: volume 
= 3.14159 * R2 * altura. 
Algoritmo "Questão36" 
 
var raio,altura,volume :real 
 
Inicio 
 
escreva("Digite o raio da lata: ") 
leia(raio) 
 
escreva("Digite a altura da lata: ") 
leia(altura) 
 
volume<- 3.14*raio^2*altura 
vi
i 
 
 
escreval("O volume da lata é: ",volume) 
Fimalgoritmo 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
36. Efetuar o cálculo da quantidade de litros de combustível gastos em uma viagem, sabendo-
se que o carro faz 12 Km com um litro. Deverão ser fornecidos o tempo gasto na viagem e 
a velocidade média. Utilizar as eguintes fórmulas: 
distancia = tempo x velocidade 
litros_usados = distancia/12 
O algoritmo deverá apresentar os valores da velocidade média, tempo gasto na via- gem, 
distância percorrida e a quantidade de litros usados na viagem. 
 
Algoritmo "Questão37" 
 
var temp,velom,dist,lit :real 
 
Inicio 
escreva("Digite o tempo gasto da viagem: ") 
leia(temp) 
escreva("Digite a velocidade média: ") 
leia(velom) 
 
dist<-temp*velom 
lit<-dist/12 
 
escreval("A velocidade média foi: ",velom,"KM²") 
escreval("O tempo gasto na viagem foi: ",temp,"HORAS") 
escreval("A Distância percorrida foi: ",dist,"KM²") 
escreval("A Quantidade de litros usado foi de: ",lit,"L por KM²") 
 
Fimalgoritmo
vi
ii 
 
 
 
 
37. Efetuar o cálculo do valor de uma prestação em atraso, utilizando a fórmula: pres- tação = 
valor + (valor * (taxa/100)* tempo). 
Algoritmo "Questão38" 
 
var pr,tax,vl,temp :real 
 
Inicio 
 
escreva("Digite o valor da prestação: ") 
leia(vl) 
escreva("Digite os dias atrasados: ") 
leia(temp) 
escreva("Digite o valor da taxa: ") 
leia(tax) 
 
pr<-vl+(vl*(tax/100)*temp) 
 
escreval("O valor da prestação é: R$",pr) 
 
Fimalgoritmo 
 
38. Ler dois valores para as variáveis A e B, efetuar a troca dos valores de forma que a variável 
A passe a ter o valor da variável B e que a variável B passe a ter o valor da variável A. 
Apresentar os valores antes e depois da troca. 
Algoritmo "Questão39" 
 
var a,b,c : inteiro 
 
Inicio 
 
escreva("Digite o valor de A:") 
leia(a) 
escreva("Digite o valor de B: ") 
leia(b) 
escreval("O valor de A é: ",a) 
escreval("O valor de B é: ",b) 
 
c<-b 
b<-a 
escreval("Trocando os valores de A e B ficam: ") 
escreval("O valor de A é: ",c) 
escreval("O valor de B é: ",b) 
 
Fimalgoritmo 
 
 
 
 
 
 
 
 
ix 
39. Criar um algoritmo que leia o numerador e o denominador de uma fração e transforma- lo em 
um número decimal. 
Algoritmo "Questão40" 
 
var num,den : inteiro 
dec : real 
Inicio 
escreva("Digite o numerador:") 
leia(num) 
escreva("Digite o denominador: ") 
leia(den) 
dec<-num/den 
escreval("Numero decimal: ",dec:2:2) 
Fimalgoritmo 
 
40. Todo restaurante, embora por lei não possa obrigar o cliente a pagar, cobra 10% para o garçom. 
Fazer um algoritmo que leia o valor gasto com despesas em um restaurante e imprima o valor 
total com a gorgeta. 
Algoritmo "Questão41" 
 
var vl,gor,vr: real 
 
Inicio 
escreva("Digite o valor gasto no restaurante:") 
leia(vl) 
gor<-(vl*10/100) 
vr<-vl+gor 
escreva("O valor total com a gorjeta do garçcom é: R$",vr) 
Fimalgoritmo 
 
41. Criar um algoritmo que leia um valor de hora e informe quantos minutos se passaram desde o 
início do dia. 
Algoritmo "Questão42" 
 
var dia,hr,min: real 
 
Inicio 
escreva("Digite a hora:") 
leia(hr) 
min<-hr*60 
escreva("O valor total de minutos que se passaram é: ",min," MIN") 
 
Fimalgoritmo 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
x 
42. Criar um algoritmo que leia o valor de um depósito e o valor da taxa de juros. 
Calcular e imprimir o valor de rendimento e o valor total de depois do rendimento. 
 
Algoritmo "Questão43" 
 
var vl,vld,ju,rd,rd2: real 
 
Inicio 
escreva("Digite o valor total do depósito: ") 
leia(vl) 
 
escreva("Digite o valor da taxa de juros: ") 
leia(ju) 
 
vld<-(vl*ju)/100 
rd<-vl-vld 
rd2<-rd 
escreval("O valor total de rendimentos sem juros é: R$",vl) 
escreval("O valor total de rendimentos com juros é: R$",rd2) 
 
Fimalgoritmo 
 
43. Criar um algoritmo que receba número real, calcular e imprimir: a parte inteira do número, 
a parte fracionária do número e o número arredondado. 
Algoritmo "Questão44" 
 
var num,numi,arr :real 
 
Inicio 
 
escreva("Digite um número: ") 
leia(num) 
 
numi<- int(num+0.5) 
arr<- int(num+0.00001) 
 
escreval("A parte inteira do número é: ",numi) 
escreval("O número arredondado é: ",arr) 
 
Fimalgoritmo 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
xi 
44. Para vários atributos, a base de cálculo é o salário mínimo. Fazer um algoritmo que leia o 
valor do salário mínimo e o valor do salário de uma pessoa. Calcular e imprimir quantos 
salários mínimos ele ganha. 
Algoritmo "Questão45" 
 
var sm,sal,qt: real 
 
Inicio 
escreva("Digite o valor do salário mínimoatual: ") 
leia(sm) 
escreva("Digite o valor do seu sálario: ") 
leia(sal) 
 
qt<-sal/sm 
 
escreval("A pessoa ganha: ",qt:5:3, " Sálarios mínimos") 
 
Fimalgoritmo 
 
45. Criar um algoritmo que leia o peso de uma pessoa, só a parte inteira, calcular e 
imprimir: 
a. o peso da pessoa em gramas 
b. novo peso (em gramas), se a pessoa engordar 12% 
 
Algoritmo "Questão46" 
 
var peso,gramas,por,ga: real 
 
Inicio 
 
escreva("Digite o seu peso: ") 
leia(peso) 
gramas<-peso*1000 
por<-(peso*12)/100 
ga<-peso+por 
 
escreval("O seu peso em gramas é: ",gramas:3:3," g") 
escreval("Se engorgar 12% o seu peso será: ",ga:3:3," g") 
 
Fimalgoritmo 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
xi
i 
 
46. Criar um algoritmo que leia um número entre 0 e 60 e imprimir o seu sucessor, sabendo 
que o sucessor de 60 é 0. Não pode usar nenhum comando de seleção ou repetição. 
 
Algoritmo "Questão47" 
 
var valor,suc,suc1 :inteiro 
 
Inicio 
 
escreval("Digite um número: ") 
leia(valor) 
 
suc<-valor+1 
 
se valor>=60 entao 
escreval("O Sucessor é 0") 
fimse 
 
se valor<60 entao 
escreval("O Sucessor de ,", valor ," é: ",suc) 
fimse 
 
Fimalgoritmo 
 
47. Ler dois números reais e imprimir o quadrado da diferença do primeiro valor pelo 
segundo e a diferença dos quadrados. 
Algoritmo "Questão48" 
 
var valor1,valor2,qua,resul1,resul2 :real 
 
Inicio 
 
escreva("Digite o primeiro valor: ") 
leia(valor1) 
 
escreva("Digite o segundo valor: ") 
leia(valor2) 
 
resul1<-(valor1-valor2)^2 
resul2<-valor1^2-valor2^2 
 
escreval("O quadrado da diferença entre os dois valores é: ",resul1) 
escreval("A diferença dos quadrados é: ",resul2) 
 
Fimalgoritmo 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
xi
ii 
 
48. Dado um polígono convexo de n lados, podemos calcular o número de diagonais 
diferentes (nd) desse polígono pela fórmula: nd = n(n-3)/2. |Fazer um algoritmo que leia 
quantos lados tem o polígono, calcule e escreva o número de diagonais diferentes (nd) do 
mesmo. 
Algoritmo "Questão49" 
 
var lados,diagonais,nd :real 
 
Inicio 
escreva("Digite o número de lados do polígono convexo: ") 
leia(lados) 
 
nd<-lados*(lados-3)/2 
 
escreval("O número de diagonais diferentes do polígono é: ",nd) 
Fimalgoritmo 
 
 
49. Uma pessoa resolveu fazer uma aplicação em uma poupança programada. Para calcular 
seu rendimento, ela deverá fornecer o valor constante da aplicação mensal, a taxa e o número 
de meses. Sabendo-se que a fórmula usada para este cálculo é: valor_acumulado = P * 
((1+i) n-1)/i, onde i é a taxa, P é a aplicação mensal e n o número de meses. 
 
Algoritmo "Questão50" 
 
var taxa,valor,va :real 
meses :inteiro 
Inicio 
 
escreva("Digite o valor da aplicação: ") 
leia(valor) 
 
escreva("Digite o valor da taxa: ") 
leia(taxa) 
 
escreva("Digite o números de meses em que você aplica: ") 
leia(meses) 
 
va<-valor*((1+taxa)meses-1/taxa); 
 
escreval("O Valor acumulado é: R$",va) 
Fimalgoritmo 
xi