• Lenguaje

    Pascal

  • Descripción

    Un alumno desea saber su calificación final en su curso. Dicha calificación se compone de 3 exámenes parciales el 1er examen vale el 30%, 2do 30% y el final 40%, el final mostrarla nota final.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program CalificacionFinalDelCurso;
uses crt;

var examen_1, examen_2, examen_3, nota_final : real;
begin
    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 examen 3: ');
    readln (examen_3);
    nota_final := examen_1*0.3+examen_2*0.3+examen_3*0.4;
    writeln ('Valor de nota final: ', nota_final:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.