| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 10:18:11 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=2a61aef681b5054c193e71035d0ca0ca1d50ba0a32ae292ec12a61785948428fa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22pTYzE6XbFzGXbbvjK6zpBdV_HgholVNu%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d5da0919c01ec2-BLR
Ejemplo 3 FDP 01 de Feb - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Una tienda de donas requiere una aplicación para calcular el valor
- ; de la venta de las donas. Esta tienda maneja 4 tipos de donas
- ;
- ; - Donas junior: Color, adicion, precio
- ; - Donas para la señorita: Color, azucar?, precio
- ; - Donas para el señor: Color, peso, precio
- ; - Donas para la abuelita: Color, azucar?, peso, precio
- ;
- ; Se desea calcular el precio de venta de un compra de donas, bajo
- ; la restricción de que siempre compra un mismo tipo de dona.
- ; 1. Diseño de las estructuras
- ; 2. Especificación de contrato. 3. Diseño de la función.
- ;
- (define-struct donnaJ (color adicion precio))
- (define-struct donnaS (color azucar? precio))
- (define-struct donnaH (color peso precio))
- (define-struct donnaA (color azucar? peso precio))
- (define donnita1 (make-donnaJ 'verde 'chocolate 2000))
- (define donnita2 (make-donnaS 'rojo #false 3000))
- (define donnita3 (make-donnaH 'morado 20 5000))
- (define donnita4 (make-donnaA 'amarillo #true 30 4000))
- ;;Autor: Carlos A Delgado
- ;;Fecha: 01 de Febrero de 2021
- ;;COntrato: calcular-venta: donna, numero -> numero
- ;;Propósito: Calcular el precio de venta de unas donnas
- ;;Ejemplos
- ;; donnita1 10 20000
- ;; donnita2 5 15000
- ;; donnita3 20 100000
- ;; donnita4 8 32000
- (define (calcular-venta don cnt)
- (cond
- [(donnaJ? don) (* (donnaJ-precio don) cnt)]
- [(donnaS? don) (* (donnaS-precio don) cnt)]
- [(donnaH? don) (* (donnaH-precio don) cnt)]
- [(donnaA? don) (* (donnaA-precio don) cnt)]
- [else (error "Debe ingresar una estructura tipo donna a la función")]
- ))
- ;;Pruebas
- (check-expect (calcular-venta donnita1 10) 20000)
- (check-expect (calcular-venta donnita2 5) 15000)
- (check-expect (calcular-venta donnita3 20) 100000)
- (check-expect (calcular-venta donnita4 8) 32000)
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐MAKE $1000 INSTANTLY⭐⭐
Java | 4 sec ago | 0.10 KB
-
⭐⭐⭐Profit Method⭐⭐
Java | 5 sec ago | 0.10 KB
-
⭐⭐⭐Exchange Exploit T I⭐⭐
Java | 9 sec ago | 0.10 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D M⭐⭐
Java | 15 sec ago | 0.10 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 17 sec ago | 0.10 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 20 sec ago | 0.10 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D A⭐⭐
Java | 26 sec ago | 0.10 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 28 sec ago | 0.10 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
