-
Lenguaje
Pascal
-
Descripción
Un padre ha decidido dar una propina a su hijo sobre la base de sus notas en los cursos de Matemáticas, Física e Historia del Perú.
a) Si la nota de Matemática es no menor de 17, le dará S/. 3.0 de propina por cada punto de la nota; en caso contrario, sólo le dará S/. 1.0 por cada punto.
b) Si la nota de Física es no menor de 15, le dará S/. 2.0 de propina por cada punto de la nota; en caso contrario, sólo le dará S/.0.5 por cada punto.
c) Si la nota de Historia del Perú es no menor de 15, le dará S/. 1.5 por cada punto de la nota; encaso contrario, sólo le dará S/. 0.3 por cada punto.
Dadas las notas de los cursos de Matemática, Física e Historia del Perú, diseñe un algoritmo que determine el monto total de la propina.
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
uses crt;
var nota_de_fisica, nota_de_historia, nota_de_matematica, propina : real;
begin
write ('Ingresa el valor de nota de fisica: ');
readln (nota_de_fisica);
write ('Ingresa el valor de nota de historia: ');
readln (nota_de_historia);
write ('Ingresa el valor de nota de matematica: ');
readln (nota_de_matematica);
propina := 0;
if nota_de_matematica>=17 then
begin
propina := propina+nota_de_matematica*3;
end
else
begin
propina := propina+nota_de_matematica;
end;
if nota_de_fisica>=15 then
begin
propina := propina+nota_de_fisica*2;
end
else
begin
propina := propina+nota_de_fisica*0.5;
end;
if nota_de_historia>=15 then
begin
propina := propina+nota_de_historia*1.5;
end
else
begin
propina := propina+nota_de_historia*0.3;
end;
writeln ('Valor de propina: ', propina:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.