Logica_de_Programacao_3_Edicao_Livro

Capítulo 6
Modularizando algoritmos 1 135
44. fimmódulo;
45.
46. MinutoEntrada;
47 . MinutoSaída;
48 . tm f- ms - me;
49 . Atraso;
50.
51. finmódulo;
52.
53. módulo Tarde
54.
55 . módulo MinutoEntrada
56 . me f- cartão[i).et;
57 . me f- (me div 100)*60 + me mod 100;
58. fimmódulo;
59.
60. módulo MinutoSaída
61. ms f- cartão[i] .st;
62. ms f- (ms div 100)*60 + ms mod 100;
63. fimmódulo;
64.
65. módulo Atraso
66 . atrt f- me - 840;
67 . fimmódul o;
68.
69. MinutoEntrada;
70. MinutoSaída;
71. tt f- ms - me;
72. Atraso;
73.
74 . finmódulo;
75 .
76 . parai de 1 até cont faça
77. Manhã
78. Tarde;
79. totalDia[i] .atraso f- atrm + atrt ;
80. totalDia[i] .horas f- tm + tt;
81. toth f- toth + (tm + tt);
82. totatr f- totatr + (atrm + atrt);
83 . fimpara;
84. fimmódulo;
85.
86. módulo Impressão
87. para i de 1 até cont faça
88. escreva (cartão[i].em, cartão[i] .sm);
99. escreva (cartão[i].et, cartão[i] .st);
90 . escreva (totalDia[i] .horas div 60);
91 . escreva (totalDia[i] .horas mod 60);
(Contiuua)