17. Escreva um algoritmo que leia a quantia R$ em dinheiro que uma pessoa tem para enviar cartas,o preço PE de um envelope, o preço PS de um selo, a quantidade QS de selos que a pessoa já dispõe e a quantidade de envelopes QE que a pessoa também já dispõe. O algoritmo deve calcular e informar quantas cartas a pessoa pode enviar.
Resposta:
1. algoritmo "Cálculo para enviar cartas"
2. var
3. qdd,ps,pe,ce,qce,qca:real
4. //ps = preço selo
5. //pe = preço envelope
6. //ce = custo envio
7. //qdd = Quantidade dinheiro disponível
8. //qce = Quantidade de cartas enviadas
9. //qca = Quantidade de cartas a mais
10. qs,qe,qer,qsa,qea:inteiro
11. //qs = Quantidade selo
12. //qe = Quantidade envelope
13. //qer = Quantos envios restantes
14. //qsa = Quantos selos posso comprar
15. //qea = Quantos envelopes posso comprar
16. inicio
17. escreval("Cálculo para saber quantas cartas uma pessoa pode enviar.")
18. escreva("Informe a quantia de dinheiro (em reais) disponível = ")
19. leia(qdd)
20. escreva("Informe a quantia de selos disponível = ")
21. leia(qs)
22. escreva("Informa a quantia de envelopes disponível = ")
23. leia(qe)
24. escreva("Informe o preço (em reais) de um envelope = ")
25. leia(pe)
26. escreva("informa o preço (em reais) de um selo = ")
27. leia(ps)
28. ce <- pe+ps
29. se (qe>qs) entao
30. qer <- qe-qs
31. se ((qer*ps)<=qdd entao
32. qdd <- qdd-(qer*ps)
33. qce <- qs
34. qca <- qdd \ ce
35. qce <- qce+qca
36. senao
37. qsa <- qdd \ ps
38. qce <- qs+qsa
39. fimse
40. senao
41. se (qs>qe) entao
42. qer <- qs-qe
43. se ((qer*pe) <= qdd) entao
44. qdd <- qdd-(qer*pe)
45. qce <- qe
46. qca <- qdd \ ce
47. qce <- qce+qca
48. senao
49. qea <- qdd \ pe
50. qce <- qe+qea
51. senao
52. qce <- qs
53. qca <- qdd \ ce
54. qce <- qce+qca
55. fimse
56. fimse
57. fimse
58. escreva("A quantidade de cartas que podem ser enviadas é igual a ",qce)
59. fimalgoritmo
Nenhum comentário:
Postar um comentário