как сделать столы для офиса

как сделать столы для офиса
appollo a 0812

Cells[14,4]:=inttostr(random(10)-0); stringGrid1.Cells[14,6]:=inttostr(random(10)-0); end; end; procedure TForm1.Button4Click(Sender: TObject); // Закрываем программу begin Form1.Close; end; procedure TForm1.Button2Click(Sender: TObject); // складываем значения в ячейках первой матрицы и выводим результат во вторую матрицу var a : real; b : real; x: real; C : real; begin a:= StrToFloatDef(StringGrid1.Cells[0,0],0);//берем первое число b:= StrToFloatDef(StringGrid1.Cells[1,0],0);//второе число x:= StrToFloatDef(StringGrid1.Cells[2,0],0);//третье число c:=A+b+x; // складываем StringGrid2.Cells[0,0]:=FloatTOStr(c); //выводим результат во вторую матрицу a:= StrToFloatDef(StringGrid1.Cells[4,0],0); b:= StrToFloatDef(StringGrid1.Cells[5,0],0); x:= StrToFloatDef(StringGrid1.Cells[6,0],0); c:=A+b+x; // складываем StringGrid2.Cells[1,0]:=FloatTOStr(c); //выводим результат во вторую матрицу a:= StrToFloatDef(StringGrid1.Cells[8,0],0); b:= StrToFloatDef(StringGrid1.Cells[9,0],0); x:= StrToFloatDef(StringGrid1.Cells[10,0],0); c:=A+b+x; // складываем StringGrid2.Cells[2,0]:=FloatTOStr(c); //выводим результат во вторую матрицу a:= StrToFloatDef(StringGrid1.Cells[12,0],0); b:= StrToFloatDef(StringGrid1.Cells[13,0],0); x:= StrToFloatDef(StringGrid1.Cells[14,0],0); c:=A+b+x; // складываем StringGrid2.Cells[3,0]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[0,2],0); b:= StrToFloatDef(StringGrid1.Cells[1,2],0); x:= StrToFloatDef(StringGrid1.Cells[2,2],0); c:=A+b+x; // складываем StringGrid2.Cells[0,1]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[4,2],0); b:= StrToFloatDef(StringGrid1.Cells[5,2],0); x:= StrToFloatDef(StringGrid1.Cells[6,2],0); c:=A+b+x; // складываем StringGrid2.Cells[1,1]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[8,2],0); b:= StrToFloatDef(StringGrid1.Cells[9,2],0); x:= StrToFloatDef(StringGrid1.Cells[10,2],0); c:=A+b+x; // складываем StringGrid2.Cells[2,1]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[12,2],0); b:= StrToFloatDef(StringGrid1.Cells[13,2],0); x:= StrToFloatDef(StringGrid1.Cells[14,2],0); c:=A+b+x; // складываем StringGrid2.Cells[3,1]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[0,4],0); b:= StrToFloatDef(StringGrid1.Cells[1,4],0); x:= StrToFloatDef(StringGrid1.Cells[2,4],0); c:=A+b+x; // складываем StringGrid2.Cells[0,2]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[4,4],0); b:= StrToFloatDef(StringGrid1.Cells[5,4],0); x:= StrToFloatDef(StringGrid1.Cells[6,4],0); c:=A+b+x; // складываем StringGrid2.Cells[1,2]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[8,4],0); b:= StrToFloatDef(StringGrid1.Cells[9,4],0); x:= StrToFloatDef(StringGrid1.Cells[10,4],0); c:=A+b+x; // складываем StringGrid2.Cells[2,2]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[12,4],0); b:= StrToFloatDef(StringGrid1.Cells[13,4],0); x:= StrToFloatDef(StringGrid1.Cells[14,4],0); c:=A+b+x; // складываем StringGrid2.Cells[3,2]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[0,6],0); b:= StrToFloatDef(StringGrid1.Cells[1,6],0); x:= StrToFloatDef(StringGrid1.Cells[2,6],0); c:=A+b+x; // складываем StringGrid2.Cells[0,3]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[4,6],0); b:= StrToFloatDef(StringGrid1.Cells[5,6],0); x:= StrToFloatDef(StringGrid1.Cells[6,6],0); c:=A+b+x; // складываем StringGrid2.Cells[1,3]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[8,6],0); b:= StrToFloatDef(StringGrid1.Cells[9,6],0); x:= StrToFloatDef(StringGrid1.Cells[10,6],0); c:=A+b+x; // складываем StringGrid2.Cells[2,3]:=FloatTOStr(c); a:= StrToFloatDef(StringGrid1.Cells[12,6],0); b:= StrToFloatDef(StringGrid1.Cells[13,6],0); x:= StrToFloatDef(StringGrid1.Cells[14,6],0); c:=A+b+x; // складываем StringGrid2.Cells[3,3]:=FloatTOStr(c); end; end.



Мануалы по ремонту самостоятельно чешских машин Шкода Октавия 1






© 2016-2023 -