https://media.discordapp.net/attachment ... height=439
Kod: Tümünü seç
for satir:=2 to StringGrid2.RowCount do
for sutun:=1 to StringGrid2.ColCount do
begin
StringGrid2.Cells[sutun,satir]:=floattostr((1/strtofloat(StringGrid1.Cells[sutun-1,satir-2]))*(strtofloat(StringGrid4.Cells[0,satir-2])-(strtofloat(StringGrid1.Cells[sutun,satir-2])*strtofloat(StringGrid2.Cells[sutun+1,satir-1])+strtofloat(StringGrid1.Cells[sutun+1,satir-2])*strtofloat(StringGrid2.Cells[sutun+2,satir-1])+strtofloat(StringGrid1.Cells[sutun+2,satir-2])*strtofloat(StringGrid2.Cells[sutun+3,satir-1]))));
StringGrid2.Cells[sutun+1,satir]:=floattostr((1/strtofloat(StringGrid1.Cells[sutun,satir-1]))*(strtofloat(StringGrid4.Cells[0,satir-1])-(strtofloat(StringGrid1.Cells[sutun-1,satir-1])*strtofloat(StringGrid2.Cells[sutun,satir]))-(strtofloat(StringGrid1.Cells[sutun+1,satir-1])*strtofloat(StringGrid2.Cells[sutun+2,satir-1])+strtofloat(StringGrid1.Cells[sutun+2,satir-1])*strtofloat(StringGrid2.Cells[sutun+3,satir-1]))));
StringGrid2.Cells[sutun+2,satir]:=floattostr((1/strtofloat(StringGrid1.Cells[sutun+1,satir]))*(strtofloat(StringGrid4.Cells[0,satir])-(strtofloat(StringGrid1.Cells[sutun-1,satir])*strtofloat(StringGrid2.Cells[sutun,satir])+strtofloat(StringGrid1.Cells[sutun,satir])*strtofloat(StringGrid2.Cells[sutun+1,satir]))-(strtofloat(StringGrid1.Cells[sutun+2,satir])*strtofloat(StringGrid2.Cells[sutun+3,satir-1]))));
StringGrid2.Cells[sutun+3,satir]:=floattostr((1/strtofloat(StringGrid1.Cells[sutun+2,satir+1]))*(strtofloat(StringGrid4.Cells[0,satir+1])-(strtofloat(StringGrid1.Cells[sutun-1,satir+1])*strtofloat(StringGrid2.Cells[sutun,satir])+strtofloat(StringGrid1.Cells[sutun,satir+1])*strtofloat(StringGrid2.Cells[sutun+1,satir])+strtofloat(StringGrid1.Cells[sutun+1,satir+1])*strtofloat(StringGrid2.Cells[sutun+2,satir]))));
end;
Döngü kodları yukarda var