Pascal/Turbo Pascal - Calcular promedio por acumulación

   
Vista:

Calcular promedio por acumulación

Publicado por Pedro (7 intervenciones) el 29/12/2014 16:53:06
Buenas, espero se encuentren bien, el día de hoy quisiera obtenerr un poco de ayuda en un ejercicio que me han enviaado en la universidad, el cual dice lo siguiente:

Dado “n” números que indique si cada uno de ellos es par o impar. Obtenga total de pares, impares, promedio de pares o impares, porcentaje de pares o impares.

Muy bien yo he realizado la parte de identificar los números pares e impares, y contar cuantos son de cada grupo, pero no logro sacar el promedio ni el porcentaje, ya que lo intento y me da como resultado "0", por lo que algo debo estar haciendo mal, alguien puede indicarme como calcular el promedio y el procentaje?, est es lo que he realizado:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program ejercicio15;
uses crt;
var n,par,impar,i,numero:integer;
 
 
procedure introducirN;
          begin
               write('Intruzca N: ');
               readln(n);
          end;
procedure realizarCondiciones;
          begin
               i:=1;
               par:=0;
               impar:=0;
               while (i<=n) do
                     begin
                          //Código que calcula los pares
                          write('Introduzca numero: ');
                          readln(numero);
                          if ((numero mod 2)=0) then
                          begin
                          numero:=par;
                          writeln(' - Numero par');
                          par:=par+1;
                          //FIN Código que calcula los pares
                          end
                          else
                          begin
                          //Código que calcula los impares
                          numero:=impar;
                          writeln(' - Numero impar');
                          impar:=impar+1;
                          //FIN Código que calcula los impares
                          end;
                          i:=i+1;
                     end;
          end;
 
procedure mostrarTodo;
          begin
               writeln('El total de numeros pares es: ',par);
               writeln('El promedio de numeros pares es: ');
               writeln('El total de numeros impares es: ',impar);
               writeln('El promedio de numeros impares es: ');
          end;
 
begin
     introducirN;
     realizarCondiciones;
     mostrarTodo;
     readkey;
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Calcular promedio por acumulación

Publicado por David (145 intervenciones) el 29/12/2014 20:55:35
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Uses CRT;
 
var
  I, Num, N : Integer;
  pares,impares,sumapares,sumaimpares:integer;
  mediapares,mediaimpares,porcientopares,porcientoimpares:real;
 
begin
  Clrscr;
  pares:=0;
  impares:=0;
  Writeln('Cu ntos n£meros va a introducir: ');
  readln(N);
  For i:=1 to n do
    begin
      Clrscr;
      Writeln('Introduzca un n£mero: ');
      readln(NUM);
      if (num mod 2 = 0) then
        begin
 
          pares:=pares+1;
          sumapares:=sumapares+num
        end
      else
        begin
          impares:=impares+1;
          sumaimpares:=sumaimpares+num
        end;
 
    end;
  mediapares:=sumapares/pares;
  mediaimpares:=sumaimpares/impares;
  porcientopares:=(pares/n)*100;
  porcientoimpares:=(impares/n)*100;
  Writeln('El total de n£meros pares es ',pares);
  Writeln('El promedio de los n£meros pares es : ',mediapares:2:2);
  Writeln('El porcentaje de n£meros pares es : ',porcientopares:2:2,'%');
  Writeln('El total de n£meros impares es ',impares);
  Writeln('El promedio de los n£meros impares es : ',mediaimpares:2:2);
  Writeln('El porcentaje de n£meros impares es : ',porcientoimpares:2:2,'%');
  readln;
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Calcular promedio por acumulación

Publicado por Pedro (7 intervenciones) el 30/12/2014 02:51:02
Funciona perfectamente amigo, muchas gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar