- •Модуль «Полиномы»
- •Процедура интегрирования многочлена
- •Процедура диффиренцирования многочлена
- •Interface //ќ §ў ёґ Їа®жҐ¤га ё дгЄжЁп
- •Implementation // ћїЁб ёґ дгЄжЁ© (ђҐ «ё§ жЁп)
- •I: word;
- •I: word;
- •I,k: word;
- •I,j,nu: word;
- •If not(d) then
- •I: word;
- •I,j,nu: word;
- •If not(d) then
- •I, l, t: word;
- •I: word;
- •I: word;
- •I,V,w : word;
Модуль «Полиномы»
Типы используемые в модуле:
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);