Решить задачу с использованием функций. Ввод-вывод значений массивов осуществить с помощью функций.

[Владимир20178]

Решить задачу с использованием функций. Ввод-вывод значений массивов осуществить с помощью функций.

Задача 1.
Даны коэффициенты многочленов P(x) и Q(x) 5-й степени и дано вещественное a. Вычислить P(a+Q(a)P(a+1)).

Задача 2.
Описать функцию SumLine(A,M,N,k), вычисляющую сумму элементов вещественной матрицы A размера M x N, расположенных в k-й строке (если k ≥ M, то функция возвращает 0). Для данной матрицы A размера M x N и трех данных k найти SumLine(A,M,N,k).

[Аватар]

покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

Задача 2

const m=4;
      n=3;

type tA=array[1..m,1..n] of real;

procedure VvodA(var a:tA);
var i,j:integer;
begin
   For i:=1 to m do
      For j:=1 to n do
      begin
         Write('A[',i,', ',j,'] = ');
         Readln(a[i,j]);
      end;
end;

function SumLine(a:tA; m,n,k:integer):real;
var j:integer;
begin
   Result:=0;
   If k>=m then
      Exit;
   For j:=1 to n do
      Result:=Result+a[k,j];
end;

var s:real;
    a:tA;
begin
   VvodA(a);
   s:=SumLine(a,m,n,1);
   Writeln(s:8:5);
   s:=SumLine(a,m,n,2);
   Writeln(s:8:5);
   s:=SumLine(a,m,n,3);
   Writeln(s:8:5);
   Readln;
end.