Модуль «Полиномы»

Типы используемые в модуле:

RealPtr = ^REAL; - тип указателя, используемый в модуле

PolyF = ARRAY[0..6] OF REAL; - вспомогательный массив, используемый для некоторых процедур (функций);

PolyS = ARRAY[0..4] OF REAL; - вспомогательный массив, используемый для некоторых процедур (функций);

PolyG = ARRAY[0..2] OF REAL; - вспомогательный массив, используемый для некоторых процедур (функций);

Процедуры и функции модуля

Процедура суммы многочленов

PROCEDURE PolySum(a,b: RealPtr; n,m: WORD; c: RealPtr); - Процедура выполняет сумму двух многочленов.

Входные параметры:

a,b: RealPtr; - исходные многочлены;

n,m: WORD; - степени исходных многочленов соответственно;

Выходные параметры:

c: RealPtr – сумма многочленов a и b

Процедура произведения многочленов

PROCEDURE PolyMult(a,b: RealPtr; n,m: WORD; c: RealPtr); - Процедура выполняет произведение двух многочленов.

Входные параметры:

a,b: RealPtr; - исходные многочлены;

n,m: WORD; - степени исходных многочленов соответственно;

Выходные параметры:

c: RealPtr – произведение многочленов a и b

Процедура обрезки многочлена

PROCEDURE PolyCutOne (n:WORD; k: RealPtr; v:WORD; VAR stl: WORD; p: RealPtr); - Процедура выполняет обрезку многочлена.

Входные параметры:

k: RealPtr; - исходный многочлены;

n: WORD; - степени исходного многочлена;

Выходные параметры:

c: RealPtr – произведение многочленов a и b

Процедура деления многочленов

PROCEDURE PolyDiv (n,m : WORD; a, b: RealPtr; q: RealPtr {частное}; r: RealPtr {остаток}; VAR pO : WORD); - процедура выполняет деление одного многочлена на другой.

Входные параметры:

n,m : WORD; - степени многочленов;

a, b: RealPtr - исходные многочлены, при чём a – делимое, b – делитель.

Выходные параметры:

q: RealPtr {частное}; - многочлен – частное, полученный от деления;

r: RealPtr {остаток}; - многочлен - остаток полученный от деления;

pO : WORD – степень ???

Процедура интегрирования многочлена

PROCEDURE PolyInt (n: WORD; k: RealPtr; p: RealPtr); - процедура интегрирования многочлена.

Входные параметры:

n : WORD; - степени многочлена исходного;

k: RealPtr; - исходные многочлен;

Выходные параметры:

p: RealPtr {частное}; - многочлен, полученный в результате интегрирования заданного многочлена;

Процедура диффиренцирования многочлена

PROCEDURE PolyDiff (n:WORD; k: RealPtr; p: RealPtr); - процедура дифференцирования многочлена.

Входные параметры:

n : WORD; - степени многочлена исходного;

k: RealPtr; - исходные многочлен;

Выходные параметры:

p: RealPtr {частное}; - многочлен, полученный в результате дифференцирования заданного многочлена;

UNIT PolyMod;

Interface //ќ §ў ­ёґ Їа®жҐ¤га ё дг­ЄжЁп

CONST

n = 6;

m = 4;

eps = 0.1;

TYPE

RealPtr = ^REAL;

PolyF = ARRAY[0..n] OF REAL;

PolyS = ARRAY[0..m] OF REAL;

PolyG = ARRAY[0..n-m] OF REAL;

//Ќ §ў ­ЁҐ дг­ЄжЁ©

PROCEDURE PolySum(a,b: RealPtr; n,m: WORD; c: RealPtr);{}

PROCEDURE PolySub(a,b: RealPtr; n,m: WORD; c: RealPtr);{ђ §­®бвм}

PROCEDURE PolyMult(a,b: RealPtr; n,m: WORD; c: RealPtr);

PROCEDURE PolyCutOne (n:WORD; k: RealPtr; v:WORD; VAR stl: WORD; p: RealPtr);

PROCEDURE PolyDiv (n,m : WORD; a, b: RealPtr; q: RealPtr {з бв­®Ґ}; r: RealPtr {®бв в®Є}; VAR pO : WORD);

PROCEDURE PolyInt (n:WORD; k: RealPtr; p: RealPtr);

PROCEDURE PolyDiff(n:WORD; k: RealPtr; p: RealPtr);