-
Lenguaje
Pascal
-
Descripción
Un profesor requiere conocer la calificación alta, media y la baja de todo un grupo, para ello, el profesor debe inicialmente indicar la cantidad de estudiantes del grupo y posteriormente ingresar la nota definitiva de cada uno de ellos.
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
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
program CalificacionAltaMediaYBaja;
uses crt;
var i, n : integer;
var calificacian_alta, calificacian_baja, calificacian_media, nota_definitiva : real;
begin
calificacian_alta := 0;
calificacian_baja := 0;
calificacian_media := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de nota definitiva: ');
readln (nota_definitiva);
if (i=1) or (calificacian_alta<nota_definitiva) then
begin
calificacian_alta := nota_definitiva;
end;
if (i=1) or (calificacian_baja>nota_definitiva) then
begin
calificacian_baja := nota_definitiva;
end;
calificacian_media := calificacian_media+nota_definitiva;
writeln;
end;
if n = 0 then
calificacian_media := 0
else
calificacian_media := calificacian_media/n;
writeln ('Valor de calificacian alta: ', calificacian_alta:0:6);
writeln ('Valor de calificacian baja: ', calificacian_baja:0:6);
writeln ('Valor de calificacian media: ', calificacian_media:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, n : integer;
var calificacian_alta, calificacian_baja, calificacian_media, nota_definitiva : real;
begin
calificacian_alta := 0;
calificacian_baja := 0;
calificacian_media := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de nota definitiva: ');
readln (nota_definitiva);
if (i=1) or (calificacian_alta<nota_definitiva) then
begin
calificacian_alta := nota_definitiva;
end;
if (i=1) or (calificacian_baja>nota_definitiva) then
begin
calificacian_baja := nota_definitiva;
end;
calificacian_media := calificacian_media+nota_definitiva;
writeln;
end;
if n = 0 then
calificacian_media := 0
else
calificacian_media := calificacian_media/n;
writeln ('Valor de calificacian alta: ', calificacian_alta:0:6);
writeln ('Valor de calificacian baja: ', calificacian_baja:0:6);
writeln ('Valor de calificacian media: ', calificacian_media:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.