• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Una empresa de servicios de comunicaciones por aniversario otorga a sus clientes megas para navegar por internet dentro de su planes actuales. Considerar que los clientes se encuentran en los siguientes planes:

    Tipo de Plan
    A
    B
    C

    Los clientes que se encuentren en el plan A ó B, recibirán megas de acuerdo al tiempo de antigüedad como cliente, como se muestra en la tabla:
    Tiempo antigüedad (años) | Megas otorgados
    tiempo <= 4 | 20
    4 < tiempo <= 10 | 30
    10 < tiempo | 40

    En el caso de los usuarios de plan C tendrán 10 megas otorgados. Considerar los datos de ingreso: nombre, tipo de plan, tiempo de antigüedad y cantidad actual de megas disponibles.
    Se requiere calcular la cantidad actual de megas del cliente.
    1. Ingreso de datos.
    2. Cantidad de actual de megas .
    3. Visualizar nombre, plan y cantidad actual de megas.

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
Proceso PlanesDeMegas
    Escribir Sin Saltar "Ingresa el nombre:";
    Leer nombre;
    Escribir Sin Saltar "Ingresa el valor de antiguedad:";
    Leer antiguedad;
    megas <- 0;
    Escribir "Selecciona el valor de plan.";
    Escribir "    1.- A";
    Escribir "    2.- B";
    Escribir "    3.- C";
    Escribir Sin Saltar "    :";
    Repetir
        Leer plan;
        Si plan<1 O plan>3 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que plan>=1 Y plan<=3;
    Si plan = 1 Entonces
        Escribir "Plan A";
    FinSi
    Si plan = 2 Entonces
        Escribir "Plan B";
    FinSi
    Si plan = 3 Entonces
        Escribir "Plan C";
        megas <- 10;
    FinSi
    Si (plan = 1 O plan=2) Y antiguedad<=4 Entonces
        megas <- 20;
    FinSi
    Si (plan = 1 O plan=2) Y antiguedad>4 Y antiguedad<=10 Entonces
        megas <- 30;
    FinSi
    Si (plan = 1 O plan=2) Y antiguedad>10 Entonces
        megas <- 40;
    FinSi
    Escribir "Nombre: ", nombre;
    Escribir "Valor de megas: ", megas;
FinProceso