Программная реализация методов решения системы линейных уравнений

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

]);.Cells[3,1]:=FLOATTOSTR((t12-(b3*y1*(-1))-(b6*y2))/B10);:=strtofloat (stringgrid3.cells[3,1]);.Cells[4,1]:=FLOATTOSTR((t14-(b4*y1*(-1))-(b8*y2)-(b4*y3))/B13*(-1));:=strtofloat (stringgrid3.cells[4,1]);.cells[5,1]:=floattostr(b1+b2+b3+b4);:=strtofloat (stringgrid2.cells[5,1]);.Cells[5,1]:=FLOATTOSTRF(b5,FFFIXED,5,2);.cells[5,2]:=floattostr(b6+b7+b8);:=strtofloat (stringgrid2.cells[5,2]);.Cells[5,2]:=FLOATTOSTRF(b9,FFFIXED,5,2);.cells[5,3]:=floattostr(b10+b11);:=strtofloat (stringgrid2.cells[5,3]);.Cells[5,3]:=FLOATTOSTRF(b12,FFFIXED,5,2);.cells[5,4]:=floattostr(b13);:=strtofloat (stringgrid2.cells[5,4]);.Cells[5,4]:=FLOATTOSTRF(b14,FFFIXED,5,2);.Cells[3,2]:=FLOATTOSTR(b14/b13);:=strtofloat (stringgrid3.cells[3,2]);.Cells[3,2]:=FLOATTOSTR(((b12-b11*x4))/b10);:=strtofloat (stringgrid3.cells[3,2]);.Cells[2,2]:=FLOATTOSTR((b9-b8*x4-b7*x3)/b6);:=strtofloat (stringgrid3.cells[2,2]);.Cells[1,2]:=FLOATTOSTR((b5-b4*x4-b3*x3-b2*x2)/b1);:=strtofloat (stringgrid3.cells[1,2]);.Cells[1,1]:=FLOATTOSTRF(y1,FFFIXED,5,2);.Cells[2,1]:=FLOATTOSTRF(y2,FFFIXED,5,2);.Cells[3,1]:=FLOATTOSTRF(y3,FFFIXED,5,2);.Cells[4,1]:=FLOATTOSTRF(y4,FFFIXED,5,2);.Cells[1,2]:=FLOATTOSTRF(x1,FFFIXED,5,2);.Cells[2,2]:=FLOATTOSTRF(x2,FFFIXED,5,2);.Cells[3,2]:=FLOATTOSTRF(x3,FFFIXED,5,2);.Cells[4,2]:=FLOATTOSTRF(x4,FFFIXED,5,2);.cells[4,1]:=floattostr(b1)+i;.cells[1,1]:=floattostr(b2)+i;.cells[2,1]:=floattostr(b3)+i;.cells[3,1]:=floattostr(b4)+i;.cells[1,1]:=floattostr(y1)+i;.cells[4,1]:=floattostr(y4)+i;begin.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[4,1]);:=((t6)-(sqr(b2)*(-1)));z<0 then begin:=z*(-1);.cells[2,2]:=floattostr(sqrt(z));:=strtofloat (stringgrid2.cells[2,2]); endbegin.cells[2,2]:=floattostr(sqrt((t6)-(sqr(b2)*(-1))));:=strtofloat (stringgrid2.cells[2,2]);end;.cells[3,2]:=floattostr(((t7-(b3*b2))/b6)*(-1));:=strtofloat (stringgrid2.cells[3,2]);.cells[4,2]:=floattostr(((t8-((b4)*(b2)))/(b6))*(-1));:=strtofloat (stringgrid2.cells[4,2]);:=((t10)-(sqr(b3))-(sqr(b7)*(-1)));z1<0 then begin:=z1*(-1);.cells[3,3]:=floattostr(sqrt(z1));endbegin.cells[3,3]:=floattostr(sqrt((t10)-(sqr(b3))-(sqr(b7)*(-1)))); end;:=strtofloat (stringgrid2.cells[3,3]);.cells[4,3]:=floattostr(((t11-(b4*b3)-(b7*b8*(-1)))/b10));:=strtofloat (stringgrid2.cells[4,3]);:=(t13-sqr(b11)-(sqr(b8)*(-1))+sqr(b4));z2<0 then begin:=z2*(-1);.cells[4,4]:=floattostr(sqrt(z2));endbegin.cells[4,4]:=floattostr(sqrt(t13-sqr(b11)-(sqr(b8)*(-1))+sqr(b4)));;:=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,1);.Cells[2,1]:=FLOATTOSTRF(B2,FFFIXED,5,1);.Cells[3,1]:=FLOATTOSTRF(B3,FFFIXED,5,1);.Cells[4,1]:=FLOATTOSTRF(B4,FFFIXED,5,1);.Cells[2,2]:=FLOATTOSTRF(B6,FFFIXED,5,1);.Cells[3,2]:=FLOATTOSTRF(B7,FFFIXED,5,1);.Cells[4,2]:=FLOATTOSTRF(B8,FFFIXED,5,1);.Cells[3,3]:=FLOATTOSTRF(B10,FFFIXED,5,1);.Cells[4,3]:=FLOATTOSTRF(B11,FFFIXED,5,1);.Cells[4,4]:=FLOATTOSTRF(B13,FFFIXED,5,1);.Cells[1,1]:=FLOATTOSTR(T5/B1);:=strtofloat (stringgrid3.cells[1,1]);.Cells[2,1]:=FLOATTOSTR(-1*(t9-(b2*y1))/b6);:=strtofloat (stringgrid3.cells[2,1]);.Cells[3,1]:=FLOATTOSTR((t12-(b3*y1)-(b6*y2*(-1)))/B10);:=strtofloat (stringgrid3.cells[3,1]);.Cells[4,1]:=FLOATTOSTR((t14-(b4*y1)-(b8*y2*(-1))-(b4*y3))/B13*(-1));:=strtofloat (stringgrid3.cells[4,1]);.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[4,1]:=FLOATTOSTRF(y4,FFFIXED,3,1);.cells[5,1]:=floattostr(b1+b2+b3+b4+y1);:=strtofloat (stringgrid2.cells[5,1]);.Cells[5,1]:=FLOATTOSTRF(b5,FFFIXED,3,1);.cells[5,2]:=floattostr(b6+b7+b8+y2);:=strtofloat (stringgrid2.cells[5,2]);.Cells[5,2]:=FLOATTOSTRF(b9,FFFIXED,3,1);.cells[5,3]:=floattostr(b10+b11+y3);:=strtofloat (stringgrid2.cells[5,3]);.Cells[5,3]:=FLOATTOSTRF(b12,FFFIXED,3,1);.cells[5,4]:=floattostr(b13+y4);:=strtofloat (stringgrid2.cells[5,4]);.Cells[5,4]:=FLOATTOSTRF(b14,FFFIXED,3,1);.Cells[4,2]:=FLOATTOSTR(b14/b13);:=strtofloat (stringgrid3.cells[4,2]);.Cells[3,2]:=FLOATTOSTR(((b12-(b11*x4)))/b10);:=strtofloat (stringgrid3.cells[3,2]);.Cells[2,2]:=FLOATTOSTR((b9-(b8*x4)-(b7*x3))/b6);:=strtofloat (stringgrid3.cells[2,2]);.Cells[1,2]:=FLOATTOSTR((b5-(b4*x4)-(b3*x3)-(b2*x2))/b1);:=strtofloat (stringgrid3.cells[1,2]);.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,2]:=FLOATTOSTRF(x4,FFFIXED,3,1);.cells[4,1]:=floattostr(b1)+i;.cells[1,1]:=floattostr(b2)+i;.cells[2,1]:=floattostr(b3)+i;.cells[3,1]:=floattostr(b4)+i;.cells[1,1]:=floattostr(y1)+i;.cells[4,1]:=floattostr(y4)+i;.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[4,3]:=FLOATTOSTR (t4*x4);:=strtofloat (stringgrid3.cells[4,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);.Cells[4,3]:=FLOATTOSTRF(a4,FFFIXED,3,0);:=((a3)+(a2)+(a1)+(a5));.Text:=floattostr(a4);.Text:=FLOATTOSTRF(a4,FFFIXED,3,0);;;;TForm1.N4Click(Sender: TObject);;;.

Раздел 2. Охрана труда

2.1 Требования безопасности перед началом работы на персональном компьютере

1.Отрегулировать освещенность на рабочем месте, убедиться в достаточной освещенности и отсутствии отражений и бликов на экране.

2.Протереть салфеткой поверхность экрана и защитного фильтра.

.Убедиться в отсутствии дискет в дисководах системного блока персонального компьютера.

.Проверить правильность установки стола, стула, подставки для ног, положение оборудования, угла наклона экрана, положение клавиатуры, положение мыши на специальном коврике, при необходимости произвести регулировку стола и кресла, а также расположение элементов компьютера в соответствии с требованиями эргономики и в целях исключения неудобных поз и длительных напряжений тела.

.Убедиться в исправности электрооборудования (розеток, вилок, разъемов) до включения компьютера в сеть.

.2 Требования безопасности во время работы на персональном компьютере

1.Работнику во время работы на персональном компьютере запрещается:

касаться одновременно экрана монитора и клавиатуры

прикасаться к задней панели системного блока при включенном питании

переключать разъемы интерфейсных кабелей периферийных устройств

допускать попадание влаги на поверхность системного блока, монитора, рабочую поверхность клавиатуры, принтеров и других периферийных устройств

производить самостоятельное вскрытие и ремонт оборудования

2.Работник обязан соблюдать последовательность включения компьютера:

включить блок питания

включить периферийные устройства (монитор принтер, сканер и т.д.)

включить системный блок

3.Работник обязан отключить персональный компьютер от электросети:

при обнаружении неисправности

при внезапных скачках напряжения в электросети

.3 Требования безопасности после окончания работы на персональном компьютере

1.Работник обязан соблюдать последовательность включения компьютера:

произвести закрытие всех активных задач

убедится, что в дисководах нет дискет

выключить питание системного блока

выключить питание всех периферийных устройств

2.Работник должен осмотреть и привести в порядок рабочее место

Работник обязан по окончании работы или при длительных перерывах бо

Blog

Программная реализация методов решения системы линейных уравнений

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование