-
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
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.
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.