Создание модулей., Процедурный тип. Нетепизированные парам Опции

[Nash]

Разработать модуль, содержащий указанные процедуры и функции. Написать тестирующую программу.
1. Составить подпрограмму-процедуру NEIBR проверки принадлежности точки плоскости с координатами (x, y) данной кривой y=f(x).
В основной программе использовать процедуру NEIBR для проверки принадлежности десяти различных точек кривым y=cos(x) и у=sin(x2).
2. Составить подпрограмму, определяющую сумму элементов под побочной диагональю матрицы N*N и использовать ее для матрицы, состоящей из случайных чисел.
Указание. Использовать нетипизированные параметры.

[volvo]

Nash

дважды писал и дважды пост не публиковался

Значит не был оформлен по правилам...

Функция для второй задачи может быть вот такой:

Код

function sum(Var a; n: Integer): Integer;
 var
   arr: array[1 .. 1] of integer absolute a;
   i, j, s: integer;
 begin
   {$R-}
   s:=0;
   for i:=2 to n do
   for j:=n-i+2 to n do
     s:=s+arr[Pred(i)*n + j];
   sum := s
   {$R+}
 end;

const
 n = 3;
var
matrix: array[1 .. n, 1 .. n] of integer;
i, j: integer;
begin
 for i := 1 to n do
   for j := 1 to n do
     matrix[i, j] := random(50);

 writeln('sum = ', sum(matrix, n))
end.