-
Lenguaje
Pascal
-
Descripción
Se requiere saber cuánto deberá pagar un alumno por su matrícula en la Universidad, a partir de un valor X positivo ingresado y según el promedio de las 3 notas (entre 1 y 10) obtenidas en el colegio. Si el promedio es mayor o igual a 9.0, se aplica un descuento del 15% en su matrícula, si es mayor a 7.0 pero menor a 9.0, el descuento es del 8%; de lo contrario, sólo se le aplica 6%.
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
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
program DescuentoPorMatricula;
uses crt;
var descuento, matricula, nota_1, nota_2, nota_3 : real;
var pago, promedio : real;
begin
write ('Ingresa el valor de matricula: ');
readln (matricula);
write ('Ingresa el valor de nota 1: ');
readln (nota_1);
write ('Ingresa el valor de nota 2: ');
readln (nota_2);
write ('Ingresa el valor de nota 3: ');
readln (nota_3);
promedio := (nota_1+nota_2+nota_3)/3;
descuento := 0;
if promedio>=9.0 then
begin
descuento := matricula*0.15;
end;
if (promedio>7.0) and (promedio<9.0) then
begin
descuento := matricula*0.08;
end;
if promedio<=7.0 then
begin
descuento := matricula*0.06;
end;
pago := matricula-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln ('Valor de promedio: ', promedio:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento, matricula, nota_1, nota_2, nota_3 : real;
var pago, promedio : real;
begin
write ('Ingresa el valor de matricula: ');
readln (matricula);
write ('Ingresa el valor de nota 1: ');
readln (nota_1);
write ('Ingresa el valor de nota 2: ');
readln (nota_2);
write ('Ingresa el valor de nota 3: ');
readln (nota_3);
promedio := (nota_1+nota_2+nota_3)/3;
descuento := 0;
if promedio>=9.0 then
begin
descuento := matricula*0.15;
end;
if (promedio>7.0) and (promedio<9.0) then
begin
descuento := matricula*0.08;
end;
if promedio<=7.0 then
begin
descuento := matricula*0.06;
end;
pago := matricula-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln ('Valor de promedio: ', promedio:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.