Создать процедуру, создающюю расширенную матрицу (Delphi)

[reznor264]

Надо из двух матриц 3*3 (5.60,2.70,-1.7)
(3.4,-3.6,-6.7)
(0.8,1.3,3.7)

и 3*1
(1.9)
(-2.4)
(3.7)
создать расширенную матрицу

(5.60,2.70,-1.7,1.9),
(3.4,-3.6,-6.7,-2.4),
(0.8,1.3,3.7,3.7)
С помощью пользовательской подпрограммы-процедуры?

[reznor264]

кто знает помогие плиз))

[Сtrl]

С помощью пользовательской подпрограммы-процедуры?

Да, с помощью процедуры.

[reznor264]

а объяснить в теории хотябы можешеь какой алгоритм)

[Сtrl]

Обобщим задачу. Есть матрицы (x*y) и (x*z). Нужно добавить вторую матрицу к первой, и получить матрицу (x*(y+z)).
Алгоритм простой: создаем новую матрицу нужного размера, записываем туда поочередно сначала значения первой матрицы, затем значения второй матрицы.