Ver Mensaje Individual
  #3 (permalink)  
Antiguo 16/04/2013, 12:31
locodemente
 
Fecha de Ingreso: abril-2013
Mensajes: 2
Antigüedad: 11 años
Puntos: 0
Respuesta: Algoritmo en Pascal Numeros Pares e Impares

Cita:
Iniciado por Malenko Ver Mensaje
Cuando no tienes numeros pares o impares, el contador es 0. Y si haces una división entre 0 siempre te dará error. Eso es lo que tienes que controlar ;)
Hola Malenko gracias por responder:

Lo que hice fue:

Agregar esta linea al final: Y funciona, ya no tengo el error en ninguno de los 2 casos. Nose si esta bien el procedimiento que hice o existe otro mas corto, vos q opinas?

IF (Contador>0) then
writeln ('Promedio Numeros Pares: ',AcuPares/Contador:0:2);
IF (Contador=0) then
writeln ('No ingreso numeros pares. ');
writeln;
IF (Contador2>0) then
writeln ('Promedio Numeros Impares: ',AcuImPares/Contador2:0:2);
IF (Contador2=0) then
writeln ('No ingreso numeros Impares. ');


Hice la prueba de escritorio y no me dio problemas.