Pascal/Turbo Pascal - Problema con un Ejercicio de Promedio

 
Vista:
sin imagen de perfil
Val: 10
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Problema con un Ejercicio de Promedio

Publicado por Jose (5 intervenciones) el 14/09/2018 04:50:36
Tengo un problema con este programa y es que me pide sacar el promedio de una cantidad de números, pero con la condición de que solo se pueda dar valores que no pase de 10.
o por lo menos que no los tome en cuenta a lo hora de sacar promedio, a ver si hay una forma de programarlo que estoy un tanto estancado.

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
Program promedio_3;
uses
wincrt;
Var
Total, contador: integer;
Num, promedio : real;
Begin
clrscr;
 
Write ('Numeros de examenes a promediar: ');
Readln (Total);
Promedio:=0;
For contador:=1 to Total do
 
 Begin
  Write('Examen: ',contador,' : ');
  Readln (Num);
  Promedio := Promedio + Num / Total;
End;
 
Writeln('El Promedio es: ', promedio:9:3);
writeln('');
 
if num := 0 to 10 do
 
writeln('Las notas aparecidas que pasan de 10 son: ');
 
 
 
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
sin imagen de perfil
Val: 69
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Problema con un Ejercicio de Promedio

Publicado por dario (23 intervenciones) el 14/09/2018 05:57:42
Tu mismo codigo un poco arreglado.

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
Program promedio_3;
uses
	crt;
Var
	c, Total, contador: integer;
	suma, Num, promedio : real;
Begin
	clrscr;
	Write ('Numeros de examenes a promediar: ');
	Readln (Total);
 
	Promedio:=0;
	c:=0;
	contador:=1;
	suma:=0;
 
	while contador <= Total do
	Begin
		Write('Examen: ',contador,' : ');
		Readln (Num);
 
		if num > 10 then begin
			inc(c); {contador de numeros > 10}
			continue;
		end
		else begin
			suma:=suma + Num;
			inc(contador);
		end;
 
	End;
	promedio:=suma / (contador-1);
	Writeln('El Promedio es: ', promedio:9:3);
 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
sin imagen de perfil
Val: 10
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Problema con un Ejercicio de Promedio

Publicado por Wepia (5 intervenciones) el 14/09/2018 06:57:08
Muchas gracias por la Ayuda.
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