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