| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 06:13:24 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=f13ca85fe4c6eeb4283d8b85235006b8cb55c557f530cc1fdae9e5efe938a255a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22z7_R3p6Berpygv1BBNno90L3wuAZQLOl%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cc36172c75ad8b-BLR
Asistente de cálculo "El Ahorrito" - Pastebin.com
SHARE
TWEET
Asistente de cálculo "El Ahorrito"
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #lang racket
- (define (ayuda)
- (displayln "----- SUPERMERCADOS EL AHORRITO -----")
- (displayln "-------- ASISTENTE DE CÁLCULO -------")
- (displayln "Para calcular la cantidad de dinero en una bolsa de monedas")
- (displayln " 1. Con las denominaciones promedio, escriba (calcular_monedas _promedio)")
- (displayln " 2. Con denominaciones personalizadas, escriba (calcular_monedas_diferentes)")
- (displayln "Para volver a este menu, escriba (ayuda)")
- )
- (ayuda)
- (define (averageCoinBag n20 n50 n100 n200 n500)
- (+ (* 20 n20)(* 50 n50)(* 100 n100)(* 200 n200)(* 500 n500))
- )
- (define (calcular_monedas_promedio)
- (define monedas20 0)
- (define monedas50 0)
- (define monedas100 0)
- (define monedas200 0)
- (define monedas500 0)
- (displayln "--- CANTIDAD DE DINERO EN LA BOLSA (DENOMINACIONES PROMEDIO) ---")
- (displayln "¿Cuantas monedas de $20 hay?")
- (set! monedas20 (read))
- (displayln "¿Cuantas monedas de $50 hay?")
- (set! monedas50 (read))
- (displayln "¿Cuantas monedas de $100 hay?")
- (set! monedas100 (read))
- (displayln "¿Cuantas monedas de $200 hay?")
- (set! monedas200 (read))
- (displayln "¿Cuantas monedas de $500 hay?")
- (set! monedas500 (read))
- (displayln "La cantidad de dinero en la bolsa es de:")
- (averageCoinBag monedas20 monedas50 monedas100 monedas200 monedas500)
- )
- (define (differentCoinBag t1 n1 t2 n2 t3 n3 t4 n4 t5 n5)
- (+ (* t1 n1)(* t2 n2)(* t3 n3)(* t4 n4)(* t5 n5))
- )
- (define (calcular_monedas_diferentes)
- (define tipo1 0)(define cantidad1 0)
- (define tipo2 0)(define cantidad2 0)
- (define tipo3 0)(define cantidad3 0)
- (define tipo4 0)(define cantidad4 0)
- (define tipo5 0)(define cantidad5 0)
- (displayln "--- CANTIDAD DE DINERO EN LA BOLSA (DENOMINACIONES PERSONALIZADAS) ---")
- (displayln "¿Cuál es la primera denominación?")
- (set! tipo1 (read))
- (displayln "¿Cuántas monedas hay de la primera denominación?")
- (set! cantidad1 (read))
- (displayln "¿Cuál es la segunda denominación?")
- (set! tipo2 (read))
- (displayln "¿Cuántas monedas hay de la segunda denominación?")
- (set! cantidad2 (read))
- (displayln "¿Cuál es la tercera denominación?")
- (set! tipo3 (read))
- (displayln "¿Cuántas monedas hay de la tercera denominación?")
- (set! cantidad3 (read))
- (displayln "¿Cuál es la cuarta denominación?")
- (set! tipo4 (read))
- (displayln "¿Cuántas monedas hay de la cuarta denominación?")
- (set! cantidad4 (read))
- (displayln "¿Cuál es la quinta denominación?")
- (set! tipo5 (read))
- (displayln "¿Cuántas monedas hay de la quinta denominación?")
- (set! cantidad5 (read))
- (displayln "El total de dinero en la bolsa es de:")
- (differentCoinBag tipo1 cantidad1 tipo2 cantidad2 tipo3 cantidad3 tipo4 cantidad4 tipo5 cantidad5)
- )
Tags:
math
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 8 sec ago | 0.24 KB
-
✅⭐ Make $2500 in 15 minutes ✅ NEVER SEEN BEFO...
JavaScript | 17 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 30 sec ago | 0.24 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 43 sec ago | 0.24 KB
-
⭐✅ MAKE $2000 INSTANTLY ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 52 sec ago | 0.24 KB
-
⭐ Free Crypto Method ✅ NEVER SEEN BEFORE ⭐⭐⭐
JavaScript | 1 min ago | 0.24 KB
-
✅⭐ Make huge profits on trading ✅ NEVER SEEN...
JavaScript | 1 min ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 1 min ago | 0.24 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
