Monto Escrito PDF

Preview

Summary

monto escrito capaz de dar resultados a numeros hasta miles...

Description

MONTO ESCRITO

Jaime Andrés Marín Alarcón

Programación I

Ingeniería en Sistemas

Universidad tecnológica de Pereira 2017

MONTO ESCRITO ; Objetivo: crear una función que dado un número de tres cifras nos diga este número en letras: ; Plantilla: núm. ---> letras ; Encabezado: (numero3 f) ; Parámetros: f: numero cualquiera dado por el usuario ; Ejemplo: (numero3 123) :

(define (unidades x) (cond ((= x 1)(display "uno")) ((= x 2)(display "dos")) ((= x 3)(display "tres")) ((= x 4)(display "cuatro")) ((= x 5)(display "cinco")) ((= x 6)(display "seis")) ((= x 7)(display "siete"))

((= x 8)(display "ocho")) ((= x 9)(display "nueve")) )) (define (veint v) (cond ((= v 1)(display "uno")) ((= v 2)(display "dos")) ((= v 3)(display "tres")) ((= v 4)(display "cuatro")) ((= v 5)(display "cinco")) ((= v 6)(display "seis")) ((= v 7)(display "siete")) ((= v 8)(display "ocho")) ((= v 9)(display "nueve")) ((= v 10)(display "diez")) ((= v 11)(display "once")) ((= v 12)(display "doce"))

((= v 13)(display "trece")) ((= v 14)(display "catorce")) ((= v 15)(display "quince")) ((= v 16)(display "dieciseis")) ((= v 17)(display "diecisiete")) ((= v 18)(display "dieciocho")) ((= v 19)(display "diecinueve")) ((= v 20)(display "veinte")) )) (define (decenas d) (cond ((= d 1)(display "dieci")) ((= d 2)(display "veinti")) ((= d 3)(display "treinta y ")) ((= d 4)(display "cuarenta y ")) ((= d 5)(display "cincuenta y ")) ((= d 6)(display "sesenta y "))

((= d 7)(display "setenta y ")) ((= d 8)(display "ochenta y ")) ((= d 9)(display "noventa y ")) )) (define (centenas c) (cond ((= c 1)(display "ciento")) ((= c 2)(display "docientos")) ((= c 3)(display "trecientos")) ((= c 4)(display "cuatrocientos")) ((= c 5)(display "quinientos")) ((= c 6)(display "seicientos")) ((= c 7)(display "setecientos")) ((= c 8)(display "ochocientos")) ((= c 9)(display "novecientos")) ))

(define (cerrados r) (cond ((= r 3)(display "treinta")) ((= r 4)(display "cuarenta")) ((= r 5)(display "cincuenta")) ((= r 6)(display "sesenta")) ((= r 7)(display "setenta")) ((= r 8)(display "ochenta")) ((= r 9)(display "noventa")) )) (define (numero3 f) (begin (if(...