-
Lenguaje
Pascal
-
Descripción
El promedio final de un curso se obtiene sobre la base del promedio simple de tres prácticas calificadas. Para ayudar a los alumnos, el profesor del curso ha decidido incrementar en dos puntos las notas de las prácticas no menores que 10. Dadas las tres notas de práctica de un estudiante, diseñe un programa que determine el promedio final que le corresponde. Considere que la nota máxima es 20.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program PromedioFinalDeUnCurso;
uses crt;
var nota_de_practica_1, nota_de_practica_2, nota_de_practica_3, promedio_final : real;
begin
write ('Ingresa el valor de nota de practica 1: ');
readln (nota_de_practica_1);
write ('Ingresa el valor de nota de practica 2: ');
readln (nota_de_practica_2);
write ('Ingresa el valor de nota de practica 3: ');
readln (nota_de_practica_3);
promedio_final := nota_de_practica_1+nota_de_practica_2+nota_de_practica_3;
if (nota_de_practica_1>=10) and (nota_de_practica_1<18) then
begin
promedio_final := promedio_final+2;
end;
if (nota_de_practica_2>=10) and (nota_de_practica_2<18) then
begin
promedio_final := promedio_final+2;
end;
if (nota_de_practica_3>=10) and (nota_de_practica_3<18) then
begin
promedio_final := promedio_final+2;
end;
if (nota_de_practica_1>=18) and (nota_de_practica_1<20) then
begin
promedio_final := promedio_final-nota_de_practica_1+20;
end;
if (nota_de_practica_2>=18) and (nota_de_practica_2<20) then
begin
promedio_final := promedio_final-nota_de_practica_2+20;
end;
if (nota_de_practica_3>=18) and (nota_de_practica_3<20) then
begin
promedio_final := promedio_final-nota_de_practica_3+20;
end;
promedio_final := promedio_final/3;
writeln ('Valor de promedio final: ', promedio_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var nota_de_practica_1, nota_de_practica_2, nota_de_practica_3, promedio_final : real;
begin
write ('Ingresa el valor de nota de practica 1: ');
readln (nota_de_practica_1);
write ('Ingresa el valor de nota de practica 2: ');
readln (nota_de_practica_2);
write ('Ingresa el valor de nota de practica 3: ');
readln (nota_de_practica_3);
promedio_final := nota_de_practica_1+nota_de_practica_2+nota_de_practica_3;
if (nota_de_practica_1>=10) and (nota_de_practica_1<18) then
begin
promedio_final := promedio_final+2;
end;
if (nota_de_practica_2>=10) and (nota_de_practica_2<18) then
begin
promedio_final := promedio_final+2;
end;
if (nota_de_practica_3>=10) and (nota_de_practica_3<18) then
begin
promedio_final := promedio_final+2;
end;
if (nota_de_practica_1>=18) and (nota_de_practica_1<20) then
begin
promedio_final := promedio_final-nota_de_practica_1+20;
end;
if (nota_de_practica_2>=18) and (nota_de_practica_2<20) then
begin
promedio_final := promedio_final-nota_de_practica_2+20;
end;
if (nota_de_practica_3>=18) and (nota_de_practica_3<20) then
begin
promedio_final := promedio_final-nota_de_practica_3+20;
end;
promedio_final := promedio_final/3;
writeln ('Valor de promedio final: ', promedio_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.