Advertisement
cardel

FDP Ejercicio 22 de Agosto

Aug 22nd, 2020 (edited)
404
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.80 KB | None | 0 0
  1. Un supermercado requiere una aplicación para el calculo
  2. de una venta. El supermercado vende los siguientes tipos
  3. de productos, los cuales son:
  4. 1) Frutas: Las cuales tienen un nombre, peso(g) y un valor
  5. gramos
  6. 2) Carnes: las cuales itenen un nombre, un tipo (cerdo, pollo,
  7. res y pescado) y un peso (g)
  8. - Si es cerdo, tiene un nombre (parte) y un precio(g)
  9. - Si es pollo, tiene un nombre (parte), un tipo (gallina, pollo)
  10. y un precio por g
  11. - Si es res , tiene un nombre(parte), proceso(molida ono)
  12. precio por g.
  13. - Si es pesado, tiene un nombre (tipo de pez), origen (rio
  14. lago o mar) precio por g.
  15. 3) Electrodoméstico: Nombre, Marca, un precio por unidad
  16. 4) Higiene personal: Nombre, marca, precio por docena
  17. 5) Bebidas: nombre, marca, precio por unidad
  18.  
  19. Un venta es una colección de elementos que se compran,
  20. donde se tiene el elementos (producto supermercado) y
  21. el número de unidades/gramos/docenas que se compran.
  22.  
  23. Si se compran Frutas o Carnes el IVA es el 5% por estos
  24. elementos, en otro caso se aplica 19%
  25.  
  26. Diseñe una función que reciba una lista de ventas, un número
  27. de bolsas que necesita la persona (impuesto 40 por bolsa)
  28. y retorne el detallado a pagar: Subtotal, IVA, impuesto a
  29. bolsas y total a pagar.
  30.  
  31. (define-struct fruta (nombre pesoG valorG))
  32. (define-struct carne (nombre tipo pesoG))
  33.  
  34. (define-struct carne-cerdo (parte precioG))
  35. (define-struct carne-pollo (parte tipo precioG))
  36. (define-struct carne-res (parte proceso precioG))
  37. (define-struct carne-pescado (tipo origen precioG))
  38.  
  39. (define-struct electrodomestico (nombre marca precioU))
  40. (define-struct higiene (nombre marca precioD))
  41. (define-struct bebidas (nombre marca precioU))
  42.  
  43. (define-struct venta (producto unidades))
  44. (define-struct detallado (subtotal IVA bolsas total))
  45.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement