Листинг 7.9

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

nt:=Form4.StringGrid1.RowCount;

mt:=Form4.StringGrid1.ColCount;

With Form4.StringGrid1 do

begin

for i:=0 to nt-1 do

begin

for j:=0 to mt-1 do

begin

MatrixTrans[i,j]:=Matrix[j,i];

Cells[j,i]:=FloatToStr(MatrixTrans[i,j]);

end;

end;

end;

end;

Пример 7.10. Умножение матриц. Ниже показан алгоритм умножения двух матриц в форме блок-схемы, а также фрагмент кода, реализующий этот алгоритм.

Код незначительно отличается от блок-схемы: в циклах блок-схемы индексы изменяются от до соответственно, в кодах нумерация индексов смещена на . Если для ввода-вывода матриц применяются таблицы StringGrid, удобно в качестве начальных значений циклических индексов использовать . Это объясняется тем, что в компонентах StringGrid строки и столбцы нумеруются с нуля.

Однако алгоритм более понятен, если он представлен так, как вы видите его на блок-схеме.

Блок-схема: умножение матриц

Приложение во время выполнения

Дата добавления: 2015-07-10