• 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
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.