Вычисление по формуле, согласно норме матрицы

[drongoo]

Составить приложение для расчёта выражения:
z = g + cos(α), если g<1
z = g - cos (α), если g=1 или g>1
g - норма квадратной матрицы B размерами mXm, определяемая по формуле:
ссылка{|a_{i,j}|}
, i = 1, 2... m, т.е. g - максимальное значение из сумм элементов строк, взятых по модулю. Определение нормы матрицы оформить в виде подпрограммы. Числовые значения m и матрицы B задать самостоятельно.

Как я понял смысл программы:
Вводим квадратную матрицу размерами mXm. Программа считает сумму элементов в каждой строке, берёт по модулю и определяет максимальную сумму. Это и будет g. Далее в зависимости от значения g выполняется вычисление z по формуле. Да вот только в формуле z берется косинус α. Откуда брать α?
Ввод матрицы с помощью файла блокнота или более сложное - вывод таблицы InputBox (бывает такое?), чтобы ввести m (количество строк/столбцов) и потом как бы появлялась таблица из m строк и m столбцов, а туда вводились элементы матрицы.
Помогите написать программу. Язык - Turbo Pascal)

[InfStudent]

По моему это возможно с InputBox в Delphi а не в TP из формулы это действительно неясно насчет a обратитесь за рахъяснениями

[drongoo]

в том то и дело что я более или менее понимаю алгоритм этой программы, а вот с Паскалем практически вообще не знаком...
a - как оказалось берется произвольно.

[drongoo]

это вообще возможно решить в Паскале?

[InfStudent]

Ну в Паскале а почему нет?
Вот Вам пример:
простой программы, которая использует расчет по двум разным формулам в зависимости от параметра
....
var
a,b,c:integer;
begin
readln(c);
if c>0
begin
a:=a*cos(b);
end
else
begin
a:=c+a*cos(b);
end;
readln(a);
end;   
В принципе смотрите FAQ там описано как работать с массивами, а матрица может быть им представлена и плюс юзайте эту программу, но TP насколько я помню не дает нам никаких GUI возможностей в программе их дает Delphi. А консольное приложение вполне напишите     

[drongoo]

Спасибо за помощь!) Попробую разобраться что к чему.