Evaluaciones de Principios de Algoritmos en lenguaje Pascal

Lenguaje

Pascal
Descripción

En la asignatura denominada Principios de Algoritmos se realizaron 5 evaluaciones. Las evaluaciones tienen una calificación del 1 al 20. La primera evaluación tiene un peso del 15%, la segunda tiene un peso del 30%, la tercera tiene un peso de 25%, la cuarta tiene un peso de 10% y la última tiene un peso del 20%. Realice un algoritmo que determine la calificación final de un estudiante sabiendo que se tiene como datos de entrada la nota (en la escala del 1 al 20) de cada evaluación.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

program EvaluacionesDePrincipiosDeAlgoritmos;

uses crt;

var calificacion_final, cuarta_evaluacion, primera_evaluacion, segunda_evaluacion, tercera_evaluacion : real;

var ultima_evaluacion : real;

begin

    write ('Ingresa el valor de cuarta evaluacion: ');

    readln (cuarta_evaluacion);

    write ('Ingresa el valor de primera evaluacion: ');

    readln (primera_evaluacion);

    write ('Ingresa el valor de segunda evaluacion: ');

    readln (segunda_evaluacion);

    write ('Ingresa el valor de tercera evaluacion: ');

    readln (tercera_evaluacion);

    write ('Ingresa el valor de ultima evaluacion: ');

    readln (ultima_evaluacion);

    calificacion_final := primera_evaluacion*0.15+segunda_evaluacion*0.3+tercera_evaluacion*0.25+cuarta_evaluacion*0.1+ultima_evaluacion*0.2;

    writeln ('Valor de calificacion final: ', calificacion_final:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.