Решаем задачи Абрамян на Паскале. Param19

Param19. Описать функцию Norm1($$A$$, $$M$$, $$N$$) вещественного типа, вычисляющую норму вещественной матрицы $$A$$ размера $$M \times N$$: Norm1($$A$$, $$M$$, $$N$$)=$$max {|A_{1,J}|+|A_{2,J}| +…+ |A_{M,J}|}$$, где максимум берется по всем $$J$$ от $$1$$ до $$N$$. Для данной матрицы $$A$$ размера $$M \times N$$ найти Norm1($$A$$, $$K$$, $$N$$), $$K=1,…, M$$.

Решение:

program Param19;

type
 Matrix = array[1..10,1..10] of integer;
var
 M,N,K:integer;
 A:Matrix;

Function Norm1(A:Matrix; M:integer; N:integer):Real;
var
 j,j2,NormMax,Norm:integer;
begin
 NormMax:=0;
 for j:=1 to N do
  begin
   Norm:=0;
   for j2:=1 to M do
    Norm:=Norm+A[j2,j];
   if (Norm>NormMax) or (j=1) then NormMax:=Norm;
  end;
 Norm1:=NormMax;
end;

Procedure EnterMatrix(var B:Matrix; var M,N:integer);
var j,j2:integer;
begin
 Write('M: ');
 Readln(M);

 Write('N: ');
 Readln(N);

 for j:=1 to N do
  begin
   for j2:=1 to M do
    begin
     Write (' ',J2,':',J,' : ');
     Read (B[J2,J]);
    end;
   Writeln;
  end;
end;

begin
 EnterMatrix(A,M,N);

 for K:=1 to M do
  Writeln(Norm1(A,K,N));
end.

program Param19;

type

Matrix = array[1..10,1..10] of integer;

var

M,N,K:integer;

A:Matrix;

Function Norm1(A:Matrix; M:integer; N:integer):Real;

var

j,j2,NormMax,Norm:integer;

begin

NormMax:=0;

for j:=1 to N do

begin

Norm:=0;

for j2:=1 to M do

Norm:=Norm+A[j2,j];

if (Norm>NormMax) or (j=1) then NormMax:=Norm;

end;

Norm1:=NormMax;

end;

Procedure EnterMatrix(var B:Matrix; var M,N:integer);

var j,j2:integer;

begin

Write('M: ');

Readln(M);

Write('N: ');

Readln(N);

for j:=1 to N do

begin

for j2:=1 to M do

begin

Write (' ',J2,':',J,' : ');

Read (B[J2,J]);

end;

Writeln;

end;

begin

EnterMatrix(A,M,N);

for K:=1 to M do

Writeln(Norm1(A,K,N));

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param19

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ