ZXTape! 2 DidacticialesLogical Software CenterJavier M. Torregrosa1984Spanish EducativeNoneSpain - Original Master Tape?TZX'ed by Raul LLamas 15/05/2009 Se trata de un master?? Hay bloques que no han podido convertirse bien, ya que la cinta esta algo degradada.0Cara A - Raices + PitagorasRAICES '%0|;; *=\s#r;;͎{ ::\(!((<2\6!"B\2D\}33|;; *=\s#rv͎{ ::\ ( ((<2\6!"B\!"D\;;}0000000 23761\ *64868d:1:1:7: 5n=0502:70F,150:502,-n *120x+n,502:0,502-n ()70F+n,502+n:0,502 2$70F,100d:502,-n:n FL21,1;"LOGICAL ~";1;"SOFTWARE CENTER";0;"~ 1984" Pa$=" R A I C E S" Zn=118 dn,1;6;a$(n) nn xK9 ,20;6;"Tiempo de";10 ,20;"carga 1'39~" 71,29;4;" ";2,30;" " 72,28;7;" ";3,29;" " 83,27;4;" ";4,27;" " 51:1:1:0,0;"";:"" ZA R A I C E Sraiz :&8q9:0|;; *=\s#r;;͎{ ::\(!((<2\6!"B\2D\}33|;; *=\s#rv͎{ ::\ ( ((<2\6!"B\!"D\;;}0000000 23761\ 0.1}L,45-:3:3:7: _7;1;" ";1,0;" AHORA ... ";2,0;" " Tyy=72H:xs=2:ys=2:o$="PARA EL CASSETTE":8900":9040P# <1:1:6: Fn=018:20,140+n:10 ,0:12 ,-90Z:15,100d:n:n=0192:58:+n,168:0,-10 :n P91,9 ;6;1;"  SOFTWARE CENTER" ZR5:xx=60<:yy=60<:xs=5:ys=9 :o$="RAIZ":8910" _P7:xx=205:yy=30:xs=7:ys=4:o$="2":8910" d\7:n=030:40(,30-n:3,0:.02{# =,11 :n nJn=020:39'-n,n:4,0:.03{u\,16:n xQn=045-:22+n,17:0,3:.01z# =,12 :n Sn=012 :65A+n,17+n:4,0:.02{# =,11 :n Qn=012 :82R,29-n:3,0:.02{# =,16:n Sn=012 :86V+n,17+n:4,0:.02{# =,11 :n Rn=012 :103g,29-n:3,0:.03{u\,16:n ]n=0148:107k+n,17:0,3:.01z# =,11 :n:502 E17,5;1;6;"":0:.1}L,20 .18,28;"SOFT":.1}L,40( +21,16;"^":.1}L,22 921,19;1;"JM/T&D":.1}L,42* V21,18;"~":.1}L,24:21,25;"~":.1}L,44, 21,27;"1":.1}L,26:21,28;".":.1}L,46.:21,29;"9":.1}L,28:21,30;"8":.1}L,480:21,31;"4":.1}L,30:502 a1,6,3,9 ,2,6,1,7,3,9 ,2,6 b1,7,3,9 ,2,6,1,11 ,3,9 ,2,6 1,6,2,7,1,7,1,4,1,4,1,4,1,7,1,7,1,7 1,4,1,4,1,4,1,9 ,1,9 ,1,9 ,1,9 ,1,11 ,1,9 ,3,6,2,2  240 "i=132 ,le:pi 6le/14,pi @i J#d08840":9920& Tb0:0:7::yy=30:xs=2:ys=2:o$="EXPLICACIONES":8900" UP13 ,20;"SI = S";15,23;"o";17,20;"NO = N" V.n=12 18:n,20;" ":n Y$"s"Ʀ"S"Ʀ"n"Ʀ"N"341U [="n"Ŧ="N"1230 ^7:7:1: h@"bes lo que es la raz cuadra- da de un nmero?":200 rT,,"Pues otro nmero que multiplica-do por si mismo nos d el prime-ro.":300, |,,3;"Est claro?":150:7,15;0;"Quiz no!":100d:7,26;2;"Vers:":100d z,,"La raz cuadrada de ";2;"36";1;" es un n-mero que, multiplicado por lmismo, nos d 36.":300, Z,,"Qu nmero ser ese? Pues...":100d:13 ,31;2;"6":150  ,,"Se expresa as:":100d =15,19;3;"2";16,21;"36 = 6" U156,46.:4,-8:4,14:17,0:200 >18,0;"Porque 6 x 6 = ";3;"36":100d @,,,1;" COMPRENDIDO ?":100d:0:9940& ̐:"Cuando el nmero es mayor, estoes, que tiene ms dgitos, todose complica un poco ms, pero siprestas atencin te ser fcil.":350^ &,,"Ahora vamos a verlo":200: E,,1;"Veamos la raz cuadrada de ";3;"1024":100d $10 ,16;2;"1024" 118v,92\:4,-8:4,14:40(,0:0,-502:166,85U:502,0 P200:a$="Primero separamos el nmero de 2 en 2, de derecha a izquierda" ,1:17,0;" ":2000 Ga$="Entonces lo tenemos dividido en dos grupos: 10 y 24 " ,2:17,0;" ":2000 0fa$="Comencemos por hallar un nmero que multiplicado por si mismo est lo ms cerca posible de 10" :,1:17,0;" ":2000 lF12 ,0;3;"3 x 3 = 9":.1}L,45-:100d v610 ,22;"3":.1}L,45-:100d ga$="A continuacin se lo restamos " ,2:17,0;" ":2000 51:11 ,16;"-9":.1}L,45- D130,80P:27,0:.1}L,45-:150 V12 ,16;"01":.1}L,45-:12 ,0;" ":100d 'a$="Se baja el nmero siguiente: 24 " ,1:17,0;" ":2000 712 ,18;"24":.1}L,45-:100d 'a$="Se baja el doble de la raz " ,2:17,0;" ":2000 ?1:12 ,21;"6":.1}L,45-:100d ga$="Se prescinde de la ltima cifra del resto:4. Y se divide por el doble de la raz " ,1:17,0;" ":2000 g12 ,0;3;"12":.1}L,45-:12 ,3;3;"6":.1}L,45-  \20,81Q:3;0,-9 :3;30,0:.1}L,45- *ga$="Cabe a 2. Y se sube al divisor " 4,2:17,0;" ":2000 H>13 ,4;3;"2":.1}L,45-:100d Ms12 ,4;3;"2":.1}L,45-:32 ,72H:3;8,0:.1}L,45- Rga$="Y, ahora, se multiplica el co- ciente por el divisor " \,1:17,0;" ":2000 13 ,3;3;"x":.1}L,45-:20,64@:3;30,0:.1}L,45-:100d }14,4;3;"4":.1}L,45-:100d:14,2;3;"12":.1}L,45-:100d ga$="Como el producto no es mayor que el resto de la raz, el 2 sirve. Se pasa as: " ,2:17,0;" ":2000 ?1:10 ,23;"2":.1}L,45-:100d =12 ,21;"62x2=124":.1}L,45-:100d ga$="Ahora se resta " #17,0;" ":2000 r13 ,16;"-124":.1}L,45-:138,64@:20,0:.1}L,45-:100d 814,17;"000":.1}L,45-:100d )a$="Luego la raz de 1024 es 32 " ,2:17,0;" ":2000 $'a$="VAMOS A COMPROBARLO " .,3:17,0;" ":2000 3.n=11 14:n,0;" ":n 8w12 ,0;" 32";13 ,0;" x 32":8,64@:30,0:.1}L,45-:100d B414,4;"4":.1}L,45-:75K L414,3;"6":.1}L,45-:75K V415,3;"6":.1}L,45-:75K `415,2;"9":.1}L,45-:75K jB8,480:30,0:.1}L,45-:100d t416,4;"4":.1}L,45-:75K ~416,3;"2":.1}L,45-:75K 516,1;"10":.1}L,45-:75K Ga$="Quieres volver a ver la expli- cacin otra vez? (pulsa s n) " ,0:17,0;" ":2000 %"s"Ʀ"S"Ʀ"n"Ʀ"N"1200 ="s"Ŧ="S":480 $3:7:2::w$="" e$(1,10 ) ,," Cmo te llamas?" 0,,1;" (Mximo 10 letras)":e$(1) K,,,," Hola, ";e$(1);" ";1;3;"Encantado!":100d ,,,,1;" Vas a hacer ahora una compro-"," bacin de si has comprendido"," bien todas las explicaciones"," anteriores.":250 ?,,,," Si pones inters, todo te sal-"," dr bien.":200 7m=0:x=0:y=0:u=0:t=0 m(xy)=xx,y=x+yy)=x+y+(x-y):u()=(65536*23674z\+256*23673y\+23672x\)/502:t()=(u()):tio=t()  .e=0::,,1;" RAIZ CUADRADA DE " a$=(*999999t#) "a$<(100000CP)1300 (f1:30,119w:4,-9 :4,11 :524,0:0,-502 2'90Z,111o:110n,0 <7,5;a$ Fb$="":20,1:b$ Pb=(a$(2)) Z&w$=b$:bb$8000@:1350F d+7,12 ;1;b$:8040h n c$="":c$ x0w$=c$:c$(b^2)8000@:1390n K8,7-c$;c$:8040h:40(,104h:32 ,0  d$="":d$ 6w$=d$:d$ɰa$(2)-c$8000@:1420 %9 ,7-d$;d$:8040h  f$="":f$ 7w$=f$:f$a$(34)8000@:1450 %9 ,9 -f$;f$:8040h &90Z,91[:110n,0  g$="":g$ d=b$*2 &w$=g$:g$d8000@:1490 &9 ,14-g$;g$:8040h  h$="":h$ Nx$=g$+h$:t$=g$+(h$-1):u=(t$-(h$-1)):g=(x$*h$):z$=d$+f$ 9w$=h$:z$gưh$Ⱥ(z$(2)/d-1)1560 8000@:1530 4(d+(h$+1))*(h$+1)11870N X@u=1̱w$:w$(uu)<480ůw$(uu)>5791870N ba=w$ l!a<1a>41870N va=1350^ !a=27::480  a=33:1275 a=48800`" <n=1̱a$:a$(n);:.005y# =,10 :n:200: @.e=e+1:1,20;"fallos = ";e J;20,1;w$;" no sirve, ";e$(1):100d TI20,1;2;"Intntalo de nuevo ";e$(1):100d ^720,1;" ": hn20,1;"Contina, ";e$(1):100d:20,1;" ": "`1:1:5: "en=018:20,141+n:10 ,0:12 ,-90Z:15,100d:n:n=0192:58:+n,169:0,-10 :n "g91,10 ;5;1;" SOFTWARE CENTER" "j36,12 ;7;"HASTA OTRA OCASION!" "tO4:xx=60<:yy=72H:xs=8:ys=8:o$="a":8910" "uQ6:xx=150:yy=72H:xs=12 :ys=8:o$="2":8910" "vP6:xx=180:yy=64@:xs=1:ys=3:o$="i":8910" "~ 100d " 0 "'xx=(256-8*xs*o$)/2 "Ϋi=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=o$:n=1w:i+n,o$(n):n:i+w+1,255:w=64869e: &1.1}L,22:25:.05|L,45- &Z21,0;1;" PULSA UNA TECLA PARA COMENZAR ":0:=""9915& & &je>5#0;1;7;2;" DEMASIADOS FALLOS. REPITE ":200:1275 &S#0;1;7;2;" PULSA UNA TECLA PARA CONTINUAR ":0: &ٔ4:yy=72H:xs=2:ys=2:o$="EXCELENTE !":1:8900":0:.2~L,2:.5,11 :.2~L,11 :.2~L,11 :.2~L,9 :.2~L,11 :.73333,12 :.2~L,11 :25:.2~L,11 :.5,9 :.2~L,9 :.2~L,9 :.2~L,7:.2~L,9 :.5,11 :.2~L,7: &"raiz"9980& &"g"64869e,277 &"graf""a",21*8 & &O1:0,0;"";:"g"64869e:0,0;"";:"graf" 'd=0:0 @! "wa i|(ebd Xghf mxyt Pepito A437194B6C36D7F71G12H6X126T125Z771I756J15K94M132Q66N1R1321Y1594S273W4Oig e8![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[h2[: [G: [2 [*[Å2[: [G: [2[: [O :[<2[ :[<2[ :[Õ@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(//graf X&y#8"1","7","3","9","2","6","1","11","3","9","2","6" n["1","6","2","7","1","7","1","4","1","4","1","4","1","7","1","7","1","7" sp"1","4","1","4","1","4","1","9","1","9","1","9","1","9","1","11","1","9","3","6","2","2" x"100" }i="1"̰"32" l:p l/"14",p i:p="4""8050" x="4""8050" "190" !װ".1","45":"3":ڰ"3":ٰ"7": X"0","0";ڰ"7";ٰ"1";" ";"1","0";" AHORA ... ";"2","0";" " =yy="72":xs="2":ys="2"::o$="PARA EL CASSETTE":"8900" !װ".2","10":"10":װ".1","45" ;"21","0";۰"1";" PULSA UNA TECLA PARA COMENZAR ":۰"0" ="""175" "0" "7":ڰ"7":ٰ"1": "Los recaudadores de impuestos,enEgipto,-esto es: los sacerdotes-ya usaban, la escuadra de cuerdade 12 nudos para medir las tie-rras cultivables que el ro Ni-lo inundaba cada ao .":"500" t,,ٰ"2";"Los incas para hacer las repar-ticiones de tierras,tambin usa-ban estas escuadras de 12 nudos.":"400" ܯ,,"La tabla babilnica PLIMPTON 322demuestra que, en la ms venera-ble de las antigedades,se cono-can los tringulos pitagricos(pero no con ese nombre,claro!)":"400" r,,ٰ"2";"Ms recientemente, el matemticohind Bhaskara di con una sen-cilla explicacin del teorema.":"300" .,,"Los chinos tambin conocan esto":"200" Uٰ"3":yy="184":xs="2":ys="1"::o$="Pulsa una tecla":۰"1":"8900":۰"0":"0" "1":ڰ"1": )n="0"̰"8":n,"26";ڰ"5";" ":n " ڰ"8":ٰ"0" ,"234","170","235","170","236","170","237","170","231","169","232","169","233","169","238","169","239","169","240","169" 6U"230","168","239","168","240","168","241","168","242","168","242","168" @"229","167","239","167","240","167","243","167","244","167","245","167","246","167","227","166","228","166","246","166","247","166","248","166","249","166" J"227","165","228","165","250","165","224","164","250","164","223","163","227","163","235","163","237","163","241","163","251","163" T"222","162","224","162","228","162","229","162","231","162","232","162","233","162","235","162","238","162","239","162","240","162","242","162","244","162","245","162","251","162" ^ "222","161","225","161","236","161","229","161","230","161","231","161","233","161","235","161","236","161","238","161","239","161","241","161","242","161","243","161","244","161","245","161","246","161","247","161","252","161" h"224","160","236","160","229","160","230","160","231","160","233","160","235","160","236","160","238","160","239","160","241","160","242","160","243","160","244","160","245","160","246","160","247","160","251","160" r"222","159","229","159","230","159","232","159","235","159","240","159","242","159","244","159","246","159","247","159","250","159","252","159","222","158","246","158","247","158","250","158","252","158" |"222","157","223","157","246","157","247","157","250","157","251","157","232","156","233","156","234","156","235","156","247","156","248","156","249","156" "222","155","231","155","234","155","235","155","236","155","237","155","240","155","241","155","242","155","243","155","244","155","245","155","249","155","251","155" "223","154","232","154","233","154","234","154","235","154","236","154","237","154","238","154","240","154","241","154","243","154","248","154","252","154" "223","153","235","153","236","153","250","153","230","152","231","152","231","152","233","152","234","152","237","152","238","152","242","152","243","152","244","152","245","152" '"223","151","229","151","235","151","237","151","238","151","241","151","246","151","250","151","222","150","229","150","230","150","231","150","232","150","233","150","238","150","240","150","241","150","242","150","243","150","244","150","250","150" '"224","149","228","149","230","149","233","149","238","149","242","149","245","149","247","149","250","149","222","148","225","148","229","148","231","148","232","148","235","148","238","148","241","148","243","148","244","148","246","148","249","148" "223","147","225","147","230","147","233","147","234","147","238","147","239","147","242","147","245","147","249","147","222","146","224","146","238","146","239","146","248","14","249","146" ̛"236","145","227","145","238","145","239","145","249","145","222","144","224","144","227","144","238","144","239","144","250","144" "223","143","226","143","227","143","235","143","238","143","239","143","250","143","223","142","225","142","226","142","230","142","232","142","235","142","239","142","240","142","249","142" "223","141","226","141","229","141","233","141","234","141","236","141","239","141","240","141","248","141","251","141","223","140","225","140","228","140","236","140","239","140","240","140","243","140","250","140" "223","139","227","139","237","139","239","139","240","139","244","139","246","139","247","139","249","139","223","138","237","138","245","138","246","138","249","138","250","138" "224","137","226","137","232","137","233","137","234","137","235","137","236","137","238","137","239","137","240","137","240","137","241","137","244","137","245","137","246","137","251","137","224","136","225","136","231","136","232","136","233","136","234","136","235","136","239","136","240","136","241","136","242","136","245","136","246","136","250","136" C"224","135","230","135","231","135","232","135","240","135","241","135","242","135","245","135","245","135","249","135","224","134","226","134","230","134","231","134","232","134","233","134","234","134","235","134","236","134","237","134","238","134","245","134","248","134" '"224","133","225","133","226","133","227","133","248","133","224","133","226","132","234","132","236","132","248","132","224","131","225","131","227","131","234","131","235","131","248","131","225","130","226","130","233","130","236","130","247","130" "226","129","229","129","234","129","235","129","247","129","227","128","229","128","233","128","236","128","246","128","247","128","227","127","229","127","232","127","237","127","246","127" "228","126","232","126","233","126","238","126","245","126","228","125","231","125","235","125","244","125" &"229","124","231","124","232","124","233","124","238","124","239","124","242","124","243","124","230","123","233","123","234","123","236","123","240","123","241","123","232","122","233","122","235","122","236","122","238","122","239","122" 0c"233","121","235","121","236","121","237","121","234","120","236","129","235","119" :"300" Di="1"̰"408" Na,b Xa,b b i:"100" lz$="PITAGORAS" v n="1"̰"9" n-"1","26";ٰ"1";z$(n) װ".02","10"  n:"100" ٰ"7":"0","0";"Gracias a los ~ELEMENTOS~";"1","0";"de Euclides, la civiliza-";"2","0";"cin occidental prob el";"3","0";"primer TEOREMA (con ma-";"4","0";"yscula) de la humanidad.":"350" "6","0";"El filsofo y matemtico";"7","0";"griego, Pitgoras, naci";"8","0";"en Samos el 585 a JC (?),";"9","0";"y nos dej su celebrrimo";"10","0";"teorema del cuadrado de los ca-tetos.":"500" N,,"Esto es : la tambin clebre es-cuadra de 12 nudos equidistantes":"300" x,,"Un tringulo rectngulo con unahipotenusa de longitud 5, un ca-teto con una longitud de 4 yotro de 3.":"200" ,,,"Con unas curiosas propiedades.":"100" Tٰ"6":yy="184":xs="2":ys="1":o$="Pulsa una tecla":۰"1":"8900":۰"0":"0"  "1000" > "2170" "7":ܰ"1":ڰ"7":ٰ"1": `"241","99":ٰ"2";"0","58":ٰ"2";-"58","0":ٰ"2";"0",-"58":ٰ"2";"58","0":"100" G"72","99":"0","58":-"58","0":"0",-"58":"58","0":"100" :"1","4";ٰ"2";"~B~":"50":"1","25";"~A~":"100" W"12","2";ٰ"2";"Los cuadrados ~B~ y ~A~ son";"13","2";ٰ"1";"IDENTICOS":"100" Lxx="130":yy="40":xs="3":ys="3":ٰ"4":o$="=":"8910":"100":ٰ"8" ""57","99":"15","42":"100" $$"72","141":-"42","15":"100" .%"31","157":-"15",-"42":"100" 8$"15","115":"42",-"15":"100" B}"12","1";ٰ"1";"El cuadrado interior del ~B~,"," ha generado 4 tringulos rec-"," tngulos: ~a~, ~b~, ~c~ y ~d~":"100" L`"3","8";"a":"100":"3","2";"b":"100":"8","2";"c":"100":"8","8";"d":"200" Vn="0"̰"31":"12",n;" ":n `h"13","1";ٰ"2";"Ahora se trazan 2 cuadrados"," sobre los catetos del tringu-"," lo ~d~":"200" eDxx="130":yy="40":xs="3":ys="3":ٰ"4":o$=" ":"8910":ٰ"8" j5n="0"̰"42":"72","141"-n:"42","0":n:"100" t4n="0"̰"15":"57"+n,"84":"0","15":n:"100" ~C"17","1";"Y tenemos los cuadrados: ~3~,"," ~4~ y ~5~":"100" J"10","8";"3":"100":"6","11";"4":"100":"5","5";"5":"100" -n="12"̰"18":j="1"̰"30":n,j;" ":j:n 3"12","14";ٰ"4";۰"1";"FIJATE!":۰"0":"100" "15","4";ٰ"2";"cuadrado no. 3";"16","2";"+ cuadrado no. 4";"17","1";"_________________";"19","2";"= CUADRADO no. 5":"200" p"14","20";ٰ"3";"A esta";"15","20";"deduccin";"16","25";"lleg";"18","20";۰"1";"PITAGORAS":۰"0" Nٰ"5":"245","18":"0","50":-"98","0":"0",-"50":"98","0":"200" -n="12"̰"20":j="1"̰"30":n,j;" ":j:n Mٰ"1":"11","11";"Intentar demostrar";"12","2";"este TEOREMA":"100" r"14","2";"que es:":"100":"13","15";ٰ"2";"2";"21";"2";"27";"2";"14","14";"3 + 4 = 5":"200" "16","2";"Esto es: ";ٰ"3";" LA SUMA DE LOS CUA-"," DRADOS DE LOS CATETOS ES"," IGUAL AL CUADRADO DE LA HI-"," POTENUSA, en los tringulos"," rectngulos":"375" ^"11","11";" ":n="12"̰"20":j="1"̰"30":n,j;" ":j:n "12","2";"O, si prefieres: ";ٰ"3";"EL CUADRADO"," DE LA HIPOTENUSA ES IGUAL,en"," un tringulo rectngulo,A LA"," SUMA DE LOS CUADRADOS DE LOS"," CATETOS":"375" e'4;" VAMOS A SEGUIR LA EXPLICACION QUE DA BHASKARA EN SU LIBRO ~LILIVATI~":200 N=12 21 J=031 N,J;" ":J:N  e12 ,2;"Vamos a introducir el cuadra-"," do no. 5 dentro del cuadrado"," ~A~":"225" 1"5","5";" ":ٰ"2":"226","99":"15","42" "241","141":-"42","15" ("200","157":-"15",-"42" 2%"185","115":"42",-"15":"100" Fn="0"̰"50":"0","100"-n:"3","0":"47","100"-n:"3","0":n HU6:3,502:0,-8,-/2:-2,8,-/2 RV6:502,502:0,-8,-/2:-2,8,-/2 p"5","9";"Nosotlos, ya conosiamos";"7","9";"~ESO~, cuando Pitgolas";"9","9";"lo invent sin pedilnos";"11","9";"pelmiso pala hasel-lo.":"200" z?xx="90":yy="124":xs="3":ys="1"::o$="Velas!!":"8910" Bxx="177":yy="116":xs="3":ys="1"::o$="'":"8910":"100" 0#"0";" PULSA UNA TECLA PALA SEGUIL":"0" "7":ڰ"7":ٰ"0": ,,"El matemtico chino Chou-Pi, queno conoca a Pitgoras, aunqueeran contemporneos, (";ٰ"2";" Grecia yChina en esos tiempos estaban adistancias insalvables ";ٰ"0";"), puedereivindicar justamente el codes-cubrimiento del famoso TEOREMA.":"600" P,,,,"Lo demuestran antiqusimas plan-chas de imprenta con sus dibujos":"250" m,,,,ٰ"3";"Ahora vers una reproduccin deuno de ellos que, prcticamente,no necesita explicacin alguna." <"20","0";۰"1";" PULSA UNA TECLA PARA CONTINUAR ":"0" 7:7:7: 7n="0"̰"15":n,16;ڰ"0";" ":n On="0"̰"16":n,"31";" ";0,15+n;" ":n:16,31;" " hn=175480-1:120x,n:10 ,0:80P+n,502:0,-3:n n="165"̰"43"-"16" #7:"133",n:"112","0":n n="133"̰"245"Ͱ"16" n,"165":"0",-"112":n 3"0","0";1;ٰ"3";" ATENCION : ":0 /n="165"̰"102"-"1":"179",n:"2","0":n /n="96"̰"141":"275"-n,"102":"0","2":n "179","165":-"45",-"60" "0","0";1;"Primer tringu-";"1","0";"lo rectngulo";"2","0";"con la relacion";"3","0";"lacin 3, 4, 5":"200" $(n="53"̰"100":"195",n:"2","0":n .n="0"̰"16" 8"197"-n,"102":"0","2":n B"133","101":"61",-"47" G|"5","0";ٰ"2";"Segundo trin-";"6","0";"gulo rectngulo";"7","0";"con la misma";"8","0";"relacin":"200" Ln="179"̰"245" Vn,"120":"0",-"2":n `"181","165":"63",-"44" eL"10","0";1;"Tercer tringu-";"11","0";"lo rectngulo":"200" jn="104"̰"116" t"195",n:"2","0":n ~"245","117":-"46",-"63" D"13","0";ٰ"2";"Cuarto tringu-";14,0;"lo":"200" !"191","156":-"47",-"62":n !"205","147":-"48",-"63":n !"219","137":-"49",-"64":n !"233","127":-"49",-"64":n "140","114":"65",-"50" "152","126":"63",-"49" "161","139":"64",-"47" %"171","152":"66",-"46":"200" Ğ"16","0";1;"Cada uno de los cuatro tringu-los tiene un cateto que mide 4 ,otro que mide 3, y la hipotenusaque mide 5 cuadrados iguales.":"200" U"20","19";3;"2";"25";"2";"30";"2";"21","18";"3 + 4 = 5":"200" 6#"0";۰"1";" PULSA UNA TECLA PARA CONTINUAR ":"0" ,n="0"̰"15":n,"0";" ":n -n="16"̰"21":j="0"̰"31":n,j;" ":j:n Wxx="0":yy="180":xs="1":ys="2"::o$=" ":"8910" _1:"0","0";"Ves que los 4";"1","0";"tringulos son";"2","0";"iguales":"200" C"4","0";ٰ"2";"Vamos con uno";"5","0";"de ellos :":"200" a"0","22";ٰ"2";"a";"8","15";"b";"10","22";"c";"16","24";"d";"6","31";"e":"200" *5,11 ;1;"abc":"200" Z"7","0";"El cateto ~ac~";"8","0";"mide 4 cuadra-";"9","0";"dos iguales":"300" (f"11","0";ٰ"2";"El cateto ~bc~";"12","0";"mide tres cua-";"13","0";"drados iguales":"300" 2"15","0";"Y la hipotenu-";"16","0";"sa ~ab~,que es";"17","0";"el lado del";ް"1";"18","0";"cuadrado ~a~,~b~,~d~,~e~, mide 5";"19","0";"cuadrados, iguales a los ante-riores.":"400" xx="8":yy="44":xs="2":ys="1":o$="pulsa ~s~":"8910" Exx="8":yy="134":xs="2":ys="1":o$="En caso contra-":"8910" Dxx="8":yy="144":xs="2":ys="1":o$="rio, pulsa ~n~":"8910" 2e$="":e$:e$"n"e$"N"e$"s"e$"S""3300" e$="n"e$="N"1000 6:1:7: <xx="8":yy="14":xs="4":ys="1":o$="Elige :":"8910" Dn=715:n,8;4;" ":n *"8","6";"1 # Volver al principio";"10","6";"2 # Explicacin ";"12","6";"3 # Ejercicios ";"14","6";"4 ";1;"# SALIR DEL PROGRAMA ":0 4+p$="":p$:p$<"1"űp$>"1"33804 >:u="1"̱p$:p$(uu)<"48"ůp$(uu)>"57"33804 :u Hx=p$ Rx="1"0:190 \x="2"1000 fx="3"3452| px="4"8000@ zx<"1"x>"4""3380" |2:7:0: }1,1;"Vienen ahora 10 ejercicios en los que tendrs que hallar la longitud, bien de un cateto o de la hipotenusa. Depende; en unas ocasiones ser una cosa y en otras ocasiones otra.":500 ~m,,2;" Las operaciones hazlas en tu cuaderno de ejercicios, o en una hoja de papel.":200 :,," En las respuestas usa slo un decimal.":100d ,,2;" Si te pide el cateto, te dar la altura (A) y la hipotenusa (H). Si te pide la hipotenusa te dar la altura y la base (B).":400 w$(1,10 ) 1"Cmo te llamas? (max:10 LETRAS)";w$(1) 5,1;6;" SUERTE !":0:100d Fٰ"4":#"0";۰"1";" PULSA UNA TECLA PARA CONTINUAR ":"0":۰"0": hh="0":ee=hh m(xy)=xx,y=x+yy)=x+y+(x-y):u()=(65536*23674z\+256*23673y\+23672x\)/502:t()=(u()):tio=t() t=110 %hh:hh+1:7::1: '1,29;1;3;t hh=hh+1 k=(*2) ?a1=((*579)*10 )/10 :a1<253530 ?b1=((*579)*10 )/10 :b1<253535 g=0a1 8hh:70F,60<:b1,0:-b1,a1:0,-a1 7h3= (((a1^2)+(b1^2))*10 )/10 k=019,20;2;"A = ";a1;20,20;1;"B = ";b1;1,1;"Longitud de la hipotenusa?" k=1"20","20";2;"H = ";h3;19,20;1;"A = ";a1;1,1;2;"Longitud del cateto? " 870F,60<:-a1,0:0,a1:a1,0 870F,60<:0,-b1:b1,0:0,b1 .70F,60<+a1:a1,b1:b1,-a1:-a1,-b1 .1c$="":c$:c$<1űc$>43630. 8Cu=1̱c$:c$(uu)<480ůc$(uu)>5793630.:u Bc=c$ Lk="0"c=h3"7000" Ok="0"ch3"7003" P$k="0"ch3ee=ee+"1":"3630" Qk="1"cb1ee=ee+"1" V!k="1"cb1"7003":"3630" `k="1"c=b1"7000" jhh="4"hh="0" ttȰ"10""3720" ~t =:tft=t()-tio:tm=(tft/60<):ts=(tft-(tm*60<)) Q"1","1";ٰ"1";w$(1);"3","1";ٰ"2";"TIEMPO= ";tm;" Min. ";ts;" Seg." <"5","1";ٰ"3";"10"-ee;" ACIERTOS en 10 VECES " ee>"5""4000" eeǰ"2""7020" S"20","1";ٰ"1";" Otra vez ? (s/n) ";19,20;" " +r$:r$"s"r$"S"r$"n"r$"N""3750" r$="s"r$="S""3467" r$="n"r$="N""3320" Uyy=72H:xs=2:ys=2:o$="LO SIENTO !":1:8900":0 $X$="11114331101":Y$="32132121216" :A=111 :װ(Y$(A))/4,(X$(A))-1:A  Xtڰ"0":"10","21";ٰ"3";w$(1);"12","23";ٰ"1";c;" es";"14","23";ݰ"1";ٰ"2";"CORRECTO":"75":ݰ"0": "10","21";w$(1);"12","23";0;0;c;0;"14","23";1;"NO SIRVE" \/k="0"ch3"16","23";3;"Es ";h3 ^/k="1"cb1"16","23";3;"Es ";b1 bo75K:"10","21";" ";"14","23";" ";"12","23";" ";"16","23";" ": lOٰ"4":yy="72":xs="2":ys="3":o$="ENHORABUENA":1:"8900":0 v2.2~L,2:.5,11 :.2~L,11 :.2~L,11 :.2~L,9 :.2~L,11 :.73333,12 :.2~L,11 :502:.2~L,11 :.5,9 :.2~L,9 :.2~L,9 :.2~L,7:.2~L,9 :.5,11 :.2~L,7  @1:1:5: E:0,1;5;1;"  SOFTWARE CENTER " JCxx="8":yy="32":xs="2":ys="1":o$="Hasta otra vez":"8910" T=yy="72":xs="3":ys="1":o$="ADIOS":۰"1":"8910":۰"0" ^;100d:9 ,17;"en nombre de...":100d cByy=110n:xs=3:ys=1:o$="Pitagoras":8900" dGxx=96`:yy=104h:xs=3:ys=1:o$="'":8910" h 30 r 0 "xx=("256"-"8"*xs*o$)/"2" "Ίi="23306":i,xx:i+"1",yy:i+"2",xs:i+"3",ys:i+"4","8":i=i+"4":w=o$:n="1"w:i+n,o$(n):n:i+w+"1","255":w="64869": &"pitagoras"ʰ"9980" &"g""64869","277" &"graf""a","21"*"8" & &7"0","0";"";:"g""64869":"0","0";"";:"graf" 'x="0":"160" xH [Dw 8  kYFY acFlp bweyiZP״fu€ ANOS a d(ee)osZ\ *** 12 NUDOS, de PITAGORAS *** ESP3 Francisco C49.5RnO LO SIENTO !X 11114331101Y 32132121216g eL![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[h2[: [G: [2 [*[Å2[: [G: [2[: [O :[<2[ :[<2[ :[Õ@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(//graf X<8>" $63700 (A206,175:-5,0:0,-3:2,0:0,-2:-2,0:0,-3:25,0:0,4:-3,0:0,2:2,0:0,2:-14,0:0,-6:5,0:0,3:-2,0 )n=09 :11 ,117u+n:20,0:4,-30:15,40(:170,0:n:5,9 ;6;0;" SOFTWARE CENTER" *.n=10 13 :68D,104h,n:n +'n=025:86V,92\+n:4,0:132,92\+n:4,0:152,92\+n:4,0:162,92\+n:4,0:183,92\+n:4,0:200,92\+n:4,0:222,92\+n:4,0:n ,:n=010 :91[+n,92\:0,4:111o+n,92\:0,4:167+n,92\:0,4:167+n,113q:0,4:167+n-4,104h:0,4:216+n-8,104h:0,4:219+n,92\:0,4:n -en=020:107k,97a+n:4,0:120x,97a+n:4,0:n .n=06:137,110n+n:7,-8:145,103g+n:7,8:188,111o+n:12 ,-18:n /Bn=03:217+n,114r+n:3+n,0:n 2 8805e" <2:2:7: F56:2,1;"M M EEEE N N U U" G,3,1;"MM MM E NN N U U" I,4,1;"M M M EE N NN U U" J,5,1;"M M E N N U U" K46,1;"M M EEEE N N UU":7 P502,20:6;-502,0:6;0,147:6;200,0:6;0,-502 Z/8,13 ;1;" 1 # Cubo ";10 ,13 ;" 2 # Paraleleppedo";12 ,13 ;" 3 # Cilindro ";14,13 ;" 4 # Esfera ";16,13 ;7;1;" 5 # EVALUACION ";2;7;19,10 ;0;"6 # SALIR DEL PROGRAMA" _63700 da$:a$"1"a$"2"a$"3"a$"4"a$"5"a$"6"21,0;1;" Slo desde 1 hasta 4 ":1.5@,12 :21,0;0;" ":100d ea$="1"110n fa$="2"690 ga$="3"1170 ha$="4"1700 ia$="5"3000 ja$="6"8800`" n$m$="":7:7:1: x180,100d:502,0:0,502:-502,0:0,-502:180,150:25,25:502,0:0,-502:-25,-25:230,150:25,25 0,0;"Este es un prisma, que";1,0;"se llama CUBO. Angulos";2,0;"rectos y aristas de la";3,0;"misma longitud.":200 x5,0;"Y queremos saber la";6,0;"cantidad de espacio";7,0;"que ocupa.":200 X9 ,0;"Esto es: deseamos";10 ,0;"hallar su volumen.":200 a12 ,0;"Imagnate que un lado de su baseo sea, una arista mide 5 metros.":200 /10 ,24;2;"5 m.":100d ^15,0;"Vamos a dividirlo en rebanadashorizontales de 1 m. de alto.":200 gn=03010 :180,110n+n:502,0:25,25:n:200 a18,0;"Vers que se han obtenido cincorebanadas de un metro de grueso.":200 K2:21,0;1;" Pulsa una tecla ":0:0 <n=011 :n,0;" ":n Gn=12 21:n,0;" ":n 0,0;"Ya sabes como se ha-";1,0;"lla el rea de 1 cua-";2,0;"drado:elevando el la-";3,0;"do al cuadrado.":200 {5,0;"Y cada una de las ca-";6,0;"ras de ese cubo es un";7,0;"cuadrado.":200 9 ,0;"Entonces podemos ave-";10 ,0;"riguar el rea de su";11 ,0;"base.":100d:11 ,6;1;"As:":100d 114,2;"2";15,1;"5 =25" "01:27,524,24:100d ,i13 ,7;"Pues si tenemos 5 rebana-";14,7;"das de 25 m2 de base y de";15,7;"1 m de grueso, no hay ms";16,7;"que multiplicar la base";17,7;"por la altura,en este ca-";18,7;"so 5 m,y tendremos el vo-";19,7;"lumen.":600X:21,0;2;"As:":100d 621,5;1;"5 x 5 x 5 = 125":0:100d:21,21;"o":100d:21,23;2;"5 = 125";20,24;"3":100d @B#0;3;1;" Pulsa una tecla ":0:0 J1:1:7: T+"Eso que acabas de ver de ...":100d ^A7:n=25:n,22;" ":n:1 h>4,23;"5 = 125";3,24;"3":100d rc2,0;"Quiere decir 5";3,0;1;"elevado al cubo":0:200 |5,0;"Que es lo mismo que";6,0;"multiplicar un nme-";7,0;"ro por s mismo 3 veces.":200 9 ,0;"En esta ocasin":100d:9 ,16;2;7;1;"5 x 5 x 5 = 125":0:200:1:7 11 ,0;"As que para hallar el volumende un CUBO no tienes ms queelevar al cubo la longitud de suarista.":200  16,0;"Ahora, vamos a comprobar si hasentendido todo, hallando t elvolumen de 10 cubos. Usa slo ";1;"2";0;"decimales en las respuestas. Sien alguna ocasin las centsimasson 0, no lo introduzcas." B5:#0;1;" Pulsa una tecla ":0:0 ?7:7:1::f=0:n=0:dd=0 Hx(10 ):u$(10 ,10 ):b$(10 ,10 ):c(10 )  kk=0 n=110 (b=(*210n):b<30460  q=1n c(q)=b460 q c(q-1)=b 'dd=dd+1:dd=6dd=0  530 n 7:7:dd: bb=(b*100d)/100d <1:0,0;"Volumen?";21,29;n &21,0;"arista = ";bb:dd 90Z,120x:0,-b:b,0:0,b:-b,0:b/2,b/2:b,0:0,-b:-b/2,-b/2 &,90Z+b,120x:b/2,b/2: (j=0b/23:90Z+j,120x-b+j:1,1:j:j=0b3:90Z+b/2,120x-b/2+j:0,1:90Z+b/2+j,120x-b/2:1,0:j +Mj=3b3:90Z+b/2,120x-b/2+j:b,0:j :<j=b0-1:90Z,120x-b+j:b,0:j Db$(n) Em$>"0"590N Gb$(n)<491ůb$(n)>59;3,1;"Slo nmeros":2,12 :3,1;" ":580D N(x(n)=((bb*bb)*bb*100d)/100d Q u$(n)=x(n) Sm$>"0"605] UOb$(n)u$(n)10 ,1;1;b$(n);13 ,1;2;x(n) Xb$(n)u$(n)5100 ]b$(n)u$(n)f=f+1 ^m$>"0"n=10 3110& _m$>"0"520 `b$(n)u$(n)580D bb$(n)=u$(n)5000 ln=10 640 v 520 T0,0;f;2;" fallos en ";1;"10";2;" cubos":1 621,0;"Repito? (s / n) " d$:d$"s"d$"S"d$"n"d$"N"21,0;2;"Contesta en serio ""s"" o ""n""":3,10 :1:650 d$="s"d$="S"440 d$="n"d$="N"60< 1:1:7: 165,125}:502,0:20,20:-502,0:-20,-20:0,30:20,20:502,0:-20,-20:0,-30 Ѐ165,155:502,0:235,145:0,30:185,145:0,30:100d h"Este cajn es un pris-";1,0;"ma llamado paralele-";2,0;"ppedo.":200 4,0;"Y se llama as por-";5,0;"que sus caras opues-" ;6,0;"tas son iguales y";7,0;"paralelas.":200 v9 ,0;"Ya has visto que para hallar elvolumen del cubo se multiplicabala base por la altura.":200 p13 ,0;"Pues suponte que este poliedromide de alto 3 m, de ancho 2.5 my de largo 5 m.":300, Y6:1,30;"3";7,23;"5";5,29;"2.5":200  j5:17,0;"Entonces para hallar su volumenno habr que hacer ms que esto:":200 ]2:7:20,0;1;" 5 x 2.5 x 3 = 37.50 m3 ":0:200  E7:1:7;"Donde ""m3"" = metro cbico":200 *K7:2:#0;1;" Pulsa una tecla ":0:0 47:7:0: >`"Hay muchas clases de poliedros,pero esos los trataremos en otraocasin. Vale ?":200 Hg,,"Por ahora sera suficiente, quete hubieses enterado bien de laexplicacin anterior.":200  Ra,,"As pues, vamos a ver que tal sete da hallar el volumen de diezparaleleppedos.":200 U<,,"RECUERDA:","a=ancho,",,"l=largo,",,"h=alto.":100d W,,1;"DOS";0;" decimales en las respuestas.":100d:"Y si en alguna ocasin te dan 0las centsimas, no lo incluyas,ysi, adems, las dcimas tambindan 0, no introduzcas ninguno delos dos ceros. Ni la coma." \K7:2:#0;1;" Pulsa una tecla ":0:0 f#cc=0:n=0:ff=0 p.k$(10 ,10 ):l$(10 ,10 ) n=110 cc:7:cc: =h=(*125}*100d)/100d:h<502920 =g=(*125}*100d)/100d:g<30930 <s=(*40(*100d)/100d:s<20940 1:1,1;" Volumen ?";20,29;n;3,1;"a= ";s;5,1;"l= ";g;7,1;"h= ";h:cc 90Z,10 :g,0:s,s:0,h:-g,-0:-s,-s:0,-h:90Z,10 +h:g,0:0,-h:90Z+g,10 +h:s,s j=0s3:90Z+j,10 +j:1,1:j:j=0h3:90Z+s,10 +s+j:0,1:j:j=0g3:90Z+s+j,10 +s:1,0:j <j=3h3:90Z+s,10 +s+j:g,0:j 9j=h0-1:90Z,10 +j:g,0:j 'cc=cc+1:cc=6cc=0  1030 n k$(n) m$>"0"1040  k$(n)<480ůk$(n)>57910 ,1;2;"Slo";11 ,1;"nmeros":2,-12 :10 ,1;" ";11 ,1;" ":1030:cc  k=(h*g*s*100d)/100d  l$(n)=k m$>"0"10808 .Xk$(n)l$(n)10 ,1;1;k$(n);13 ,1;2;k:5100 8k$(n)l$(n)ff=ff+1 :m$>"0"n=10 3110& <m$>"0"1020 @k$(n)l$(n)1030 Bk$(n)=l$(n)5000 Ln=10 1120` V 1020 `1,0;2;ff;1;" errores en ";3;"10";1;" paraleleppedos ";7,1;" ";10 ,1;" ";11 ,1;" " jF1:3,1;"Repetimos?";5,1;"( s n )" t-p$:p$"s"p$"S"p$"n"p$"N"1140t ~p$="s"p$="S"870f p$="n"p$="N"60< m$="":ccc=4 7:7:0: gx=200:gy=80P 1ga=502:gf=ga:gb=ga/2:aaa=69E Yg1x=ga/4.85334:g1y=gb/4.85334:gx=gx-g1x/2:gy=gy-gb:ga=/15:gx,gy 0g=029:g1x*(g*ga),g1y*(g*ga):g ŝ10 ,19;" ";9 ,20;" ";9 ,22;" ";9 ,24;" ";9 ,26;" ";9 ,28;" ";10 ,30;" " P(gx-gf+6),80P:0,aaa:(gx+gf+3.5`),80P:0,aaa gy=gy+aaa+24:gx=gx+ cg1x=gf/4.85334:g1y=gb/4.85334:gx=gx-g1x/2:gy=gy-gb:gf=/15:gx+1.5@,gy 0g=029:g1x*(g*gf),g1y*(g*gf):g R0,0;"Esto, como ves, es";1,0;"un cilindro.":200 3,0;"Y para hallar su";4,0;"volumen hay que";5,0;"hacer lo mismo que";6,0;"con el cubo y el";7,0;"paraleleppedo.":300,  u9 ,0;"Esto es: multipli-";10 ,0;"car la base por la";11 ,0;"altura.":200 13 ,0;"Y ya sabes como se";14,0;"halla el rea de un";15,0;"crculo,que en esta";16,0;"ocasin, es la base.":200:16,22;3;"As:":100d W15,31;2;1;"2";16,28;" r":0:200 (M18,0;"De modo que el volumen del ci-lindro ser:":200 22:19,15;1;" 2 ";20,15;" x r x h ";21,15;" ":0:200 <9#0;1;" Pulsa una tecla ":0:0 F7:7:1::"Donde ......."," = ";2;"3.1416",,,,1;"h = ";2;"altura":200:1 PI,,,,"Ahora tienes que hallar el volu-men de DIEZ cilindros.":200 Sh,,"En las respuestas emplea ";3;1;"DOS";0;1;" de-cimales slo.":200 T,,,,"Si alguna vez el decimal de las centsimas es ""0"", no lo intro- duzcas. Si, adems, las dcimasson 0, no las incluyas tampoco.",,,"E, includa la coma, no puedesconsumir ms de 10 espacios.":2 V9#0;1;" Pulsa una tecla ":0:0 ZUfff=0:ccc=4:u(10 ):h$(10 ,10 ):w$(10 ,10 ) dn=110 n1:1:ccc: xgx=148:gy=30 *ga=(*502):ga<251410 .aaa=(*120x):aaa<40(1411 gxx=148:gyy=30 gf=ga gd=gf gb=ga/2 {7:0,0;"r = ";(gd/2);0,30;n;2,0;"h = ";aaa;#0;" = 3.1416":ccc Yg1x=ga/4.85334:g1y=gb/4.85334:gx=gx-g1x/2:gy=gy-gb:ga=/15:gx,gy 0g=029:g1x*(g*ga),g1y*(g*ga):g 7:0,0;" Volumen ?";0,30;n;2,0;18,16;"r= ";18,19;(gd/2):ccc !148,30:0,-gb B(gxx-gd),30:0,aaa:(gxx+gd),30:0,aaa gy=gyy+aaa:gx=gxx Yg1x=gf/4.85334:g1y=gb/4.85334:gx=gx-g1x/2:gy=gy-gb:gf=/15:gx,gy 0g=029:g1x*(g*gf),g1y*(g*gf):g n=4ccc=3 +ccc=ccc+1:ccc=8ccc=4  1560 n h$(n) m$>"0"1570" "Ju(n)=((aaa*(3.1416Ir*((gd/2)^2)))*100d)/100d , w$(n)=u(n) 1m$>"0"1600@ 6[h$(n)w$(n)10 ,1;6;h$(n);13 ,1;7;u(n):5100 @h$(n)w$(n)fff=fff+1 Cm$>"0"n=10 3110& Em$>"0"1550 Hh$(n)w$(n)1560 J"6:h$(n)=w$(n)5000 Tn=10 1640h ^ 1550 h[0,0;6;fff;7;" fallos en ";6;"10";7;" cilindros" m07:21,0;" Repites ? (s/n)" r]z$:z$"s"z$"S"z$"n"z$"N"20,22;"s n":.2~L,40(:1650r |"z$="s"z$="S"z$"n"13w0Z  z$="n"z$="N"z$"n"60< $m$="":1:1:7: )200,140,35#:100d M0,0;"Esta pelota es una";1,0;"esfera.":200 X3,0;"Y vamos a intentar";4,0;"hallar su volumen.":200 ̞6,0;"Te recuerdo, otra";7,0;"vez,la frmula pa-";8,0;"ra hallar el rea";9 ,0;"del crculo.":100d ַ9 ,14;1;" 2 ";10 ,14;" r ":200:0:200:9 ,21;5;"No la";10 ,21;"confundas":200:7 d12 ,0;"Ahora se divide la esfera por lamitad, trazando un crculo mxi-mo.":200 :gx=201:gy=140:ga=34":gb=ga/2.5 Yg1x=ga/4.85334:g1y=gb/4.85334:gx=gx-g1x/2:gy=gy-gb:ga=/15:gx,gy 0g=029:g1x*(g*ga),g1y*(g*ga):g Y3,21;" ";2,23;" ";2,25;" ";3,27;" " l8gx=200:gy=141:ga=14.4ffff:gb=36$ v914,5;"Y tenemos 2 hemisferios.":200 T7:2:16,0;"PRESTA ATENCION":100d:7:0 16,15;" Con esta frmulaque ";1;"DEBES memorizar para SIEMPRE";0;"puedes hallar SU volumen.":300, 1:19,26;" 3";20,26;"4 r";1;8;20,26;"______";21,26;" 3 ":0:200 B6:#0;1;" Pulsa una tecla ":0:0 7:7:1: T"Si ests seguro que te sabes lafrmula para hallar el volumende una esfera..." 32:4,10 ;"pulsa ""s""":1 `63?,132:100d,0:0,15:-100d,0:0,-15 57,0;"Si no ests absolutamente seguro" *2:9 ,10 ;"pulsa ""n""" h1:63?,92\:100d,0:0,15:-100d,0:0,-15 412 ,0;"DE TODAS FORMAS, NO OLVIDES QUE LOS RESULTADOS DEBES DARLOS CON ";1;"DOS";0;" DECIMALES.":100d:,,1;"Si las centsimas te dan 0 no loincluyas.Tampoco si, adems, lasdcimas son tambin 0.":100d:,,"Contando la coma no dispones msque de DIEZ espacios." e$ e$="s"e$="S"21004 22::,,,,,,"Aqu la tienes ...":100d 78,20;"3";9 ,10 ;"4 x x r" 10 ;"-----------"  15;"3" s4:75K,70F:100d,0:0,557:-100d,0:0,-557:200  e1:15,0;"CUATRO multiplicado por 1 TERCIOde por r elevado al CUBO.":200 *z1:1:18,0;"CUANDO QUIERAS , PULSA UNA TECLAY COMIENZA LOS EJERCICIOS. ":0:0 47:7:1: >;v$(10 ,10 ):q$(10 ,10 ):c(10 ) H>ve=0:ffff=0:n=0:bb=0:ccc=0 Rn=110 \3bb=(*70F+1):bb<202140\ f q=1n kc=bb pc(q)=bb2140\ zq c(q-1)=bb  2220 n ccc:7:ccc: +ccc=ccc+1:ccc=6ccc=0 R1:1,1;"r=";bb;1,29;n;#0;" = 3.1416":ccc x=160:y=83S:s=bb s=s s2314  rad2=s*s s=s-1 s<02314 +xl=(1/2*(rad2-s*s))-1  ll=xl+xl  sl=x-xl sl,y+s:ll,0 "sl<0ll=ll+sl:sl=0 y-s<02304 sl,y-s:ll,0 2304 Mx,y:1;0,bb:0:12 ,18;"r=";bb:0:ccc Ave=(4*3.1416Ir*bb*bb*bb/3*100d)/100d .1:1,1;" Volumen ?":ccc $v$(n) &m$>"0"2350. )-v$(n)<480ův$(n)>5792340$ . q$(n)=ve 8 v$(n)q$(n)ffff=ffff+1 ;m$>"0"n=10 3110& =m$>"0"2210 BYv$(n)q$(n)10 ,1;1;v$(n);13 ,1;2;ve:5100 L72:v$(n)q$(n)ffff>33,23;"RECUERDA";4,29;"3";5,24;"4xxr";6,24;"------";7,27;"3":3,4:3,23;" ";4,29;" ";5,24;" ";6,24;" ";7,27;" ":ccc Vv$(n)q$(n)2340$ `"2:v$(n)=q$(n)5000 jn=10 2430~ t 2210 ~u1,1;2;ffff;1;" fallos en ";2;"DIEZ";1;" esferas":ffff=02500 72:20,1;" Repites ? (s/n) ":i$ ri$"s"i$"S"i$"n"i$"N"20,1;1;"Sin guasa. ""s"" o ""n""":2,35#:2440 i$="s"i$="S"21004 i$="n"i$="N"60< a1,6,3,9 ,2,6,1,7,3,9 ,2,6 b1,7,3,9 ,2,6,1,11 ,3,9 ,2,6 ؑ1,6,2,7,1,7,1,4,1,4,1,4,1,7,1,7,1,7 1,4,1,4,1,4,1,9 ,1,9 ,1,9 ,1,9 ,1,11 ,1,9 ,3,6,2,2 2500 i=132 le:pi le/7,pi i  2440 7:7:0: m$"0"3045 O" Cmo te llamas ?";1,1;2;"(Mx. 23 espacios)":1 t$(4,1) ^ii=0:mm=0:nn=0:jjj=0:kk=0:f=10 :ff=f:fff=f:ffff=f ̪ n$:n$<65Aůn$>122z20,1;"Slo letras, Caramba!":j=10 30:.01z# =,j:j:20,1;" ":3020 ց0,0;" Hola, ";2;n$;1;" !":100d 5,1;"Ahora reali-";6,1;"zars los e-";7,1;"jercicios a";8,1;"tu gusto" 3:73I,107k:36$,0:0,33!:15,0:0,-10 :-4,4:128,134:-4,-4 &m$>"0"2:1,1;n$ 5m$>"0"3:4,8;"Sigue eligiendo" Et$(1)=jjj:t$(2)=ii:t$(3)=nn:t$(4)=mm 1:6,15;"1-";1;"TODOS";0,7,15;"2-Cubos",8,15;"3-Paraleleppedos";9 ,15;"4-Cilindros",15;"5-Esferas",15;2;1;"6-MENU";0;13 ,9 ;3;"7 - SALIR DEL PROGRAMA" 69E,62>:4;182,0:4;0,12 :4;-182,0:4;0,-12 15,0;" Recuerda: slo 2 decimales, excepto cuando las centsi- mas sean 0. Entonces slo 1 o si las dcimas tambin es 0, entonces ninguno. Tienes 10 espacios, con la coma." ?2:21,0;"CUANDO ESTES LISTO, ELIGE NUMERO" =""3070 m$= m$<"1"m$>"8"3070 m$="1"m$="2"440 m$="3"870f m$="4"1370Z m$="5"21004 m$="6"60< m$="7"8800`" &5:6:1::1,1;1;"SOLUCIONES";0;8,14;"1 - Visualizadas";13 ,14;"2 - Impresas" 0'ss:ss1ss231200 2kk=kk+1 4ss=13140D 5ss=23130: :o1:7::1:8,9 ;"UN MOMENTITO!";12 ,8;"Estoy imprimiendo":0 ?m$="3"kk=2 @m$="4"kk=3 Am$="5"kk=4 B%ss=2kk*100d+3150N D7:7:1::0,0;"TUS soluciones"," Las CORRECTAS":0,0;1;8;"_______________ _____________" Im$="3"kk=2 Jm$="4"kk=3 Km$="5"kk=4 M%ss=1kk*100d+3100 j=110 : +" ";b$(j);16;j;21;u$(j):j h1:"NOTA = ";1;10 -f;0;17;2;"Pulsa una tecla":0:0 m$="1"870f m$>"1"3820  "C U B O S" j=110  3;j;8;u$(j) j  $"________________________________"   m$="1"870f m$>"1"3000 j=110 : +" ";k$(j);16;j;21;l$(j):j i1:"NOTA = ";1;10 -ff;0;17;2;"Pulsa una tecla":0:0 m$="1"1370Z m$>"1"3820 "PARALELEPIPEDOS"  % *j=110 , .3;j;8;l$(j) 0j 4 6$"________________________________" 8 >m$="1"1370Z Cm$>"1"3000 Hj=110 : R+" ";h$(j);16;j;21;w$(j):j \j1:"NOTA = ";1;10 -fff;0;17;2;"Pulsa una tecla":0:0 fm$="1"21004 km$>"1"3820  "CILINDROS" j=110  3;j;8;w$(j) j  $"________________________________"  m$="1"21004 m$>"1"3000 j=110 : +" ";v$(j);16;j;21;q$(j):j w1:"NOTA = ";1;10 -ffff;0;17;2;"Pulsa una tecla":0:0:3820   "ESFERAS"  j=110  3;j;8;q$(j) j  $"________________________________"   3000 1:1:7: *n$;",";2,0;"aqu tienes tu" 16:4,1;"E V A L U A C I O N" _0,145:170,0:0,-11 :-170,0:0,11  55:6,3;"C u b o s . . . . . . ." )7:6,28;(10 -f) ?m$="2"jjj=jjj+1:jjj=25500|:jjj=1 54:8,3;"Paraleleppedos . . . ." #*7:8,28;(10 -ff) $;m$="3"ii=ii+1:ii=25500|:ii=1 (67:10 ,3;"C i l i n d r o s . . ." -,7:10 ,28;(10 -fff) .;m$="4"nn=nn+1:nn=25500|:nn=1 266:12 ,3;"E s f e r a s . . . . ." <-7:12 ,28;(10 -ffff) A;m$="5"mm=mm+1:mm=25500|:mm=1 F&180,502:75K,0 Paf1=((((10 -f)+(10 -ff)+(10 -fff)+(10 -ffff))/4)*100d)/100d Q"ii+nn+mm+jjj=43930Z SO1:m$"1"5:15,11 ;"Evaluacin imcompleta":0 Vm$"1"19,0;"SI AGOTAS TODAS LAS OPCIONES, O ELIGES LA 1, TENDRAS LA OPORTU- NIDAD DE OPTAR A UN PREMIO":4050 Z27:18,5;"N O T A M E D I A" d21:6:18,28;f1:0 nf187:19,0;1;" E n h o r a b u e n a ":0 xf1<84050 }j=02 2,2,5,11 ,2,11 ,2,11 ,2,9 ,2,11 ,7,12 ,5,11 2,11 ,5,9 ,2,9 ,2,9 ,2,7,2,9 ,5,11 ,2,7  3970 x=116 y:z y/14,z x  25:j  6000p ;6:#0;" Pulsa una tecla cualquiera":0 m$="1"60< m$>"1"3000 10 ,1;7;1;1;"MUY BIEN":j=110 :.09}8Q,7:.1}L,4+j:.09}8Q,7:j::10 ,1;" ":0: 11 ,1;7;1;"No sirve";14,1;"S sirve":j=07:.1}L,0:.09}8Q,7+j:j:10 ,1;" ";11 ,1;" ";13 ,1;" ";14,1;" ": |A20,0;"Esta ha sido otra oportunidad enesa opcin." p=05:.09}8Q,4:.1}L,10 :.05|L,p:25:p:20,0;"Quieres volver a hacerla? (s/n) ":p$:20,0;" " )p$"s"p$"S"p$"n"p$"N"5510 p$="n"p$="N" t$(1)=jjj t$(2)=ii t$(3)=nn t$(4)=mm t=14  t$(t)="0" t p$="s"p$="S"3000 p3:7:1: z0,," Ahora el premio, ya que un ...":100d S2:2,5;" ";3,6;f1;4,5;" " <1:3,13 ;"no est nada mal!":100d ,," Entetente con ..." L1:2:10 ,6;"FUEGO ANTIAREO":0:100d F3:12 ,1;"Tienes que derribar un avin":100d 14:,," Dispara pulsando ""0""":100d 81:,," A VER CUANTAS VECES LO ABATES":100d :2:,,,," Pulsa una tecla para comenzar":0 1:1:7: s=0:k=25 120,1;"";21,0;"" %20,0:235,0 c=2*(*5)  z=0  F18,18;"PROYECTILES ";k;20,18;"DERRIBOS ";s a=290-1 c,a;"";" " $="0"6220L .a 3;c,a+1;" " B 6140 L d=2 V z=0 `b=180-2 jb,d;"";b,d;" " t d=d+2 ~d=a+3b=c6340 b  k=k-1 18,30;k;" " k=06480P a a c,a+2;" "  6140  s=s+1 2h6:c,a;"":.1}L,9 :15:.1}L,40(:15:.1}L,5:7 7 c,a;" " <20,27;s F 6140 KZs>10 14,0;" Superado el record";15,0;"de DIXPARATORIX " P,0,0;" OTRA ANDANADA ? (s/n)" Uqs>1515,0;1;" Superado el RECORD ";16,0;" de DIXPARATORIX ":0 Z=""6490Z n"s"Ʀ"n"6490Z x="s"6100 ="n"60< "_ "`1:1:1: "a6:a$="0"8805e" "b5,0;" HASTA OTRA VEZ !!":1:10 ,10 ;" ";11 ,10 ;" A D I O S ";12 ,10 ;" ":0:63700 "cyN=02:N,0;5;" ":N:1,1;5;1;" SOFTWARE CENTER" "da$="6"8819s" "e5:0,40(:30,0:0,30:-30,0:0,-30:0,70F:7,7:30,0:0,-30:-7,-7:30,70F:7,7 "f70F,40(:30,0:0,30:-30,0:0,-30:70F,70F:15,15:30,0:0,-30:-15,-15:100d,70F:15,15 "gvG1X=20/4.85334:G1Y=7/4.85334:GX=170-G1X/2:GY=45--7:GA=/15:GX,GY "h0G=029:G1X*(G*GA),G1Y*(G*GA):G "ivG1X=20/4.85334:G1Y=7/4.85334:GX=170-G1X/2:GY=80P-7:GA=/15:GX,GY "j0G=029:G1X*(G*GA),G1Y*(G*GA):G "kL150,45-:0,34":189,45-:0,35# "m230,58:,20 "n1230,39':18,25,/2 "o1228,39':19,27,/2 "q1231,39':16,29,/2 "r1231,39':15,30,/2 "sZ7:n=025:40(,25-n:3,0:.01z# =,11 :n "tJn=020:36$-n,n:4,0:.01z# =,16:n "~Qn=047/:20+n,17:0,3:.01z# =,12 :n "Sn=012 :65A+n,17+n:4,0:.01z# =,11 :n "Qn=012 :82R,29-n:3,0:.01z# =,16:n "Sn=012 :86V+n,17+n:4,0:.01z# =,11 :n "Rn=012 :103g,29-n:3,0:.01z# =,16:n "Sn=0148:107k+n,17:0,3:.01z# =,11 :n "s17,5;6;1;"":0:.1}L,20:18,28;"SOFT":.1}L,40( "21,16;"":.1}L,22:21,19;1;"JM/T&D";0:.1}L,42*:21,18;"~":.1}L,24:21,25;"~":.1}L,44,:21,27;"1":.1}L,26:21,28;".":.1}L,46.:21,29;"9":.1}L,28:21,30;"8":.1}L,480:21,31;"4":.1}L,30 "1,6,3,9 ,2,6,1,7,3,9 ,2,6,1,7,3,9 ,2,6,1,11 ,3,9 ,2,6 "B1,6,2,7,1,7,1,4,1,4,1,4,1,7,1,7,1,7,1,4,1,4,1,4,1,9 ,1,9 ,1,9 ,1,9 ,1,11 ,1,9 ,3,6,2,2 ":8891":i=132 :le,pi:le/14,pi:i "a$="6"m$>"0"0 " 60< &"volumen 1"9980& &"graf""a",21*8 & &0,0;"";:"graf" ' 1 "aM01q{18F'*:I~VwOj"! "A98graf X=8T21,1;"PULSA UNA TECLA PARA COMENZAR":0: "8;"CONOS y PIRAMIDES" L60<,175:0,-10 :142,0:0,10 E'"Este programa presenta 4 cuerposgometricos similares, dos a dos" (t'"Esto es: CONOS y PIRAMIDES, porun lado, y TRONCOS de CONO y PI-RAMIDES TRUNCADAS, por otro" 2['"Se trata de ejercitarse en el a-prendizaje de calcular el volu-men de dichos cuerpos" [6\&o)))!Hw$w$|g> o !Ov  ~++%|G g} o0!Ov   +%|G g} o0................ i=1̱a$ (code+1,a$(i) 2code <i F Ps3:3::0,0;7;" ";1,0;" AHORA ";2,0;" " Z dk$(4,19) npk$(1)="CONOS":k$(2)="TRONCOS de CONO":k$(3)="PIRAMIDES":k$(4)="PIRAMIDES TRUNCADAS" x"d$="":c$="0":f$="0":j=0 Q7:yy=72H:xs=2:ys=2:o$="PARA EL CASSETTE":4950V N21,2;1;"PULSA UNA TECLA PARA COMENZAR":0:3 ""150 :.1}L,45-:15:.3,12 :15 =""160 $n=026:3190v :n 1:6:1: Cyy=0:xs=2:ys=18:o$="VOLUMEN - 2":4950V *a$=" VOLUMEN - 2 ":10 :0,0;5;1;"  SOFTWARE CENTER " Z7:n=025:40(,25-n:3,0:.01z# =,11 :n Jn=020:35#-n,n:4,0:.01z# =,16:n Qn=047/:20+n,17:0,3:.01z# =,12 :n Sn=012 :65A+n,17+n:4,0:.01z# =,11 :n Qn=012 :82R,29-n:3,0:.01z# =,16:n Sn=012 :86V+n,17+n:4,0:.01z# =,11 :n Rn=012 :103g,29-n:3,0:.01z# =,16:n "Sn=0148:107k+n,17:0,3:.01z# =,11 :n ,E17,5;1;6;"":0:.1}L,20 6.18,28;"SOFT":.1}L,40( @+21,16;"^":.1}L,22 JB21,19;1;"JM/T&D":0:.1}L,42* TB21,18;"~";21,25;"~":.1}L,24 ^V21,27;"1":.1}L,44,:21,28;".":.1}L,26 `V21,29;"9":.1}L,46.:21,30;"8":.1}L,28 b+21,31;"4":.1}L,480 h1,6,3,9 ,2,6,1,7,3,9 ,2,6,1,7,3,9 ,2,6,1,11 ,3,9 ,2,6,1,6,2,7,1,7,1,4,1,4,1,4,1,7,1,7,1,7,1,4,1,4,1,4,1,9 ,1,9 ,1,9 ,1,9 ,1,11 ,1,9 ,3,6,2,2 r9360h:i=132 :le,pi:le/10 ,pi:i |c$="3"4940L |4:6:1::0,0:255,0:0,175:-255,0:0,-175 N128,175:0,-175:0,88X:255,0 U2:xx=8:yy=38&:xs=2:ys=2:o$="OPCIONES":4960` ]6:1:xx=8:yy=112p:xs=2:ys=1:o$="1-OTEO":4960` f$="0" 01:128,88X:0,-88X X:1:xx=8:yy=128:xs=2:ys=1:o$="2-CONTROL":4960` V2:xx=8:yy=144:xs=2:ys=1:o$="3-SALIDA":4960` j10 d$="5"570: >1:gx=159:gy=104h:ga=20:gb=8 Yg1x=ga/4.85334:g1y=gb/4.85334:gx=gx-g1x/2:gy=gy-gb:ga=/15:gx,gy 0g=029:g1x*(g*ga),g1y*(g*ga):g Q139,104h:20,40(:179,104h:-20,40( 6n=0153:158-n,104h:n 6n=040(3:159,104h+n:n k3:200,103g:10 ,10 :25,0:-10 ,-10 :-25,0 P200,103g:17,502:225,103g:-7,480 P210,113q:6,38&:235,113q:-18,39' &7n=052:217-n,108l-n:n 06n=040(2:217,108l+n:n :^6:3:xx=156:yy=100d:xs=2:ys=1:o$="Elige":4960` DIxx=156:yy=112p:xs=2:ys=1:o$="el":4960` NMxx=156:yy=124|:xs=2:ys=1:o$="numero":4960` XJxx=156:yy=136:xs=2:ys=1:o$="que":4960` bMxx=156:yy=148:xs=2:ys=1:o$="desees":4960` l c$="":c$ vyu=1̱c$:c$(uu)<491ůc$(uu)>513#0;"Slo de 1 a 3":.73333,(*30+12 ):620l u cc=c$ cc=244000 cc=34880 5:5:1: En=03:n,0;7;" ":n Jxx=8:yy=8:xs=3:ys=2:o$="Opcion?":4960` En=818:n,10 ;6;" ":n 1:9 ,11 ;7;"1-CONO";11 ,11 ;"2-TRONCO de CONO";13 ,11 ;"3-PIRAMIDE";15,11 ;"4-PIRAMIDE TRUNCADA";17,11 ;"5-Volver al MENU":0 d$="":"Elige nmero",d$ |u=1̱d$:d$(uu)<491ůd$(uu)>535#1;"Slo de 1 hasta 5":.73333,(*40(+8):730 u $d$=2cc=12350. .d$="1"(f$=1Űf$=2)1190  .d$="2"(f$=1Űf$=2)1190 .d$="3"(f$=1Űf$=2)1190  .d$="4"(f$=1Űf$=2)1190 *$d$=3cc=131200 4$d$=4cc=13730 >#d$=1cc=1850R Hd$=5:n=11 21: n,0;6;" ":n:1:0,88X:255,0:0,-88X:-255,0:0,88X:420 R1:1: W?7:gx=215:gy=104h:ga=35#:gb=13 \Yg1x=ga/4.85334:g1y=gb/4.85334:gx=gx-g1x/2:gy=gy-gb:ga=/15:gx,gy a0g=029:g1x*(g*ga),g1y*(g*ga):g fQ180,105i:35#,70F:250,105i:-35#,70F p00,0;"Esto es un cono.":100d z'"Un cuerpo geomtri-"'"co que tiene por ba-"'"se un crculo y que"'"todos los puntos de"'"su circunferencia"'"se prolongan hasta"'"otro llamado vrtice":350^ l''"Para hallar su volumen necesitas"'"dos datos:":100d:12 ,11 ;"el RADIO":100d 6n=033!2:215-n,105i:n &9 ,25;"r":100d &12 ,21;"y la ALTURA" A"que es la vertical desde el vr-tice hasta la base":100d \n=070F2:215,105i+n:n:4,27;"h":150 N16,0;"Porque el VOLUMEN de un cono se"'"halla as:":100d =n=1821:n,12 ;6;" ":n `19,13 ;6;1;" x r x h";18,18;"2";20,17;"3" C6;104h,15:1;72H,0:150 6#0;" PULSA UNA TECLA PARA CONTINUAR ":0 $N=023:3190v :N c:''''"Multiplicando por el cuadra-do del radio y por la altura,partido por 3.":200 `''''''"O, lo que es lo mismo, PI erredos por el tercio de la altura.":150 $#0;" INSTRUCCIONES ? (s/n)" =""1050 $="S"Ŧ="s"10808 ."S"Ŧ"s"1190 81:1:7: B0n=031:6,n;5;" ":n L1n=031:13 ,n;6;" ":n VEyy=77M:xs=2:ys=2:o$="INSTRUCCIONES":4950V `Qa$=" Ahora veamos si has puesto atencion a las explicaciones. Vas a hallar el volumen de 10 conos. ADVERTENCIA: no uses, en las contestaciones, mas que dos decimales. * # * Como el numero ~PI~ tiene muchos decimales lo reducimos a 3.14 * # * Al final obtendras tu evaluacion. SUERTE ! ":10 j0,0;"COMO EL TRAZADO DEL CONO ES UNTANTO LENTO, PUEDES COMENZAR AHACER LAS OPERACIONES INMEDIATA-MENTE, YA QUE LOS DATOS NECESA-RIOS LOS TENDRAS EN PANTALLADESDE EL PRINCIPIO." tO400:16,0;"El cono terminar antes que t.":100d ~p150:'"SI QUIERES VOLVER A VER ESTASINSTRUCCIONES PULSA ~S~, EN CASOCONTRARIO PULSA CUALQUIER TECLA." +#0;"PULSA UNA TECLA PARA PROSEGUIR" =""1170 ="S"Ŧ="s"10808 Fb=0:rr=b:j=b:col=b:f=b:r1=b:r2=b:r3=b:r4=b:r5=b:r6=b a(10 ):s(10 )   g(10 ) j=110 col+1:7:col: g=b 5b=(*6700,)/100d:b<5021260  h=1j g(h)=b1260  h g(h-1)=b d$="2"2790 (d$="3"3470 2d$="4"4110 <$c=(b*2*100d)/100d F$a=(b/3*100d)/100d P%r3=(b/2*100d)/100d Z r1=a:r2=b dZ1,1;"r = ";1;r3;1,29;3;1;j:0 n,3,1;"h = ";1;c x%5,1;" = 3.14" n=0200 <128+r2*(n/100d*),38&+r1*(n/100d*) n x=128:y=38&  1690 #128-b,38&:b,b*2 $128+b,38&:-b,b*2 @1:n=0b3:128-n,38&:n:0 @1:n=0a2:128,38&+n:n:0 0n=a+2c2:128,38&+n:n 1:18,12 ;"r =";18,16;r3:0:1,1;" ";5,1;" " +f$="2"#0;"PULSA ~ENTER~":0  f$="2"Ʀ13 1522  f$="2"Ʀ=13 1570" e$="":"Volumen?";" ";e$ u=1̱e$:e$(uu)<46.ůe$(uu)>57919,1;"Sin";20,1;"trampas":.73333,(*30+10 ):19,1;" ";20,1;" ":1530 u  a(j)=e$ "?s(j)=((3.14H*r3^2*c/3)*100d)/100d ,f$="2"1630^ 6+f$="1"ƽ(a(j)-s(j)).1}Lf=f+1 @f$="1"1630^ J#(a(j)-s(j))<.1}L1740 T#(a(j)-s(j)).1}L1880X ^col=col+1 hcol=5col=0 rj |f$="1"4680H f$="2"4490  2110> 64200,x 64201,y 64202,568+col 64000  b$(5,9 ) bb=(*5+1) b$(1)="MUY BIEN" b$(2)="ASI VALE" b$(3)="B U E N O" b$(4)="ESTUPENDO" b$(5)="EXCELENTE" e=175K n=(*7) & 254,n 0e :55,21;1;3;b$(bb):0 D.2~L,2:.5,11 :.2~L,11 :.2~L,11 :.2~L,9 :.2~L,11 :.73333,12 :.5,11 N Xa(j)s(j)f=f+1 bm$(5,7) lmm=(*5+1) vm$(1)="ASI NO" m$(2)="NO VALE" m$(3)="NO , NO" m$(4)="FALLO !" m$(5)="ERROR !" 611 ,25;1;0;m$(mm):0 Vf>0f<318,25;"Es...";20,22;1;s(j) If>2f<51,1;"Muchos fallos.La frmula es" ƣf>2f<5d$="1"4,21;" x r x h";3,26;"2";5,25;"3":168,136:3;72H,0 f>2f<5d$="2"4,19;"(r )+(r' )";5,22;"2x(h/3)";3,22;"2";3,29;"2":155,136:3;90Z,0 څf>2f<5d$="3"4,21;"B x H";5,23;"3":168,136:3;38&,0 f>2f<5d$="4"4,21;"B x b x h";5,25;"3":167,136:3;72H,0 9f=51,1;"Demasiados ERRORES! " .2~L,3:.2~L,7:.6,9 :.2~L,10 :.6,12 :.2~L,10 :.2~L,9 :.2~L,8:.4L,9 f=5:9 ,4;"VAMOS A TENER QUE DAR UN"''4;"REPASILLO A LAS EXPLICA-"''4;"CIONES. NO ?":200  f=5d$="1"850R f=5d$="2"2350.  f=5d$="3"31200 *f=5d$="4"3730 4 >7:6: Hn=062:0:n,n:255-n*2,0:0,175-n*2:-(255-n*2),0:0,-(175-n*2) Rn \J3:yy=8:xs=3:ys=2:o$="EVALUACION":4950V fGn=082:11 ,140+n:232,0:n pU4:xx=8:yy=45-:xs=2:ys=2:o$="aciertos":4960` zGn=082:11 ,100d+n:200,0:n Z3:xx=180:yy=45-:xs=2:ys=2:o$=(10 -f):4960` S0:xx=8:yy=80P:xs=2:ys=2:o$="fallos":4960` O3:xx=180:yy=80P:xs=2:ys=2:o$=f:4960` Fn=082:11 ,70F+n:200,0:n S2:xx=18:yy=120x:xs=2:ys=2:o$="NOTA":4960` _f=41:xx=120x:yy=120x:xs=2:ys=2:o$="BIEN":4960` kf=3f=23:xx=92\:yy=120x:xs=2:ys=2:o$="NOTABLE":4960` h0:14,65A:194,0:0,-32 :-194,0:0,32 z0:f<2xx=100d:yy=114r:xs=1:ys=3:o$="SOBRESALIENTE":1:4960`:0 jf<14:yy=144:xs=2:ys=2:o$="ENHORABUENA":1:4950V:0 Ef<42290:n=122:bb,aa:aa/14,bb:n e0,3,2,3,4,3,5,5,0,6,5,3,4,3,5,3,7,5,2,6,5,3,4,3,5,3,9 ,3.5`,7,1.5@,7,4,5,3,5,3,4,4,2,4,4,4,5,5 6#0;" PULSA UNA TECLA PARA CONTINUAR":0: (d$="1"d$="2"d$="3"d$="4"680 4:4: PN=11 21:N,0;6;" ":N $1:0,88X:255,0:0,-88X:-255,0:0,88X:128,88X:0,-88X:420 .W7:7:1::n=211 :n,22;0;" ":n 3?7:gx=222:gy=105i:ga=36$:gb=12 8Yg1x=ga/4.85334:g1y=gb/4.85334:gx=gx-g1x/2:gy=gy-gb:ga=/15:gx,gy =0g=129:g1x*(g*ga),g1y*(g*ga):g BO180,105i:8,36$:250,105i:-8,36$ G>7:gx=221:gy=141:ga=26:gb=7 LYg1x=ga/4.85334:g1y=gb/4.85334:gx=gx-g1x/2:gy=gy-gb:ga=/15:gx,gy Q0g=129:g1x*(g*ga),g1y*(g*ga):g V1:0,0;"Esta especie de flan es un tron-co de cono, o cono"'"truncado.":200:2,9 ;"Como si a un"'"cono se le hubiese"'"cortado el capirote o"'"cucurucho final.":350^ `Q'"Lo que se conoce con"'"el nombre de cuerpo"'"TRONCOCONICO.":200 jN11 ,0;"Para hallar su volu-"'"men necesitas 3 datos":200 t3'"El radio de la base mayor (r)":100d ~|0:7:n=036$3:215-n,105i:n:8,27;"r":7:1:150 E16,0;"El radio de la base menor (r')":100d n=0243:0:7:215-n,141:n:4,27;"r'":7:1:150 618,0;"Y la altura (h)":100d 0:7:n=036$3:215,105i+n:N:6,27;"h":7:1:150 =21,1;"PARA CONTINUAR PULSA UNA TECLA":0 0N=031:0,N;7;" ":N DN=112 :N,0;7;" ":N PN=13 21:N,0;7;" ":N R0,0;"Ya ests en condiciones de poderhallar su volumen.":150 l'"Has de multiplicar la"'"semisuma de las reas"'"de las bases por el"'"tercio de la altura.":300, 3'"La frmula es la si-"'"guiente:":150~ n=13 16:n,0;5;" ":n:0,72H:200,0:0,-32 :-200,0:0,32 a15,3;5;"xr + xr' /2 x h/3";14,6;"2";14,14;"2" 5:0 H16,44,:-2,2:0,18:2,2 H22,46.:-2,2:0,14:2,2 (H58:,46.:2,2:0,14:-2,2 2H78N,46.:-2,2:0,14:2,2 579#0;"Sin cuqueras":6,(*30+10 ):2960 u a(j)=e$ R5=3.14H*a1^2 R6=3.14H*r4^2 R7=(R5+R6)/2 R8=R7*c +(a(j)-s(j)).1}Lf$="1"f=f+1 f$="1"1630^ (s(j)=(R8/3*100d)/100d F$="2"1630^ #(a(j)-s(j))<.1}L1740 #(a(j)-s(j)).1}L1880X j=10 2110> & 1630^ 0N7:7::N=011 :N,22;2;" ":N :j7:187,90Z:40(,0:20,20:-40(,0:-20,-20 DX187,90Z:30,80P:187+40(,90Z:-10 ,80P N187+20,90Z+20:10 ,60<:187+60<,90Z+20:-30,60<:7:1 X@0,0;"Este cuerpo es una pi-"'"rmide.":150 bV'"Su base es un cuadrado"'"pero podra ser otro"'"polgono cualquiera.":200 lR'"Para hallar su volumen"'"habra que hacer igual"'"que con el cono.":200 vO'"Multiplicar el rea de"'"su base por el tercio"'"de su altura.":200 .'"As que la frmula general es:":150 7n=1720:n,4;6;" ":n C18,5;6;2;"B x H";19,7;"3" 32 ,40(:568,0:0,-32 :-568,0:0,32 :40(,24:40(,0:150 V18,15;"Donde B = base";20,15;"y H = altura":150 4#1;"PULSA UNA TECLA PARA CONTINUAR":0 <N=013 :N,0;" ":N I N=1521:N,0;" ":N J2,0;"Pero te hacen falta"'"DOS datos para ello.":150 #''"Uno, la ALTURA":100d v2:7:N=070F2:187+30,90Z+10 +N:N:7:1:100d 9''"Y otro (en este caso)"'"el LADO.":100d 6'''"Y en otros casos sera el"'"APOTEMA.":100d $#0;" INSTRUCCIONES ? (s/n)" =""3340 ="S"Ŧ="s"3370* "S"Ŧ"s"3460 *7:1:7: 4Nn=07:n,0;2;" ":n >Pn=13 21:n,0;2;" ":n HEyy=72H:xs=2:ys=2:o$="INSTRUCCIONES":4950V Ra$=" 10 piramides, son esta vez, de las que tienes que hallar el volumen. DOS decimales solo en las respuestas. SUERTE !! ":10 \>3,1;" TEN EN CUENTA QUE ~l = LADO~ ":100d fF0:#0;1;"INSTRUCCIONES OTRA VEZ? (s/n)":0 p=""3440p z="S"Ŧ="s"3370* 1190 rr1=(b*100d)/100d %al=(b*2*100d)/100d [1,1;"l = ";1;rr1;1,29;3;1;j:0 +3,1;"h = ";1;al :n=1b/2:78N+n,20+n:b,0:n /78N,20:b-(b/4),al+b/4 N 1:78N+b,20:-(b/18),(al+b/4)/4:0 P76L+b,20+b/2:-(b-(b*3/4)-2),(al-b/4) Q78N+b/2,20+b/2:(b-(b*3/4)),al-(b/4) L78N+b+(b/2),20+b/2:-(b-(b/4)),al-(b/4) _1:n=1b/42:78N+b-(b/4),20+b/4+n:n:0 On=b/4b*22:78N+b-(b/4),20+b/4+n:n +f$="2"#0;"PULSA ~ENTER~":0  f$="2"Ʀ13 3592  f$="2"Ʀ=13 36408 e$="":"Volumen?",e$ u=1̱e$:e$(uu)<46.ůe$(uu)>57920,1;"Slo nmeros":.6,(*30+15):20,1;" ":3600 $u . a(j)=e$ 8rr3=rr1^2 B,s(j)=(rr3*al/3*100d)/100d Lf$="2"1630^ V+(a(j)-s(j)).1}Lf$="1"f=f+1 `f$="1"1630^ j#(a(j)-s(j))<.1}L1740 t#(a(j)-s(j)).1}L1880X ~j=10 2110>  1630^ 7:7:1: :n=114:n,22;6;" ":n a188,66B:40(,0:20,20:-40(,0:-20,-20 @188+40(,66B:-5,40(*2+5 ?188,66B:20-5,40(*2+5 t188+20,66B+20:20/2-5,40(*2-(40(*2/8)+5 v188+40(+20,66B+40(/2:-15,40(*2-(40(*2/8)+5 ؽ188+20-5,66B+(40(*2)+5:40(/2,0:20/2,20/2:-40(/2,0:-20/2,-20/2 R0,0;"Este cuerpo geomtrico es"'"un TRONCO de PIRAMIDE.":150 ='"Para hallar su volumen"'"necesitas DOS datos:":200 #'"Uno, su ALTURA.":100d Pn=080P2:188+20+10 ,66B+10 +n:n  100d:8,0;"Y otro, la longiutd"'"de un LADO de la"'"BASE":200:10 ,4;",ya que se trata"'"de que la base es un"'"cuadrado y has de"'"hallar su rea.":250 '"Ten en cuenta que la"'"base puede ser otro polgonocualquiera. Pero, sea cual sea,tendrs que hallar su rea.":350^ =21,0;"PULSA UNA TECLA PARA CONTINUAR":0 ('N=024:0,N;" ":N 2<N=113 :N,0;" ":N 57920,1;2;"CUIDADO !!":.6,12 :20,1;" ":4260  a(j)=e$ r4=(r1^2)+(r2^2) r5=r4/2  r6=r5*r3 (s(j)=(r6/3*100d)/100d F$="2"1630^ +(a(j)-s(j)).1}Lf$="1"f=f+1 f$="1"1630^ #(a(j)-s(j))<.1}L1740 (a1-rr).1}L1880X j=10 2110> & 1630^ 03:7: :>yy=8:xs=3:ys=2:o$="CONTROL":4950V DV10 ,12 ;"1 ) Individual";14,12 ;"2 ) Colectivo" N920,1;1;"Elige opcin":0:f$ Xf$="1"680 b7:7:1::'''''"En una hoja de papel, o en vues-tros cuadernos de ejercicios,nu-merad, de arriba a abajo, del 1al 10":200 l''''"En otra hoja realizad las opera-ciones y en la numerada id ano-tando los resultados del volumende cada cuerpo que salga en pan-talla, por el orden en que vayanapareciendo, al lado de cada n-mero.":200 v=21,1;"PULSA UNA TECLA PARA CONTINUAR":0  680 4:7:2: ''" SOLUCIONES" E10 ,12 ;"1-Visualizadas";14,12 ;"2-Impresas" X20,1;1;"Elige":0:mm:mm<1mm>24520 mm=24590 6:6:1: (0,7;"S O L U C I O N E S" t=110 :5-t;t;" ";s(t):t _20,17;"PULSA UNA TECLA";21,17;"PARA CONTINUAR.":0:680 1:1:7: `9 ,10 ;7;"UN MOMENTITO";11 ,8;"ESTOY IMPRIMIENDO" "SOLUCIONES de"''k$(d$)   t=110   *t;" ";s(t) 4t > 680 H7:7: Rh1:0,175:128,0:0,-24:-128,0:0,24 \a136,175:119w,0:0,-24:-119w,0:0,24 fM1,1;"Tus soluciones";1,18;"Las correctas" pt=110 z#t+4,2;4;a(t); :(a(t)-s(t)).1}L0:t+4,2;a(t); 2(a(t)-s(t)).1}L0:17-t;t; 17-t;4;t; #t+4,20;4;s(t) :(a(t)-s(t)).1}L2:t+4,20;s(t) t >(a(10 )-s(10 )).1}L15,15;" " 5'" Se te ha permitido un error."'" de UNA dcima" )19,10 ;"NOTA = ";10 -f $x$="11114331101":y$="32132121216" N10 -f<5i=111 :װ(y$(i))/4,(x$(i))-1:i N10 -f>84860:n=122:bb,aa:aa/14,bb:n e0,3,2,3,4,3,5,5,0,6,5,3,4,3,5,3,7,5,2,6,5,3,4,3,5,3,9 ,3.5`,7,1.5@,7,4,5,3,5,3,4,4,3,4,4,4,5,5 C#0;"PULSA UNA TECLA PARA CONTINUAR":0:680 1:1:6: O5:yy=16:xs=2:ys=1:o$="A pasarlo bien":4950V $ 6 .Byy=24:xs=2:ys=15:o$="A D I O S":4950V 8 a$=" A D I O S ":10 B 215 L 0 V'xx=(256-8*xs*o$)/2 `i=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=o$:n=1w:i+n,o$(n):n:i+w+1,255:w=64869e: j"v2"5020 t"g"64869e,277 ~"graf""a",21*8 "rell"64000,300,  1:1:1:0,0;"";:"g"64869e:0,0;"";:"graf":0,0;"";:"rell"64000:1 [ rwHF bQzofQ =pQzᲳQzᲴUnxUnx.P^ cWa\xy&fff V4Zu!r{pס{pײrvգod] *:`~VwO1q{1S"O+(ASI NONO VALENO , NOFALLO !ERROR !E0X 11114331101Y 321321212165 5 %בWHZN념FTz^30|=pm(]QL̐hku‡5 hk=p`=pL\WQffpQ녆RzzQzQCONOS TRONCOS de CONO PIRAMIDES PIRAMIDES TRUNCADASA VOLUMEN - 2 F0C1OOpcion?D3/g e![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[h2[: [G: [2 [*[Å2[: [G: [2[: [O :[<2[ :[<2[ :[Õ@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(//graf X8