Advertisement
Hiitmarqes

Untitled

Sep 14th, 2019
140
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.26 KB | None | 0 0
  1. programa
  2. {
  3.  
  4. funcao inicio()
  5. {
  6. inteiro inumeroA, inumeroB, inumeroC, totalInteiro, TotalSubistracao
  7. real fnumeroA, fnumeroB, totalReal
  8. inteiro tabela, iMultiplicacao
  9.  
  10. escreva("")
  11. escreva("\nESCOLHA UM PROCESSO")
  12. escreva("\n[1] Somar três números inteiros \t[2]Subtrair dois números inteiros")
  13. escreva("\n[3] Somar dois números reais \t[4] Somar um número real com um número inteiro")
  14. escreva("\n[5] Somar dois números inteiros e multiplicar o resultados por 3.")
  15. escreva("\n[6] Calcular a média aritmética de três números inteiros.")
  16. escreva("\n\nEscolha uma opção: ")
  17. leia(tabela)
  18. limpa()
  19.  
  20. escolha(tabela) {
  21. caso 1:
  22. escreva("DIGITE UM NUMERO: ")
  23. leia(inumeroA)
  24. escreva("DIGITE UM NUMERO: ")
  25. leia(inumeroB)
  26. escreva("DIGITE UM NUMERO: ")
  27. leia(inumeroC)
  28. limpa()
  29. totalInteiro = inumeroA + inumeroB + inumeroC
  30. escreva("[1] Somar três números inteiros: ")
  31. escreva("\nSomando ", inumeroA ," + " ,inumeroB, " + ", inumeroC)
  32. escreva("\n")
  33. escreva("\nTotal: ", totalInteiro)
  34. pare
  35.  
  36. caso 2:
  37. escreva("DIGITE UM NUMERO: ")
  38. leia(inumeroA)
  39. escreva("DIGITE UM NUMERO: ")
  40. leia(inumeroB)
  41. TotalSubistracao = inumeroA - inumeroB
  42. escreva("[2] Subtrair dois números inteiros: ")
  43. escreva("\n\t", inumeroA ," - " ,inumeroB)
  44. escreva("\n")
  45. escreva("\nTotal: ", TotalSubistracao)
  46. pare
  47.  
  48. caso 3:
  49. escreva("DIGITE UM NUMERO: ")
  50. leia(fnumeroA)
  51. escreva("DIGITE UM NUMERO: ")
  52. leia(fnumeroB)
  53. totalReal = fnumeroA + fnumeroB
  54. escreva("[3] Somar dois números reais ")
  55. escreva("\nSomando ", fnumeroA ," + " ,fnumeroB)
  56. escreva("\n")
  57. escreva("\nTotal: ", totalReal)
  58.  
  59. pare
  60.  
  61. caso 4:
  62. escreva("DIGITE UM NUMERO REAL: ")
  63. leia(fnumeroA)
  64. escreva("DIGITE UM NUMERO INTEIRO: ")
  65. leia(inumeroB)
  66. totalReal = fnumeroA + inumeroB
  67. escreva("[4] Somar um número real com um número inteiro")
  68. escreva("\nSomando ", fnumeroA ," + " ,inumeroB)
  69. escreva("\n")
  70. escreva("\nTotal: ", totalReal)
  71. pare
  72.  
  73. caso 5:
  74. escreva("DIGITE UM NUMERO: ")
  75. leia(inumeroA)
  76. escreva("DIGITE UM NUMERO: ")
  77. leia(inumeroB)
  78. escreva("DIGITE UM NUMERO: ")
  79. leia(inumeroC)
  80. limpa()
  81. totalInteiro = inumeroA + inumeroB + inumeroC
  82. iMultiplicacao = totalInteiro * 3
  83. escreva("[5] Somar dois números inteiros e multiplicar o resultados por 3 ")
  84. escreva("\nSomando ", inumeroA ," + " ,inumeroB, " + ", inumeroC)
  85. escreva("\n")
  86. escreva("\nTotal: ", totalInteiro)
  87. escreva("\nTotal: ", totalInteiro, " * 3 = " , iMultiplicacao)
  88. pare
  89. caso 6:
  90. escreva("DIGITE UM NUMERO: ")
  91. leia(inumeroA)
  92. escreva("DIGITE UM NUMERO: ")
  93. leia(inumeroB)
  94. escreva("DIGITE UM NUMERO: ")
  95. leia(inumeroC)
  96. limpa()
  97. totalInteiro = (inumeroA + inumeroB + inumeroC) / 3
  98. escreva("[5] Somar dois números inteiros e multiplicar o resultados por 3 ")
  99. escreva("\nSomando ", inumeroA ," + " ,inumeroB, " + ", inumeroC ," / 3")
  100. escreva("\n")
  101. escreva("\nTotal: ", totalInteiro)
  102. pare
  103.  
  104. }caso contrario escreva("[ERRO] NUMERO INVALIDO")
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111. //basico
  112. }
  113. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement