Программная реализация методов решения системы линейных уравнений
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
rowcount:=n; end;;TForm1.Button2Click(Sender: TObject);n,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14:real;,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,Y1,Y2,Y3,y4,x4,a5,X1,X2,X3,a1,a2,a3,a4,q:real;,m1:real;:=strtofloat(edit1.text);n=3 then:=strtofloat( stringgrid1.cells[1,1]);:=strtofloat( stringgrid1.cells[2,1]);:=strtofloat( stringgrid1.cells[3,1]);:=strtofloat( stringgrid1.cells[2,2]);:=strtofloat( stringgrid1.cells[3,2]);:=strtofloat( stringgrid1.cells[3,3]);:=strtofloat( stringgrid1.cells[4,1]);:=strtofloat( stringgrid1.cells[4,2]);:=strtofloat( stringgrid1.cells[4,3]);t1<0 then:=t1*(-1);.cells[1,1]:=floattostr(sqrt(t1));:=strtofloat (stringgrid2.cells[1,1]);.cells[2,1]:=floattostr (t2/b1);:=strtofloat (stringgrid2.cells[2,1]);.cells[3,1]:=floattostr(t3/b1);:=strtofloat (stringgrid2.cells[3,1]);:=((t4)-sqr(b2)*(-1));m1<0 then:=m1*(-1);.cells[2,2]:=floattostr(sqrt(m1));else begin.cells[2,2]:=floattostr(sqrt((t4)-sqr(b2)*(-1)));;:=strtofloat (stringgrid2.cells[2,2]);.cells[3,2]:=floattostr(((t5-(b3*b2*(-1)))/b4));:=strtofloat (stringgrid2.cells[3,2]);:=( t6-(sqr(b3)*(-1))-(sqr(b5)));m<0 then:=m1*(-1);.cells[3,3]:=floattostr(sqrt( t6-(sqr(b3)*(-1))-(sqr(b5))));else begin.cells[3,3]:=floattostr(sqrt( t6-(sqr(b3)*(-1))-(sqr(b5))));;:=strtofloat (stringgrid2.cells[3,3]);.Cells[1,2]:=0;.Cells[1,3]:=0;.Cells[2,3]:=0;.Cells[1,1]:=FLOATTOSTRF(B1,FFFIXED,4,1);.Cells[2,1]:=FLOATTOSTRF(B2,FFFIXED,4,1);.Cells[3,1]:=FLOATTOSTRF(B3,FFFIXED,4,1);.Cells[2,2]:=FLOATTOSTRF(B4,FFFIXED,4,1);.Cells[3,2]:=FLOATTOSTRF(B5,FFFIXED,3,0);.Cells[3,3]:=FLOATTOSTRF(B6,FFFIXED,3,1);.Cells[1,1]:=FLOATTOSTR(T7/B1);:=strtofloat (stringgrid3.cells[1,1]);.Cells[2,1]:=FLOATTOSTR((t8-(b2*y1))*(-1)/B4);:=strtofloat (stringgrid3.cells[2,1]);.Cells[3,1]:=FLOATTOSTR((t9-(b3*y1)-(b5*y2))*(-1)/B6);:=strtofloat (stringgrid3.cells[3,1]);.Cells[3,2]:=FLOATTOSTR(y3/B6);:=strtofloat (stringgrid3.cells[3,2]);.Cells[2,2]:=FLOATTOSTR((y2-(b5*x3))/B4);:=strtofloat (stringgrid3.cells[2,2]);.Cells[1,2]:=FLOATTOSTR((y1-(x3*b3)-(b2*x2))/B1);:=strtofloat (stringgrid3.cells[1,2]);.Cells[1,1]:=FLOATTOSTRF(y1,FFFIXED,3,1);.Cells[2,1]:=FLOATTOSTRF(y2,FFFIXED,3,1);.Cells[3,1]:=FLOATTOSTRF(y3,FFFIXED,3,1);.Cells[1,2]:=FLOATTOSTRF(x1,FFFIXED,3,1);.Cells[2,2]:=FLOATTOSTRF(x2,FFFIXED,3,1);.Cells[3,2]:=FLOATTOSTRF(x3,FFFIXED,3,1);.cells[4,1]:=floattostr(b1+b2+b3);:=strtofloat (stringgrid2.cells[4,1]);.Cells[4,1]:=FLOATTOSTRF(b7,FFFIXED,2,1);.cells[4,2]:=floattostr(b4+b5);:=strtofloat (stringgrid2.cells[4,2]);.Cells[4,2]:=FLOATTOSTRF(b8,fffixed,5,2);.cells[4,3]:=floattostr(b6);:=strtofloat (stringgrid2.cells[4,3]);.Cells[4,3]:=FLOATTOSTRF(b9,FFFIXED,3,1);.cells[4,1]:=floattostr(b7)+i;.cells[1,1]:=floattostr(b1)+i;.cells[2,1]:=floattostr(b2)+i;.cells[3,1]:=floattostr(b3)+i;.cells[1,1]:=floattostr(y1)+i;:=t1*(-1);.Cells[1,3]:=FLOATTOSTR (t1*x1);:=strtofloat (stringgrid3.cells[1,3]);.Cells[2,3]:=FLOATTOSTR (t2*x2);:=strtofloat (stringgrid3.cells[2,3]);.Cells[3,3]:=FLOATTOSTR (t3*x3);:=strtofloat (stringgrid3.cells[3,3]);.Cells[1,3]:=FLOATTOSTRF(a1,FFFIXED,3,1);.Cells[2,3]:=FLOATTOSTRF(a2,FFFIXED,3,1);.Cells[3,3]:=FLOATTOSTRF(a3,FFFIXED,3,1);:=((a3)+(a2)+(a1));.Text:=floattostr(a4);.Text:=FLOATTOSTRF(a4,FFFIXED,5,0);.cells[1,1]:=floattostr(sqrt(t1));:=strtoFLOAT (stringgrid2.cells[1,1]);.cells[2,1]:=floattostr (t2/b1);:=strtofloat (stringgrid2.cells[2,1]);.cells[3,1]:=floattostr(t3/b1);:=strtofloat (stringgrid2.cells[3,1]);:= (t4)-sqr(b2);m1<0 then:=m1*(-1);.cells[2,2]:=floattostr(sqrt((t4)-sqr(b2)));.cells[2,2]:=floattostr(sqrt((t4)-sqr(b2)));;:=strtofloat (stringgrid2.cells[2,2]);.cells[3,2]:=floattostr(((t5-(b3*b2))/b4));:=strtofloat (stringgrid2.cells[3,2]);:=( t6-(sqr(b3))-(sqr(b5)));(m<0) then begin.cells[3,3]:=floattostr(sqrt((-1)*(t6-(sqr(b3))-(sqr(b5)))));.cells[3,3]:=floattostr(sqrt( t6-(sqr(b3))-(sqr(b5))));;:=strtofloat (stringgrid2.cells[3,3]);.Cells[1,2]:=0;.Cells[1,3]:=0;.Cells[2,3]:=0;.Cells[1,1]:=FLOATTOSTRF(B1,FFFIXED,2,1);.Cells[2,1]:=FLOATTOSTRF(B2,FFFIXED,2,1);.Cells[3,1]:=FLOATTOSTRF(B3,FFFIXED,2,1);.Cells[2,2]:=FLOATTOSTRF(B4,FFFIXED,2,1);.Cells[3,2]:=FLOATTOSTRF(B5,FFFIXED,3,0);.Cells[3,3]:=FLOATTOSTRF(B6,FFFIXED,3,0);.Cells[1,1]:=FLOATTOSTR(T7/B1);:=strtofloat (stringgrid3.cells[1,1]);.Cells[1,1]:=FLOATTOSTRF(y1,FFFIXED,2,1);.Cells[2,1]:=FLOATTOSTR((t8-(b2*y1))/B4);:=strtofloat (stringgrid3.cells[2,1]);.Cells[2,1]:=FLOATTOSTRF(y2,FFFIXED,2,1);.Cells[3,1]:=FLOATTOSTR((t9-(b3*y1)-(b5*y2))/B6);:=strtofloat (stringgrid3.cells[3,1]);.Cells[3,1]:=FLOATTOSTRF(y3,FFFIXED,2,1);.Cells[3,2]:=FLOATTOSTR(y3/B6);:=strtofloat (stringgrid3.cells[3,2]);.Cells[3,2]:=FLOATTOSTRF(x3,FFFIXED,2,0);.Cells[2,2]:=FLOATTOSTR((y2-(b5*x3))/B4);:=strtofloat (stringgrid3.cells[2,2]);.Cells[2,2]:=FLOATTOSTRF(x2,FFFIXED,2,0);.Cells[1,2]:=FLOATTOSTR((y1-(x3*b3)-(b2*x2))/B1);:=strtofloat (stringgrid3.cells[1,2]);.Cells[1,2]:=FLOATTOSTRF(x1,FFFIXED,2,0);.cells[4,1]:=floattostr(b1+b2+b3);:=strtofloat (stringgrid2.cells[4,1]);.Cells[4,1]:=FLOATTOSTRF(b7,FFFIXED,2,1);.cells[4,2]:=floattostr(b4+b5);:=strtofloat (stringgrid2.cells[4,2]);.Cells[4,2]:=FLOATTOSTRF(b8,FFFIXED,3,0);.cells[4,3]:=floattostr(b6);:=strtofloat (stringgrid2.cells[4,3]);.Cells[4,3]:=FLOATTOSTRF(b9,FFFIXED,3,1);
.Cells[1,3]:=FLOATTOSTR (t1*x1);:=strtofloat (stringgrid3.cells[1,3]);.Cells[2,3]:=FLOATTOSTR (t2*x2);:=strtofloat (stringgrid3.cells[2,3]);.Cells[3,3]:=FLOATTOSTR (t3*x3);:=strtofloat (stringgrid3.cells[3,3]);.Cells[1,3]:=FLOATTOSTRF(a1,FFFIXED,3,0);.Cells[2,3]:=FLOATTOSTRF(a2,FFFIXED,3,0);.Cells[3,3]:=FLOATTOSTRF(a3,FFFIXED,3,0);:=((a3)+(a2)+(a1));.Text:=floattostr(a4);.Text:=FLOATTOSTRF(a4,FFFIXED,3,0);;;;TForm1.C1Click(Sender: TObject);.Visible:=true;;TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);p:tpoint;:=getclientorigin;button=mbright then popupmenu1.Popup(p.X+x,p.Y+y);;TForm1.N2Click(Sender: TObject);.clear;.clear;.Cells[1,1]:=;.Cells[1,2]:=;.Cells[1,3]:=;.Cells[1,4]:=;.Cells[2,1]:=;.Cells[2,2]:=;.Cells[2,3]:=;.Cells[2,4]:=;.Cells[5,1]:=;.Cells[5,2]:=;.Cells[3,1]:=;.Cells[3,2]:=;.Cells[3,3]:=;.Cells[3,4]:=;.Cells[4,1]:=;.Cells[4,2]:=;.Cells[4,3]:=;.Cells[4,4]:=;.Cells[5,3]:=;.Cells[5,4]:=;.Cells[1,1]:=;.Cells[1,2]:=;.Cells[1,3]:=;.Cells[1,4]:=;.Cells[2,1]:=;.Cells[2,2]:=;.Cells[2,3]:=;.Cells[2,4]:=;.Cells[5,1]:=;.Cells[5,2]:=;.Cells[3,1]:=;.Cells[3,2]:=;.Cells[3,3]:=;.Cells[3,4]:=;.Cells[4,1]:=;.Cells[4,2]:=;.Cells[4,3]:=;.Cells[4,4]:=;.Cells[5,3]:=;.Cells[5,4]:=;.Cells[1,1]:=;.Cells[1,2]:=;.Cells[1,3]:=;.Cells[2,1]:=;.Cells[2,2]:=;.Cells[2,3]:=;.Cells[3,1]:=;.Cells[3,2]:=;.Cells[3,3]:=;.Cells[4,1]:=;.Cells[4,2]:=;.Cells[4,3]:=;;TForm1.CheckBox1Click(Sender: TObject);checkbox1.Checked then.Visible:=false;;TForm1.N5Click(Sender: TObject);
begin(Вы действительно хотите выйти?);
if closequery then close;;TForm1.N3Click(Sender: TObject);
begin(Вы действительно хотите выйти?);
if closequery then close;;TForm1.Button3Click(Sender: TObject);n,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14:real;,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,Y1,Y2,Y3,y4,x4,a5,X1,X2,X3,a1,a2,a3,a4,q:real;,m1,z,z1,z2:real;:=strtoint(edit1.text);n=4 then:=strtofloat( stringgrid1.cells[1,1]);:=strtofloat( stringgrid1.cells[2,1]);:=strtofloat( stringgrid1.cells[3,1]);:=strtofloat( stringgrid1.cells[4,1]);:=strtofloat( stringgrid1.cells[5,1]);:=strtofloat( stringgrid1.cells[2,2]);:=strtofloat( stringgrid1.cells[3,2]);:=strtofloat( stringgrid1.cells[4,2]);:=strtofloat( stringgrid1.cells[5,2]);:=strtofloat( stringgrid1.cells[3,3]);:=strtofloat( stringgrid1.cells[4,3]);:=strtofloat( stringgrid1.cells[5,3]);:=strtofloat( stringgrid1.cells[4,4]);:=strtofloat( stringgrid1.cells[5,4]);t1<0 then:=t1*(-1);.cells[1,1]:=floattostr(sqrt(t1));:=strtofloat (stringgrid2.cells[1,1]);.cells[2,1]:=floattostr (t2/b1);:=strtofloat (stringgrid2.cells[2,1]);.cells[3,1]:=floattostr(t3/b1);:=strtofloat (stringgrid2.cells[3,1]);.cells[4,1]:=floattostr (t4/b1);:=strtofloat (stringgrid2.cells[2,1]);.cells[2,2]:=floattostr(sqrt((t6)-(sqr(b2)*(-1))));:=strtofloat (stringgrid2.cells[2,2]);.cells[3,2]:=floattostr(((t7-(b3*b2*(-1)))/b6)*(-1));:=strtofloat (stringgrid2.cells[3,2]);.cells[4,2]:=floattostr((((((t8)-(b4)*(b2))*(-1))/(b6))*(-1)));:=strtofloat (stringgrid2.cells[4,2]);.cells[3,3]:=floattostr(sqrt((t10)-((sqr(b3))*(-1))-sqr(b7)));:=strtofloat (stringgrid2.cells[3,3]);.cells[4,3]:=floattostr(((t11-(b4*b3*(-1))-(b7*b8))/b10));:=strtofloat (stringgrid2.cells[4,3]);.cells[4,4]:=floattostr(sqrt((t13-sqr(b11)-sqr(b8)+sqr(b4))*(-1)));:=strtofloat (stringgrid2.cells[4,4]);.Cells[1,2]:=0;.Cells[1,3]:=0;.Cells[1,4]:=0;.Cells[2,3]:=0;.Cells[2,4]:=0;.Cells[3,4]:=0;.Cells[1,1]:=FLOATTOSTRF(B1,FFFIXED,5,2);.Cells[2,1]:=FLOATTOSTRF(B2,FFFIXED,5,2);.Cells[3,1]:=FLOATTOSTRF(B3,FFFIXED,5,2);.Cells[4,1]:=FLOATTOSTRF(B4,FFFIXED,5,2);.Cells[2,2]:=FLOATTOSTRF(B6,FFFIXED,5,2);.Cells[3,2]:=FLOATTOSTRF(B7,FFFIXED,5,2);.Cells[4,2]:=FLOATTOSTRF(B8,FFFIXED,5,2);.Cells[3,3]:=FLOATTOSTRF(B10,FFFIXED,5,2);.Cells[4,3]:=FLOATTOSTRF(B11,FFFIXED,5,2);.Cells[4,4]:=FLOATTOSTRF(B13,FFFIXED,5,2);.Cells[1,1]:=FLOATTOSTR(T5/B1);:=strtofloat (stringgrid3.cells[1,1]);.Cells[2,1]:=FLOATTOSTR(-1*(t9-(b2*y1*-1))/b6);:=strtofloat (stringgrid3.cells[2,1