Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Realizar un programa para obtener el promedio de calificaciones de un grupo de n alumnos

Pascal/Turbo Pascal - Realizar un programa para obtener el promedio de calificaciones de un grupo de n alumnos

Volver
Nuevo Tema
<<>>
 
Vista:

Realizar un programa para obtener el promedio de calificaciones de un grupo de n alumnos

Publicado por alfredo gomez (1 intervención) el 09/06/2021 07:44:30
tengo que hacerlo con while y no puedo hacer se me complica y me trabo.

1) Realizar un programa para obtener el promedio de calificaciones de un grupo de n alumnos. El
programa solicita al usuario CALIFICACION.
El ingreso de calificaciones continua mientras el valor ingresado este entre (1 y 10) en caso de
ingresar un valor fuera del rango, la ejecución termina y se informa el promedio de calificaciones
ingresadas.

2) Se ingresan un conjunto de n alturas de personas por teclado. Mostrar la altura promedio de las
personas.

3) Escribir un programa que solicite la carga de un valor positivo y nos muestre desde 1 hasta el valor
ingresado de uno en uno.
Ejemplo: Si ingresamos 30 se debe mostrar en pantalla los números del 1 al 30.
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: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Realizar un programa para obtener el promedio de calificaciones de un grupo de n alumnos

Publicado por dario (87 intervenciones) el 09/06/2021 16:26:16
Hola, espero esto te ayude.
Salu2.

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
54
55
56
57
58
59
60
uses crt;
{-----------------ejercicio 1-------------------------------------}
procedure promedio;
var
	i,notas:integer;
	suma,promedio:real;
begin
	clrscr;
	i:=0;
	suma:=0;
	promedio:=0;
 
	repeat
		write('Digite la nota (1-10): ');
		readln(notas);
 
		if (notas > 0) and (notas < 11) then begin
			suma:=suma + notas;
			inc(i);
		end;
 
	until notas > 10;
	promedio:=suma / i;
	writeln('El promedio de las notas es: ',promedio:4:2);
end;
{---------------ejercicio 2-----------------------------------------------------}
procedure alturas;
var
	alturas,s,p:real;
	i,n:integer;
begin
	s:=0;
	write('Cuantas alturas va a promediar: ');
	readln(n);
	for i:=1 to n do begin
		write('Ingrese altura: ');
		readln(alturas);
		s:=s + alturas;
	end;
	p:=s / i;
	writeln('La altura promedio es: ',p:4:2);
end;
{-----------------------ejercicio 3---------------------------------------------}
procedure mostrar;
var
	valor,i:integer;
begin
	write('Digite un valor positivo: ');
	readln(valor);
	for i:=1 to valor do
		write(i,' ');
end;
{---------Programa principal----------------------------------------}
begin
	promedio;
	writeln;
	alturas;
	writeln;
	mostrar;
end.
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