tmw2.0 Spanishprojectsize[400 300]turtles-have[]globals[]globals-list[globals-vars]8shapes[0 ||](( -<KZix,;JYhw (1cccccccccccccccccccccccccccccccccc [1 ||](( -<KZix)8G\q%4@Icccccccccccccccccccccccccccccccccccccco[2 ||]((X -<KZix/DYn+@O^m|ccccccccccccccccccccccccccccccccccccccccccccccccccccccca[3 ||]((J -<KZix2Qf{#2AP_n}ccccccccccccccccccccccccccccccccccccccccccccccccccccc[4 ||](( -<KZix#8GVet (4=ccccccccccccccccccccccccccccccccccccQ[5 ||]((: -<KZix#8Mbw"1@O^m|cccccccccccccccccccccccccccccccccccccccccccccccccc[6 ||](( -<KZix,;JYhw (1cccccccccccccccccccccccccccccccccc[7 ||](( -<KZix,;JYhw (1ccccccccccccccccccccccccccccccccccF[13 ||]((. !$'*-0369BOX[^adgjmpsvy|F[14 ||]((. !$'*-0369BOX[^adgjmpsvy|p[16 ||]((X -<KZix/DYn+@O^m|ccccccccccccccccccccccccccccccccccccccccccccccccccccccc[17 ||]((| -<KZix/DYn4Odsccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc[18 ||](( -<KZix)DYn2Mh ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc[19 ||](( -<KZix)D_z/DYncccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc[20 ||]((} -<KZix"Ho 2X~#Detccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc[21 ||](( -<KZix#>Yt1Lg !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc[22 ||](( -<KZix)DYn1Lg|cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccF[28 ||]((. !$'*-0369BOX[^adgjmpsvy|F[29 ||]((. !$'*-0369BOX[^adgjmpsvy|procedurestext{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss\fprq2 Arial;}{\f4\fswiss Arial;}{\f5\fswiss Arial;}{\f6\froman\fprq2 Times New Roman;}} {\colortbl\red0\green0\blue0;\red39\green0\blue0;\red0\green128\blue64;} \deflang1033\pard\plain\f3\fs20\cf2\i Usted dif\'edclmente ca a necesitar de muchos procedimientos \par al hacer una calculadora. Las instrucciones de los botones \par har\'e1n casi todo el trabajo. Esta calculadora tiene bastantes \par procedimientos porque la convesi\'f3n a n\'fameros romanos, o de \par ellos a n\'fameros decimales, no es algo directo. \par \par El boton "=" llama a un procedimiento para que la expresi\'f3n de \par la pantalla se convierta a un n\'famero decimal. El c\'e1lculo se hace \par mediante "activa" y el resultado se reconvierte a romano. \par \par \plain\f3\fs20\cf0\i para activapantalla \par asigna [decimal activa conviertelista hazlista pantalla] \par fijapantalla hacia-romano :decimal \par fin \par \plain\f3\fs20\cf2\i \par Convierte la lista a n\'fameros romanos mediante la conversi\'f3n de cada elemento. \par \plain\f4\fs20 para conviertelista :lista \par si vac\'eda? :lista [re []] \par si miembro? primero :lista [+ - * /] \par [re fr primero :lista \par conviertelista menosprimero :lista] \par re fr desde-romano pr :lista \par conviertelista mpr :lista \par fin \par \par \plain\f3\fs20\cf2\i Convierte :n de decimal hacia romano \par "n + 10000000" es un peque\'f1o truco que permite a \'edtem \par elegir digitos particulares \par \plain\f4\fs20 para hacia-romano :n \par asigna [n :n + 1000000] \par reporta (palabra mmmm \'edtem 4 :n \par decodifica-d\'edgito \'edtem 5 :n "C "D "M \par decodifica-d\'edgito \'edtem 6 :n "X "L "C \par decodifica-d\'edgito \'edtem 7 :n "I "V "X) \par fin \par \par \plain\f3\fs20\cf2\i Reporta :n letras m en una palabra \par o sea, mmmm 2 devuelve "mm \par \plain\f4\fs20 para mmmm :n \par asigna [result "] \par repite :n [da "result palabra "M :result] \par re :result \par fin \par \plain\f3\fs20\cf2\i \par Convierte :n ( n\'famero de un \'fanico digito) a un n\'fameto romano \par El valor depende de la posici\'f3n de valor del d\'edgito :o :f :t \par Da a los unos, cincos y dieces los s\'edmbolos que les corresponden \par \plain\f4\fs20 para decodifica-d\'edgito :n :o :f :t \par si :n = 0 [re "] \par si :n = 1 [reporta :o] \par si :n = 2 [re palabra :o :o] \par si :n = 3 [reporta (palabra :o :o :o)] \par si :n = 4 [re palabra :o :f] \par si :n < 9 [reporta palabra :f decodifica-d\'edgito :n - 5 :o :f :t] \par si :n = 9 [re palabra :o :t] \par fin \par \par \plain\f3\fs20\cf2\i Convierte :num de romano a decimal. Se logra cuando por turno, se obtene el valor para cada digito.\plain\f4\fs20 \par para desde-romano :num \par si vacia? :num [re 0] \par asigna [n pr :num \par silencio mpr :num] \par reporta suma activa palabra :n "-valor desde-romano :silencio \par fin \par \par \plain\f3\fs20\cf2\i Reporta el valor de una "i" que puede ser 1 o -1, dependiendo \par del contexto. \par \plain\f4\fs20 para i-valor \par si miembro? "v :silencio [reporta -1] \par si miembro? "x :silencio [reporta -1] \par si miembro? "l :silencio [re -1] \par si miembro? "c :silencio [re -1] \par si miembro? "d :silencio [reporta -1] \par si miembro? "m :silencio [reporta -1] \par re 1 \par fin \par \par \plain\f3\fs20\cf2\i Reporta el valor de una "v" que es siempre 5 \par \plain\f4\fs20 para v-valor \par re 5 \par fin \par \plain\f3\fs20\cf2\i \par Reporta el valor de una "x" que puede ser 10 o -10, dependiendo \par del contexto. \par \plain\f4\fs20 para x-valor \par si miembro? "l :silencio [re -10] \par si miembro? "c :silencio [re -10] \par si miembro? "d :silencio [reporta -10] \par si miembro? "m :silencio [reporta -10] \par re 10 \par fin \par \par \plain\f3\fs20\cf2\i Reporta el valor de una "l" que es siempre 50 \plain\f4\fs20 \par para l-valor \par re 50 \par fin \par \plain\f3\fs20\cf2\i \par Reporta el valor de una "c" que puede ser 100 o -100, dependiendo del contexto. \par \plain\f4\fs20 para c-valor \par si miembro? "d :silencio [reporta -100] \par si miembro? "m :silencio [reporta -100] \par re 100 \par fin \par \par \plain\f3\fs20\cf2\i Reporta el valor de una "d" que es siempre 500\plain\f4\fs20 \par para d-valor \par reporta 500 \par fin \par \par \plain\f3\fs20\cf2\i Reporta el valor de una "m" que es siempre 1000\plain\f4\fs20 \par para m-valor \par re 1000 \par fin \par \par \par \par \plain\f2\fs20\b \par \par \par } (pagenamepgina1curturtlet7curtextpantallatransition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []] bg84buffer, $6HZl~ 2DVhz .@Rdv*<N`r&8J\n"4FXj| 0BTfx,>Pbt(:L^p  $ 6 H Z l ~  2 D V h z  . @ R d v   * < N ` r   & 8 J \ n "4FXj| 0BTfx,>Pbt(:L^p$6HZl~ 2DVhz .@Rdvobject typet namet1locked?false xpos363 ypos203 shape23penstate0 size40pencolor0 heading0 pensize1shown?truefcn[fijapantalla "] kind1shapein23have-list[has] colorin9object typet namet2locked?false xpos316 ypos203 shape2penstate0 size40pencolor0 heading0 pensize1shown?truefcn[activapantalla] kind1 shapein2have-list[has] colorin9object typet namet3locked?false xpos363 ypos160 shape3penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "| / |] kind1 shapein3have-list[has] colorin9object typet namet4locked?false xpos316 ypos160 shape4penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "| * |] kind1 shapein4have-list[has] colorin9object typet namet5locked?false xpos363 ypos117 shape5penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "| - |] kind1 shapein5have-list[has] colorin9object typet namet6locked?false xpos316 ypos117 shape6penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "| + |] kind1 shapein6have-list[has] colorin9object typetextnamepantallarect[15 22 372 46]show-name?falselocked?falsevisible?truesnaped?falsehtext{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss\fprq2 Arial;}{\f4\fswiss Arial;}{\f5\fswiss Arial;}{\f6\froman\fprq2 Times New Roman;}} {\colortbl\red0\green0\blue0;\red39\green0\blue0;\red0\green128\blue64;} \deflang1033\pard\plain\f6\fs40\b \par } object typet namet7locked?false xpos38 ypos164 shape20penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "V] kind1shapein20have-list[has] colorin9object typet namet8locked?false xpos38 ypos116 shape23penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "C] kind1shapein23have-list[has] colorin9object typet namet9locked?false xpos87 ypos116 shape22penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "D] kind1shapein22have-list[has] colorin9object typet namet10locked?false xpos87 ypos211 shape17penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "I] kind1shapein17have-list[has] colorin9object typet namet11locked?false xpos136 ypos116 shape21penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "M] kind1shapein21have-list[has] colorin9object typet namet12locked?false xpos136 ypos164 shape18penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "L] kind1shapein18have-list[has] colorin9object typet namet13locked?false xpos87 ypos164 shape19penstate0 size40pencolor0 heading0 pensize1shown?truefcn[inserta "X] kind1shapein19have-list[has] colorin9