[Shelby]

Вот код для получения суммы чётный элементов побочной диагонали.
действие на изменение sp.
sp1,2-это spinedit

Код:

1 2 3 4 5 6

begin sum:=0; for i:=0 to sp1.value do if sg1.cells[i+(sp2.value),i] div 2 then sum:=sum+cells[i+(sp2.value]; label2.Caption:=sum;

Admin: Пользуемся тегами!!

мозг мой ваще деградировал
можно подправить код?
спасибо.

[lmikle]

Можно.
Т.е. ты задаешь некоторый столбец-начало диагонали и если число в ячейке четное, то суммируешь его.

Если так, то:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function GetSum(ACol : Integer); var   Sum : Integer;   I, J : Integer; begin   I := ACol;   J := 0;   While (I <= N) And (J <= M) Do // M и N - границы матрицы     Begin       If sg1.cells[I,J] mod 2 = 0 Then // четное         Sum := Sum + sg1.cells[I,J];         // сдвигаемся по диагонали       Inc(I);       Inc(J);     End; end;

[Shelby]

procedure TForm1.sp2Change(Sender: TObject);
var
i,j,sum:integer;
begin
sum:=0;
for i:=0 to sp1.value do //неправильный цикл
begin
 if strtoint(sg1.cells[i+(sp2.value),i]) mod 2=0 then
 sum:=sum+strtoint(sg1.cells[i+sp2.value,i]);
 label3.Caption:=inttostr(sum);

чот выдаёт ошибку при изменении значения spinedit...
разобрался...