-
Lenguaje
Pascal
-
Descripción
A un grupo de 150 alumnos se le ha tomado dos evaluaciones. Si el promedio de las evaluaciones supera los 6 puntos podrá seguir cursando el segundo semestre sino, deberá recuperar el año. Realice un diagrama para decirle a este alumno si puede seguir cursando o deberá recursar.
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
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
program PromedioDe2Evaluaciones;
uses crt;
var i : integer;
var evaluacion_1, evaluacion_2, promedio : real;
begin
for i:=1 to 150 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de evaluacion 1: ');
readln (evaluacion_1);
write ('Ingresa el valor de evaluacion 2: ');
readln (evaluacion_2);
promedio := (evaluacion_1+evaluacion_2)/2;
if promedio>6 then
begin
writeln ('Puede seguir cursando el segundo semestre');
end
else
begin
writeln ('Debe recursar');
end;
writeln ('Valor de promedio: ', promedio:0:6);
writeln;
end;
end.
uses crt;
var i : integer;
var evaluacion_1, evaluacion_2, promedio : real;
begin
for i:=1 to 150 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de evaluacion 1: ');
readln (evaluacion_1);
write ('Ingresa el valor de evaluacion 2: ');
readln (evaluacion_2);
promedio := (evaluacion_1+evaluacion_2)/2;
if promedio>6 then
begin
writeln ('Puede seguir cursando el segundo semestre');
end
else
begin
writeln ('Debe recursar');
end;
writeln ('Valor de promedio: ', promedio:0:6);
writeln;
end;
end.