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

[Nash]

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

[volvo]

Nash
Ну что-то типа этого ...

Код

Type
 myFunc = Function(x: Real): Real;

Function Belongs(f: myFunc; x, y: Real): Boolean;
 Const Eps = 0.0001;
 Begin
   Belongs := (Abs(y - f(x)) <= Eps)
 End;

Function fCos(x: Real): Real; Far;
 Begin
   fCos := Cos(x)
 End;

Function fSin(x: Real): Real; Far;
 Begin
   fSin := Sin(x)
 End;

Var
 i, j: Integer;
 x, y: Real;
Const
 Fs: Array[1 .. 2] Of myFunc = (fSin, fCos);
 Fn: Array[1 .. 2] Of String = ('Sin', 'Cos');
Begin
 For i := 1 to 10 Do
   Begin
     Write('X = '); ReadLn(x);
     Write('Y = '); ReadLn(y);
     For j := 1 To 2 Do
       Begin
         If not Belongs(Fs[j], x, y) Then Write('not ');
         WriteLn( 'belongs to ', Fn[j] )
       End
   End
End.

Сообщение отредактировано: volvo - 2.12.2004 21:55