Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Algoritmia » imprimir la lista de calificaciones aprobatorias

Algoritmia - imprimir la lista de calificaciones aprobatorias

Volver
Nuevo Tema
<<>>
 
Vista:

imprimir la lista de calificaciones aprobatorias

Publicado por usuario1 (1 intervención) el 18/10/2017 06:58:00
El usuario introducirá tantas calificaciones como él quiera. Y el programa imprimirá la lista de calificaciones aprobatorias (6 a 10) y cuántas son aprobatorias, cuántas son reprobatorias y su lista correspondiente (1 hasta menos de 6), cuántas son no válidas (mayor de 10 o menor de o) y su lista , cuantos son y su lista. También, que el programa sea repetitivo, hasta que el usuario lo quiera
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: 303
Oro
Ha mantenido su posición en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

imprimir la lista de calificaciones aprobatorias

Publicado por dario (32 intervenciones) el 23/10/2017 16:06:38
Te dejo este codigo en pascal.

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
uses crt;
var
	calificaciones:array[1..100] of byte;
	invalido,dp,ap,n,i,j:byte;
begin
	clrscr;
 
	ap:=0;
	dp:=0;
	invalido:=0;
 
	write('Cuantas calificaciones desea ingresar: ');
	readln(n);
	for i:=1 to n do begin
		write('Ingrese calificacion: ');
		readln(calificaciones[i]);
	end;
 
	//notas y total notas aprobatorias

	writeln;
	writeln('Notas aprobatorias');
	for j:=1 to i do begin
		if (calificaciones[j] >= 6) and (calificaciones[j] <= 10) then begin
			writeln(calificaciones[j]);
			inc(ap);
		end;
	end;
	writeln('Total: ',ap);
 
	//notas y total reprobatorios

	writeln;
	writeln('Notas reprobatorias');
	for j:=1 to i do begin
		if (calificaciones[j] >= 1) and (calificaciones[j] < 6) then begin
			writeln(calificaciones[j]);
			inc(dp);
		end;
	end;
	writeln('Total: ',dp);
 
	//notas no validas

	writeln;
	writeln('Notas no validas');
	for j:=1 to i do begin
		if (calificaciones[j] < 0) or (calificaciones[j] > 10) then begin
			writeln(calificaciones[j]);
			inc(invalido);
		end;
	end;
	writeln('Total: ',invalido);
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