Lista 03a - DCC/UFMG

program l3p059;varC, NAM,NAV,NAN,NBM,NBV,NBN,NCM,NCV,NCN: integer;ELEVADOR,PERIODO: string;beginNAM := 0;NAV := 0;NAN := 0;NBM := 0;NBV := 0;NBN := 0;NCM := 0;NCV := 0;NCN := 0;for C := 1 to 50 dobeginwrite('Elevador: ');readLn(ELEVADOR);write('Periodo: ');readLn(PERIODO);if ( ELEVADOR = 'A' ) thenif ( PERIODO = 'M' ) thenNAM := NAM + 1else if ( PERIODO = 'V' ) thenNAV := NAV + 1elseNAN := NAN + 1else if ( ELEVADOR = 'B' ) thenif ( PERIODO = 'M' ) thenNBM := NBM + 1else if ( PERIODO = 'V' ) thenNBV := NBV + 1elseNBN := NBN + 1else if ( ELEVADOR = 'C' ) thenif ( PERIODO = 'M' ) thenNCM := NCM + 1else if ( PERIODO = 'V' ) thenNCV := NCV + 1elseNCN := NCN + 1;end;if ( (NAM+NAV+NAN) > (NBM+NBV+NBN) ) and ( (NAM+NAV+NAN) > (NCM+NCV+NCN) ) thenbeginwrite('A eh o elevador mais frequentado, no periodo ');if ( (NAM > NAV) and (NAM > NAN) ) thenwriteLn('Matutino!')else if ( (NAV > NAM) and (NAV > NAN) ) thenwriteLn('Vespertino!')elsewriteLn('Noturno!');endelse if ( (NBM+NBV+NBN) > (NAM+NAV+NAN) ) and ( (NBM+NBV+NBN) > (NCM+NCV+NCN) ) thenbeginwrite('B eh o elevador mais frequentado, no periodo ');if ( (NBM > NBV) and (NBM > NBN) ) thenwriteLn('Matutino!')else if ( (NBV > NBM) and (NBV > NBN) ) thenwriteLn('Vespertino!')elsewriteLn('Noturno!')endelse if ( (NCM+NCV+NCN) > (NAM+NAV+NAN) ) and ( (NCM+NCV+NCN) > (NBM+NBV+NBN) ) thenbeginwrite('C eh o elevador mais frequentado, no período ');if ( (NCM > NCV) and (NCM > NCN) ) thenwriteLn('Matutino!')else if ( (NCV > NCM) and (NCV > NCN) ) thenwriteLn('Vespertino!')elsewriteLn('Noturno!');end;{ continua }end.UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 76