Logica_de_Programacao_3_Edicao_Livro
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Capítulo 6 Modularizando algoritmos 1 15 1
~
~
~
~
~
~
32. ;nte;ro: m;
33. m (H div 100)*60 + H mod 100;
34. retorne (m);
35. firrmódulo;
36.
37. módulo Atraso (;nte;ro: H, período)
38. ;nte;ro: a;
39. a~ minuto (H) - período;
40. retorne (a);
41. firrmódulo;
42.
43. módulo Total (;nte;ro: HE, HS) ;
44. ;nte;ro: t;
45. t minuto (HS) - minuto (HE);
46. retorne (t);
47. firrmódulo;
48.
49. para i de 1 até cont faça
50. totalDia[i].atraso Atraso(cartão[i].em, 480) +
Atraso(cartão[i].et, 840);
51. totalDia[i].horas Total(cartão[i] .em, cartão[i] .sm) +
Total(cartão[i].et, cartão[i].st);
52. toth toth + totalDia[i].horas;
53. totatr totatr + totalDia[i].atraso;
54. fimpara;
55.
56. fimmódulo;
57.
58. módulo Impressão
59. parai de 1 até cont faça
60. escreva (cartão[i] .em, cartão[i].sm);
61. escreva (cartão[i] .et, cartão[i].st);
62. escreva (totalDia[i].horas div 60);
63. escreva (totalDia[i].horas mod 60);
64. escreva (totalDia[i].atraso div 60);
65. escreva (totalDia[i].atraso mod 60);
66. fimpara;
67. escreva ((toth/cont) div 60, (toth/cont) mod 60);
68. escreva (toth div 60, toth mod 60);
69. escreva ((totatr/cont) div 60, (totatr/cont) mod 60);
70. escreva (totatr div 60, totatr mod 60);
71. finmódulo;
72.
73. Entrada;
74.
75.
76.
77.
se cont > O
então 1n1c10 . - .
Cálculo;
Impressão;
(Continua)