• Lenguaje

    Pascal

  • Descripción

    Leer los datos de entrada de un grupo de 30 alumnos. Los datos son los siguientes:
    Nombre, calif1, calif2, calif3, examen_F y trabajoFinal
    Obtener la calificación final del curso por cada alumno, tomando en cuenta que el 80% de la calificación final es el promedio de las 3 calificaciones parciales, el 15% es el exámen_F, y el 5% es el trabajo final. Utilice la técnica del contador.

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
program CalificacionFinalDe30Alumnos;
uses crt;

var i : integer;
var calif1, calif2, calif3, calificacion_final, examen_F : real;
var trabajoFinal : real;
var Nombre : string;
begin
    for i:=1 to 30 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el Nombre: ');
        readln (Nombre);
        write ('Ingresa el valor de calif1: ');
        readln (calif1);
        write ('Ingresa el valor de calif2: ');
        readln (calif2);
        write ('Ingresa el valor de calif3: ');
        readln (calif3);
        write ('Ingresa el valor de examen F: ');
        readln (examen_F);
        write ('Ingresa el valor de trabajoFinal: ');
        readln (trabajoFinal);
        calificacion_final := (calif1+calif2+calif3)0.8+examen_F*0.15+trabajoFinal*0.05;
        writeln ('Nombre: ', Nombre);
        writeln ('Valor de calificacion final: ', calificacion_final:0:6);
        writeln;
    end;
end.