Lista 03a - DCC/UFMG

program l3p058;varC, IDADE,NOTIMO,NRUIM,NPESSIMO,NBOM,NREGULAR: integer;SOMAIDADERUIM,MAIORIDADEPESSIMO,MAIORIDADEOTIMO,MAIORIDADERUIM,DIF: integer;MEDIAIDADERUIM: real;OPINIAO: string;beginNOTIMO := 0;NBOM := 0;NREGULAR := 0;NRUIM := 0;NPESSIMO := 0;SOMAIDADERUIM := 0;MAIORIDADEOTIMO := 0;MAIORIDADERUIM := 0;MAIORIDADEPESSIMO := 0;for C := 1 to 100 dobeginwrite('Digite a idade: ');readLn(IDADE);write('Digite a Opiniao (A/B/C/D/E): ');readLn(OPINIAO);if (OPINIAO = 'A' ) then beginNOTIMO := NOTIMO + 1;if ( NOTIMO = 1 ) or ( IDADE > MAIORIDADEOTIMO ) thenMAIORIDADEOTIMO := IDADE; endelse if ( OPINIAO = 'B' ) thenNBOM := NBOM + 1else if ( OPINIAO = 'C' ) thenNREGULAR := NREGULAR + 1else if ( OPINIAO = 'D' ) then beginNRUIM := NRUIM + 1;SOMAIDADERUIM := SOMAIDADERUIM + IDADE;if ( NRUIM = 1 ) or ( IDADE > MAIORIDADERUIM ) thenMAIORIDADERUIM := IDADE; endelse if ( OPINIAO = 'E' ) then beginNPESSIMO := NPESSIMO + 1;if ( NPESSIMO = 1 ) or ( IDADE > MAIORIDADEPESSIMO ) thenMAIORIDADEPESSIMO := IDADE; endelsewriteLn('Opcao de opiniao invalida!');end;writeLn('A quantidade de respostas otimo eh: ',NOTIMO);writeLn('A diferenca percentual entre repostas bom e regular: ',(NBOM-NREGULAR),'% ');if ( NRUIM 0 ) then { evitando divisão por zero } beginMEDIAIDADERUIM := SOMAIDADERUIM / NRUIM;writeLn('A media de idade de pessoas que responderam ruim eh: ',MEDIAIDADERUIM:4:1); endelsewriteLn('Nenhuma pessoa respondeu ruim');writeLn('A percentagem de pessoas que responderam pessimo: ',NPESSIMO,'% ');writeLn('A maior idade que respondeu pessimo eh: ',MAIORIDADEPESSIMO );DIF := MAIORIDADEOTIMO - MAIORIDADERUIM;writeLn('A diferença entre a maior idade de resposta otimo e ruim eh: ',DIF);end.UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 72