• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    El Instituto de Educación Superior Tecnológico "TELESUP" estableció un programa para estimular a los alumnos con buen rendimiento académico y que consiste en lo siguiente:
    - Si el promedio es de 20 más, entonces este podrá utilizar 25 créditos y se le hará un 25% de descuento sobre la matrícula.
    - Si el promedio es mayor o igual a 18 pero menor que 20, entonces este podrá cursar 20 créditos y se le hará un 10% de descuento sobre la matrícula.
    - Si el promedio es mayor que 15 y menor que 18, este podrá cursar 20 créditos y no tendrá ningún descuento sobre la matrícula.
    - Si el promedio es de 12 o menor y el número de materias reprobadas es de 0 a 3, entonces podrá cursar 15 créditos y no tendrá descuento.
    - Si el promedio es de 12 o menor y el número de materias reprobadas es de 4 o más, entonces podrá cursar 10 créditos y no tendrá ningún descuento.
    Obtener el total que tendrá que pagar un alumno si la matrícula para alumnos es de S/. 30.00 por cada cinco créditos.

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
Proceso Telesup
    Escribir Sin Saltar "Ingresa el valor de materias reprobadas:";
    Leer materias_reprobadas;
    Escribir Sin Saltar "Ingresa el valor de promedio:";
    Leer promedio;
    descuento <- 0;
    creditos <- 0;
    Si promedio>=20 Entonces
        creditos <- 25;
        descuento <- 0.25;
    FinSi
    Si promedio>=18 Y promedio<20 Entonces
        creditos <- 20;
        descuento <- 0.1;
    FinSi
    Si promedio>15 Y promedio<18 Entonces
        creditos <- 20;
    FinSi
    Si promedio<=12 Y materias_reprobadas>=0 Y materias_reprobadas<=3 Entonces
        creditos <- 15;
    FinSi
    Si promedio<=12 Y materias_reprobadas>=4 Entonces
        creditos <- 10;
    FinSi
    total_a_pagar <- (30.0*creditos/5.0)*(1.0-descuento);
    Escribir "Valor de creditos: ", creditos;
    Escribir "Valor de descuento: ", descuento;
    Escribir "Valor de total a pagar: ", total_a_pagar;
FinProceso