• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Un club cobra una cuota mensual a sus socios a quienes dividen en activo, familiar y cadete.
    El socio activo para el valor es de $500, el familiar un 50 por ciento mas y el cadete 20 por ciento menos que el socio activo.
    Se ingresa por teclado el numero de socio, el nombre y apellido, el tipo de socio "Activo, Familiar y Cadete".
    Informar lo siguiente:
    a) El numero de socio
    b) El nombre del socio
    c) Tipo de socio
    d) Total a pagar

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
Proceso CuotaDeUnClub
    Escribir Sin Saltar "Ingresa el nombre:";
    Leer nombre;
    Escribir Sin Saltar "Ingresa el apellido:";
    Leer apellido;
    total_a_pagar <- 500;
    Escribir "Selecciona el valor de tipo de socio.";
    Escribir "    1.- Activo";
    Escribir "    2.- Familiar";
    Escribir "    3.- Cadete";
    Escribir Sin Saltar "    :";
    Repetir
        Leer tipo_de_socio;
        Si tipo_de_socio<1 O tipo_de_socio>3 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que tipo_de_socio>=1 Y tipo_de_socio<=3;
    Si tipo_de_socio = 1 Entonces
        Escribir "Activo";
        total_a_pagar <- total_a_pagar*1.5;
    FinSi
    Si tipo_de_socio = 2 Entonces
        Escribir "Familiar";
        total_a_pagar <- total_a_pagar*1.5*1.2;
    FinSi
    Si tipo_de_socio = 3 Entonces
        Escribir "Cadete";
    FinSi
    Escribir "Nombre: ", nombre;
    Escribir "Apellido: ", apellido;
    Escribir "Valor de total a pagar: ", total_a_pagar;
FinProceso