Triangulos Pitagoricos y Microsoft Small Basic.pdf
- 1. 1 TRIÁNGULOS PITAGÓRICOS (y programa en Microsoft Small Basic) MCI José A. Guasco. TRIÁNGULOS PITAGÓRICOS i = Valor Máximo de los Catetos = 200 1) TRIÁNGULO PITAGÓRICO: 3, 4, 5 Ángulo = 53.130102354156020154323400397 2) TRIÁNGULO PITAGÓRICO: 5, 12, 13 Ángulo = 67.380135051959923891413733991 3) TRIÁNGULO PITAGÓRICO: 7, 24, 25 Ángulo = 73.739795291688188874471251536 4) TRIÁNGULO PITAGÓRICO: 8, 15, 17 Ángulo = 61.927513064147203450280229847 5) TRIÁNGULO PITAGÓRICO: 9, 40, 41 Ángulo = 77.319616508180528705750129590 6) TRIÁNGULO PITAGÓRICO: 11, 60, 61 Ángulo = 79.61114218453067678821874687 7) TRIÁNGULO PITAGÓRICO: 12, 35, 37 Ángulo = 71.075355583948669881913845305 8) TRIÁNGULO PITAGÓRICO: 13, 84, 85 Ángulo = 81.20258929000898859138170980 9) TRIÁNGULO PITAGÓRICO: 15, 112, 113 Ángulo = 82.37185033141943319697218954 10) TRIÁNGULO PITAGÓRICO: 16, 63, 65 Ángulo = 75.749967302196268150248205654 11) TRIÁNGULO PITAGÓRICO: 17, 144, 145 Ángulo = 83.26707867314041292079903392 12) TRIÁNGULO PITAGÓRICO: 19, 180, 181 Ángulo = 83.97442499163322428491324863 13) TRIÁNGULO PITAGÓRICO: 20, 21, 29 Ángulo = 46.397181027296433075122434320 14) TRIÁNGULO PITAGÓRICO: 20, 99, 101 Ángulo = 78.578813725000649042812702045 15) TRIÁNGULO PITAGÓRICO: 24, 143, 145 Ángulo = 80.47271661854748947477465220 16) TRIÁNGULO PITAGÓRICO: 28, 45, 53 Ángulo = 58.109208198154125902461702149 17) TRIÁNGULO PITAGÓRICO: 28, 195, 197 Ángulo = 81.82876644005056241813237357 18) TRIÁNGULO PITAGÓRICO: 33, 56, 65
- 2. 2 Ángulo = 59.489762593884743503617022601 19) TRIÁNGULO PITAGÓRICO: 36, 77, 85 Ángulo = 64.942384581696890986955395921 20) TRIÁNGULO PITAGÓRICO: 39, 80, 89 Ángulo = 64.010766416166777964326044031 21) TRIÁNGULO PITAGÓRICO: 44, 117, 125 Ángulo = 69.390307062468003167190688109 22) TRIÁNGULO PITAGÓRICO: 48, 55, 73 Ángulo = 48.887909560833111554935966785 23) TRIÁNGULO PITAGÓRICO: 51, 140, 149 Ángulo = 69.984040397117554888228864629 24) TRIÁNGULO PITAGÓRICO: 52, 165, 173 Ángulo = 72.507675474889868887678705756 25) TRIÁNGULO PITAGÓRICO: 57, 176, 185 Ángulo = 72.054746770207522159748094339 26) TRIÁNGULO PITAGÓRICO: 60, 91, 109 Ángulo = 56.601511532012789728641556237 27) TRIÁNGULO PITAGÓRICO: 65, 72, 97 Ángulo = 47.924977949156404286818608216 28) TRIÁNGULO PITAGÓRICO: 84, 187, 205 Ángulo = 65.810485845975663335911810054 29) TRIÁNGULO PITAGÓRICO: 85, 132, 157 Ángulo = 57.220919331930483091571172062 30) TRIÁNGULO PITAGÓRICO: 88, 105, 137 Ángulo = 50.033786956200114589172593923 31) TRIÁNGULO PITAGÓRICO: 95, 168, 193 Ángulo = 60.512874327058630236312845895 32) TRIÁNGULO PITAGÓRICO: 104, 153, 185 Ángulo = 55.794542061895309963762754298 33) TRIÁNGULO PITAGÓRICO: 119, 120, 169 Ángulo = 45.239729896080897062306202090 34) TRIÁNGULO PITAGÓRICO: 133, 156, 205 Ángulo = 49.550281137663909506162574672 35) TRIÁNGULO PITAGÓRICO: 140, 171, 221 Ángulo = 50.692351883893445616101166987
- 3. 3 ' TRIÁNGULOS PITAGÓRICOS TextWindow.WriteLine("TRIÁNGULOS PITAGÓRICOS") TextWindow.WriteLine("i = Valor Máximo de los Catetos = ") i = TextWindow.ReadNumber() n = 0 For x = 1 To i For y = x To i ' TextWindow.WriteLine("x = Cateto Adyacente = " + x) ' TextWindow.WriteLine("y = Cateto Opuesto = " + y) h = Math.SquareRoot(x*x+y*y) HparteEntera = Math.Floor(h) ' TextWindow.WriteLine("h = Hipotenusa = " + h) ' Evaluación: Que el Triángulo sea Pitagórico y no sea Múltiplo de otro Zafiro = 0 For j = 2 To i ' TextWindow.WriteLine(" j = Posible Factor Común = " + j) Albis = 0 If HparteEntera <> h Then j = i EndIf xj = x/j XJparteEntera = Math.Floor(xj) If XJparteEntera = xj Then Albis = Albis + 1 EndIf yj = y/j YJparteEntera = Math.Floor(yj) If YJparteEntera = yj Then Albis = Albis + 1 EndIf hj = h/j HJparteEntera = Math.Floor(hj) If HJparteEntera = hj Then Albis = Albis + 1 EndIf ' TextWindow.WriteLine(" Albis = " + Albis) If Albis = 3 Then Zafiro = 1 EndIf EndFor If Zafiro = 0 And HparteEntera = h Then n = n + 1
- 4. 4 TextWindow.WriteLine(n + ") TRIÁNGULO PITAGÓRICO: " + x + ", " + y + ", " + h) Angulo = (180/Math.PI)*Math.ArcTan(y/x) TextWindow.WriteLine(" Ángulo = " + Angulo) EndIf EndFor EndFor https://smallbasic-publicwebsite.azurewebsites.net/