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