Программа по вычислению матрицы

[Iliyas_797]

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

With<----- вот здесь StringGrid1 do begin

ребята помогите пожалуйста

[Stilet]

И каков же текст ошибки? Хотя чего это я... школота ведь текстов ошибок видеть не умеет...

[Iliyas_797]

он у меня подчеркнут with я описал переменную sum в var ! но я по пытался что то сделать но там i ,cells и некоторые из сум подчеркнуты

[Iliyas_797]

Сообщение от Stilet

var
sum:integer;
begin
With StringGrid1 do begin
 // Получаем сумму
  for i:=0 to RowCount-1 do for j:=2 to ColCount-1 sum здесь:=sum+StrToIntDef(Cells[i,j],0);
 // Умножаем
  for i:=0 to RowCount-1 do 
   for j:=0 to 1  Cellsвот здесь [i,j]:=IntToStr(StrToIntDef(Cells[i,j],0)*sum);
end;
end;
end.

если ниче не напутал.
Код можешь поместить на клик кнопки. Sum - переменка типа Integer;

я вот сделал так но это мне ничего не дало.
только подчеркнутые ошибки
вот здесь в начале sum:=sum+StrToIntDef(Cells[i,j],0);

[Iliyas_797]

const
n=4;
m=4;
var
cells:array[1..n,1..m]of real; // массивцелых
sum:real; i,j:byte;
begin// вводмассива
with StringGrid1 do
begin
if (ColCount<=2) then begin ShowMessage('меньшестолбцов'); exit; end;
    {сумма 3 и 4 столбцов}
for i:=0 to RowCount-1 do
for j:=2 to ColCount-1 do
sum:=sum + StrToFloatDef(Cells[j,i],0);
{умножение 1 и  2 столбцов на сумму}
for i:=0 to RowCount-1 do
for j:=0 to 1 do
Cells[j,i]:=FloatToStr(StrToFloatDef(Cells[j,i],0)*sum);
      edit1.text:=inttostr(round(sum));
      label2.caption:='Сумма столбцов 3 и 4=:';
end;
end;
end.

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