• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Ingrese el nombre del comprador, el importe de pago inicial y la forma de pago (1, 2); muestre el recargo o descuento y el importe de pago final; para continuar con el ingreso de datos de otro comprador digite una "S" o una "N" para terminar, cuando esto ocurra muestre:
    - Cantidad de clientes que pagaron al contado.
    - Cantidad de clientes que pagaron al crédito.
    - Total del importe de pago final recaudado.
    Tenga en cuenta que si el tipo de pago fue 1 se refiere a que el importe de pago se realizó al contado y por lo tanto tendrá un descuento del 15% respecto al importe de pago inicial, si el tipo de pago fue 2 se refiere a que el importe de pago se realizó con tarjeta de crédito y por lo tanto tendrá un recargo del 10% respecto al importe de pago inicial.

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
40
41
Proceso PagoAlContadoOACredito
    pagaron_a_credito <- 0;
    pagos_al_contado <- 0;
    Repetir
        Escribir Sin Saltar "Ingresa el nombre del comprador:";
        Leer nombre_del_comprador;
        Escribir Sin Saltar "Ingresa el valor de pago inicial:";
        Leer pago_inicial;
        Escribir "Selecciona el valor de forma de pago.";
        Escribir "    1.- Contado";
        Escribir "    2.- Crédito";
        Escribir Sin Saltar "    :";
        Repetir
            Leer forma_de_pago;
            Si forma_de_pago<1 O forma_de_pago>2 Entonces
                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
            FinSi
        Hasta Que forma_de_pago>=1 Y forma_de_pago<=2;
        Si forma_de_pago = 1 Entonces
            pagos_al_contado <- pagos_al_contado+1;
            descuento <- pago_inicial*0.15;
        SiNo
            pagaron_a_credito <- pagaron_a_credito+1;
            recargo <- pago_inicial*0.1;
        FinSi
        pago_final <- pago_inicial+recargo-descuento;
        final_recaudado <- final_recaudado+pago_final;
        Escribir "Nombre del comprador: ", nombre_del_comprador;
        Escribir "Valor de descuento: ", descuento;
        Escribir "Valor de final recaudado: ", final_recaudado;
        Escribir "Valor de pago final: ", pago_final;
        Escribir "Valor de recargo: ", recargo;
        Escribir "";
        Repetir
            Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
            Leer tecla_repetir;
        Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
    Hasta Que tecla_repetir='n' O tecla_repetir='N'
    Escribir "Valor de pagaron a credito: ", pagaron_a_credito;
    Escribir "Valor de pagos al contado: ", pagos_al_contado;
FinProceso