-
Lenguaje
Pascal
-
Descripción
Suponga que se tiene un conjunto de calificaciones de un grupo de 40 alumnos. Calcular la calificación más alta y la calificación más baja de todo el grupo.
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
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
program CalificacionMasAltaYMasBaja;
uses crt;
var i : integer;
var calificacion, mas_alta, mas_baja : real;
begin
mas_alta := 0;
mas_baja := 0;
for i:=1 to 40 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
if (i=1) or (mas_alta<calificacion) then
begin
mas_alta := calificacion;
end;
if (i=1) or (mas_baja>calificacion) then
begin
mas_baja := calificacion;
end;
writeln;
end;
writeln ('Valor de mas alta: ', mas_alta:0:6);
writeln ('Valor de mas baja: ', mas_baja:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var calificacion, mas_alta, mas_baja : real;
begin
mas_alta := 0;
mas_baja := 0;
for i:=1 to 40 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
if (i=1) or (mas_alta<calificacion) then
begin
mas_alta := calificacion;
end;
if (i=1) or (mas_baja>calificacion) then
begin
mas_baja := calificacion;
end;
writeln;
end;
writeln ('Valor de mas alta: ', mas_alta:0:6);
writeln ('Valor de mas baja: ', mas_baja:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.