4 lines
211 B
Ada
4 lines
211 B
Ada
-- As prototyped in the Generic_Real_Arrays specification:
|
|
-- function Unit_Matrix (Order : Positive; First_1, First_2 : Integer := 1) return Real_Matrix;
|
|
-- For the task:
|
|
mat : Real_Matrix := Unit_Matrix(5);
|