Page 309 - Introduccion a la Programacion

ARREGLOS | Ejercicio 2 309

13. LEER nacional;
14. DIMENSION llamadasNacio[nacional];
15. ESCRIBIR “Ingresa el número de llamadas locales:”;
16. LEER local;
17. DIMENSION llamadasLocal[local];
18. PARA i <- 1 HASTA internacional CON PASO 1 HACER
19. . ESCRIBIR “Ingresa los minutos de la llamada
internacional”;
20. . LEER llamadasInter[i];
21. . SI (3 <= llamadasInter[i]) ENTONCES
22. . . sumaInter <- sumaInter + 7.59;
23. . SINO
24. . . extra <- llamadasInter[i] – 3;
25. . . sumaInter <- sumaInter + 7.59 + (extra * 3.3);
26. . FINSI
27. FINPARA
28. PARA j <- 1 HASTA nacional CON PASO 1 HACER
29. . ESCRIBIR “Ingresa los minutos de la llamada nacional”;
30. . LEER llamadasNacio[j];
31. . SI (3 <= llamadasNacio[j]) ENTONCES
32. . . sumaNacio <- sumaNacio + 1.20;
33. . SINO
34. . . extra <- llamadasNacio[j] – 3;
35. . . sumaNacio <- sumaNacio + 1.20 + (extra * 0.48);
36. . FINSI
37. FINPARA
38. PARA k <- 1 HASTA local CON PASO 1 HACER

39. . ESCRIBIR “Ingresa los minutos de la llamada nacional”;
40. . LEER llamadasLocal[k];
41. . SI (50 < llamadasLocal[k]) ENTONCES
42. . . extra <- llamadasLocal[k] - 50;
43. . . sumaLocal <- sumaLocal + (extra * 0.60);
44. . FINSI
45. FINPARA
46. ESCRIBIR “Total a pagar por llamadas Internacionales: “;
47. ESCRIBIR sumaInter;
48. ESCRIBIR “Total a pagar por llamadas Nacionales: “;
49. ESCRIBIR sumaNacio;
50. ESCRIBIR “Total a pagar por llamadas Locales:”;