|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Произведение матрицы на вектор
Добрый день, помогите дорешать задачку по Delphi. Имеется Матрица и вектор. Необходимо написать код для кнопки умножения матрицы на вектор, не используя array! Матрица-stringgrid1, Вектор-stringgrid2, Результат-stringgrid3.
|
#2
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); var i,j,p,n,m,l: integer; s: real; begin m:= StringGrid1.ColCount; StringGrid2.RowCount:= m; n:= StringGrid1.RowCount; StringGrid3.RowCount:= n; l:= StringGrid2.ColCount; StringGrid3.ColCount:= l; for i := 0 to n do for j := 0 to l do begin s:= 0; for p := 0 to m do s:= s + StrToFloat(StringGrid1.Cells[i,p]) * StrToFloat(StringGrid2.Cells[p,j]); StringGrid3.Cells[j, i]:= FloatTostr(s); end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |