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

Param22. Описать функцию SumCol( $A$ , $M$ , $N$ , $K$ ) вещественного типа, вычисляющую сумму элементов вещественной матрицы $A$ размера $M \times N$ , расположенных в $K$ -м столбце (если $K>N$ , то функция возвращает $0$ ). Для данной матрицы $A$ размера $M \times N$ и трех данных $K$ найти SumCol( $A$ , $M$ , $N$ , $K$ ).

Решение:

program Param22;

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

Function SumCol(A:Matrix; M:integer; N,K:integer):Real;
var
 j,Sum:integer;
begin
 Sum:=0;
 if K<=N then
  for j:=1 to N do
    Sum:=Sum+A[j,k];
 SumCol:=Sum;
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 j:=1 to 3 do
  begin
   Write('K: ');
   Readln(K);
   Writeln(SumCol(A,M,N,K));
  end;
end.

program Param22;

type

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

var

M,N,K,j:integer;

A:Matrix;

Function SumCol(A:Matrix; M:integer; N,K:integer):Real;

var

j,Sum:integer;

begin

Sum:=0;

if K<=N then

for j:=1 to N do

Sum:=Sum+A[j,k];

SumCol:=Sum;

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 j:=1 to 3 do

begin

Write('K: ');

Readln(K);

Writeln(SumCol(A,M,N,K));

end;

end.

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

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

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

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