• Lenguaje

    Pascal

  • Descripción

    Digitar la notas de un estudiante y calcular e imprimir la nota final. Las notas serán digitadas todas en base a 100 puntos, por lo que deberá convertir de acuerdo a la proporción correspondiente. Las notas a digitar son:
    - Primer examen parcial: 20%
    - Prácticas primer parcial: 15%
    - Segundo examen parcial: 20%
    - Prácticas segundo parcial: 15%
    - Examen final: 30%
    Recuerde que los valores se deben digitar en base a 100.

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

var examen_final, nota_final, practicas_primer_parcial, practicas_segundo_parcial, primer_examen_parcial : real;
var segundo examen_parcial : real;
begin
    write ('Ingresa el valor de examen final: ');
    readln (examen_final);
    write ('Ingresa el valor de practicas primer parcial: ');
    readln (practicas_primer_parcial);
    write ('Ingresa el valor de practicas segundo parcial: ');
    readln (practicas_segundo_parcial);
    write ('Ingresa el valor de primer examen parcial: ');
    readln (primer_examen_parcial);
    write ('Ingresa el valor de segundo examen parcial: ');
    readln (segundo examen_parcial);
    nota_final := primer_examen_parcial*0.2+practicas_primer_parcial*0.15+segundo examen_parcial*0.2+practicas_segundo_parcial*0.15+examen_final*0.3;
    writeln ('Valor de nota final: ', nota_final:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.