• Lenguaje

    Pascal

  • Descripción

    Un alumno desea saber cuál será su calificación final en la materia de algoritmos. Dicha calificación se compone de los siguientes porcentajes:
    - 55% del promedio de sus tres calificaciones parciales.
    - 30% de la calificación del examen final.
    - 15% de la calificación de un trabajo final.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program CalificacionFinalEnAlgoritmos;
uses crt;

var calificacion_final, examen_final, parcial_1, parcial_2, parcial_3 : real;
var promedio_parciales, trabajo_final : real;
begin
    write ('Ingresa el valor de examen final: ');
    readln (examen_final);
    write ('Ingresa el valor de parcial 1: ');
    readln (parcial_1);
    write ('Ingresa el valor de parcial 2: ');
    readln (parcial_2);
    write ('Ingresa el valor de parcial 3: ');
    readln (parcial_3);
    write ('Ingresa el valor de trabajo final: ');
    readln (trabajo_final);
    promedio_parciales := (parcial_1+parcial_2+parcial_3)/3;
    calificacion_final := promedio_parciales*0.55+examen_final*0.3+trabajo_final*0.15;
    writeln ('Valor de calificacion final: ', calificacion_final:0:6);
    writeln ('Valor de promedio parciales: ', promedio_parciales:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.