норма матрицы Опции

[Dukalis]

...ребята задали прогу на паскале ,:Вычислить норму матрицы по формуле : N= max E(поI) |A(I,J)|. Я в паскале новичок! Помогите пожалуйста. Заранее благодарен.

p.s. E- сумма
I- счетчик по строкам
J- счетчик по столбцам

Сообщение отредактировано: Dukalis - 28.09.2004 17:18

[Atos]

Вот функция:

Код

type TElem = integer; {или другой тип элементов матрицы}
    Arr = array[1..20,1..20] of TElem;

function Norm(A:Arr; n:word):TElem; {возвращает норму матрицы А размером n на n}
var i,j:word;
   max,tmp:TElem;
begin
max:=0;
for j:=1 to n do
   begin
   tmp:=0;
   for i:=1 to n do tmp:=tmp+abs(a[i][j]);
   if tmp>max then max:=tmp;
   end;
Norm:=max;
end;

А вообще-то , dukalis , ты пробовал как-то сам это написать? Задание-то очень простое до скуки.
Ну, а если что-то конкретно непонятно, спроси, поможем.