A cu\u00e1ntos de ustedes no les ha pasado que cuando estudian f\u00edsica o matem\u00e1tica, al acabar de resolver un problema en donde lo importante era el razonamiento, se encuentran con un sistema de tres ecuaciones con tres variables y, para colmo de males, con n\u00fameros decimales incluidos. <\/p>\n\n\n\n\n\n\n\n
A esa hora no tenemos otra forma de comprobar que resolvi\u00e9ndolo y comenzamos la tediosa tarea de calcular el sistema por cualquiera de los m\u00e9todos que conocemos. Pero despu\u00e9s de haber resuelto un problema duro de verdad esto no es tan sencillo.<\/p>\n\n\n\n
Para evitar estos conflictos aqu\u00ed va un c\u00f3digo escrito en Pascal que resuelve sistemas de tres con tres.<\/p>\n\n\n
\nvar\ni,j,k:integer;\nDet,Detx,Dety,Detz,ti1,ti2,ti3,x,y,z:real;\na,b,c:array[1..3] of real;\nbegin\nfor i:=1 to 3 do\n begin\n write('a',i,':=');\n readln(a[i]);\n end;\nfor j:=1 to 3 do\n begin\n write('b',j,':=');\n readln(b[j]);\n end;\nfor k:=1 to 3 do\n begin\n write('c',k,':=');\n readln(c[k]);\n end;\nwrite('t,rmino independiente1:=');\nreadln(ti1);\nwrite('t,rmino independiente2:=');\nreadln(ti2);\nwrite('t,rmino independiente3:=');\nreadln(ti3);\nDet:=a[1]*b[2]*c[3]+a[2]*b[3]*c[1]+a[3]*b[1]*c[2]-a[3]*b[2]*c[1]-a[1]*b[3]*c[2]-a[2]*b[1]*c[3];\nIf Det=0 Then writeln('el sistema no tiene soluci\u00f3n')\nElse\n Begin\n Detx:=ti1*b[2]*c[3]+ti2*b[3]*c[1]+ti3*b[1]*c[2]-ti3*b[2]*c[1]-ti1*b[3]*c[2]-ti2*b[1]*c[3];\n Dety:=a[1]*ti2*c[3]+a[2]*ti3*c[1]+a[3]*ti1*c[2]-a[3]*ti2*c[1]-a[1]*ti3*c[2]-a[2]*ti1*c[3];\n Detz:=a[1]*b[2]*ti3+a[2]*b[3]*ti1+a[3]*b[1]*ti2-a[3]*b[2]*ti1-a[1]*b[3]*ti2-a[2]*b[1]*ti3;\n x:=Detx\/Det;\n y:=Dety\/Det;\n z:=Detz\/Det;\n Writeln('x:=',x:5:2);\n Writeln('y:=',y:5:2);\n Writeln('z:=',z:5:2);\n end;\nend.\n<\/pre><\/div>\n\n\nPara saber m\u00e1s…<\/h2>\n\n\n\n