-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Un cliente hace un pedido de libros, cuadernos y revistas; los libros tienen un descuento del 22%, las revistas del 16% y los cuadernos del 10%. Los datos que se ingresan para cada tipo de artículos son: la cantidad pedida, él precio unitario y el tipo de pago. Si el pago es al contado, se tiene un descuento de 6%, en cualquiera de los casos. Hacer un algoritmo que calcule e imprima el costo total del pedido considerado el tipo de pago.
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
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
Proceso PedidoDeLibrosCuadernosYRevistas
Escribir Sin Saltar "Ingresa el valor de cantidad de cuadernos:";
Leer cantidad_de_cuadernos;
Escribir Sin Saltar "Ingresa el valor de cantidad de libros:";
Leer cantidad_de_libros;
Escribir Sin Saltar "Ingresa el valor de cantidad de revistas:";
Leer cantidad_de_revistas;
Escribir Sin Saltar "Ingresa el valor de precio por cuaderno:";
Leer precio_por_cuaderno;
Escribir Sin Saltar "Ingresa el valor de precio por libro:";
Leer precio_por_libro;
Escribir Sin Saltar "Ingresa el valor de precio por revista:";
Leer precio_por_revista;
subtotal <- cantidad_de_libros*precio_por_libro+cantidad_de_revistas*precio_por_revista+cantidad_de_cuadernos*precio_por_cuaderno;
descuento <- cantidad_de_libros*precio_por_libro*0.22+cantidad_de_revistas*precio_por_revista*0.16+cantidad_de_cuadernos*precio_por_cuaderno*0.1;
Escribir "Selecciona el valor de tipo de pago.";
Escribir " 1.- Tarjeta";
Escribir " 2.- Contado";
Escribir " 3.- Vales";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_pago;
Si tipo_de_pago<1 O tipo_de_pago>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_pago>=1 Y tipo_de_pago<=3;
Si tipo_de_pago = 2 Entonces
descuento <- descuento+subtotal*0.06;
FinSi
total <- subtotal-descuento;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de subtotal: ", subtotal;
Escribir "Valor de total: ", total;
FinProceso
Escribir Sin Saltar "Ingresa el valor de cantidad de cuadernos:";
Leer cantidad_de_cuadernos;
Escribir Sin Saltar "Ingresa el valor de cantidad de libros:";
Leer cantidad_de_libros;
Escribir Sin Saltar "Ingresa el valor de cantidad de revistas:";
Leer cantidad_de_revistas;
Escribir Sin Saltar "Ingresa el valor de precio por cuaderno:";
Leer precio_por_cuaderno;
Escribir Sin Saltar "Ingresa el valor de precio por libro:";
Leer precio_por_libro;
Escribir Sin Saltar "Ingresa el valor de precio por revista:";
Leer precio_por_revista;
subtotal <- cantidad_de_libros*precio_por_libro+cantidad_de_revistas*precio_por_revista+cantidad_de_cuadernos*precio_por_cuaderno;
descuento <- cantidad_de_libros*precio_por_libro*0.22+cantidad_de_revistas*precio_por_revista*0.16+cantidad_de_cuadernos*precio_por_cuaderno*0.1;
Escribir "Selecciona el valor de tipo de pago.";
Escribir " 1.- Tarjeta";
Escribir " 2.- Contado";
Escribir " 3.- Vales";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_pago;
Si tipo_de_pago<1 O tipo_de_pago>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_pago>=1 Y tipo_de_pago<=3;
Si tipo_de_pago = 2 Entonces
descuento <- descuento+subtotal*0.06;
FinSi
total <- subtotal-descuento;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de subtotal: ", subtotal;
Escribir "Valor de total: ", total;
FinProceso