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