Page 307 - Introduccion a la Programacion

ARREGLOS | Ejercicio 2 307

26. Para j <- 1 Hasta nacional Con Paso 1 Hacer
27. Escribir “Ingresa los minutos de la llamada Nacional: “
28. Leer llamadasNacio[j]
29. Si (3 <= llamadasNacio[j]) Entonces
30. sumaNacio <- sumaNacio + 1.20
31. SINO
32. extra <- llamadasNacio[j] - 3
33. sumaNacio <- sumaNacio + 1.20 + (extra * 0.48)
34. FINSI
35. FINPARA

36. PARA k <- 1 Hasta local Con Paso 1 Hacer
37. Escribir “Ingresar los minutos de la llamada Local: “
38. Leer llamadasLocal[k]
39. Si (50 < llamadasLocal[k]) Entonces
40. extra <- llamadasLocal[k]- 50
41. sumaLocal <- sumaLocal + (extra * 0.60)
42. FINSI
43. FINPARA
44. Escribir “Total a pagar por llamadas Internacionales: “
45. Escribir sumaInter
46. Escribir “Total a pagar por llamadas Nacionales: “
47. Escribir sumaNacio
48. Escribir “Total a pagar por llamadas Locales: “
49. Escribir sumaLocal
50. Escribir “Total a pagar por todas las llamadas: “
51. Escribir(sumaInter + sumaNacio + sumaLocal)
52. FIN