-
Lenguaje
Pascal
-
Descripción
La profesora Laura Mancilla necesita calcular la calificación definitiva para cada uno de los 22 alumnos que asisten a su curso de geometría. Ella realizó a todos sus estudiantes, en el primer periodo del año lectivo, dos exámenes y asignó un trabajo de investigación. Cada examen tiene un valor del 40% de su calificación final y el trabajo de investigación tienen un valor del 20%. ¿Cómo puedes ayudarle?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program CalificacionDeGeometria;
uses crt;
var i : integer;
var calificacion_definitiva, examen_1, examen_2, trabajo_de_investigacion : real;
begin
for i:=1 to 22 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de examen 1: ');
readln (examen_1);
write ('Ingresa el valor de examen 2: ');
readln (examen_2);
write ('Ingresa el valor de trabajo de investigacion: ');
readln (trabajo_de_investigacion);
calificacion_definitiva := examen_1*0.4+examen_2*0.4+trabajo_de_investigacion*0.2;
writeln ('Valor de calificacion definitiva: ', calificacion_definitiva:0:6);
writeln;
end;
end.
uses crt;
var i : integer;
var calificacion_definitiva, examen_1, examen_2, trabajo_de_investigacion : real;
begin
for i:=1 to 22 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de examen 1: ');
readln (examen_1);
write ('Ingresa el valor de examen 2: ');
readln (examen_2);
write ('Ingresa el valor de trabajo de investigacion: ');
readln (trabajo_de_investigacion);
calificacion_definitiva := examen_1*0.4+examen_2*0.4+trabajo_de_investigacion*0.2;
writeln ('Valor de calificacion definitiva: ', calificacion_definitiva:0:6);
writeln;
end;
end.