Вопрос Помогите написать код!! DELPHI !!

[markus1337]

Получить действительную матрицу, размерности 23х17, для которой Ai,j = 1/(i+j). Использовать нужно StringGrid.

 

[qwertyuiop]

да

 

[Kereikhan]

function matrix var i,j : integer; begin for i: 1 to 23 do begin for j: 1 to 17 do begin stringgrid.cells [j,i] := Floattostr (1/ (i+j)); end; end; end;