Методы оптимизации и расчеты на ЭВМ технико-экономических задач. Ромашова О.Ю. - 137 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

137
Function GRAD1(P1,P2,dP1:real):real;
Begin
K1:=KPD1(P1,P2);
K2:=KPD1(P1+dP1,P2);
GRAD1:=(K2-K1)/dP1;
Function GRAD2(P1,P2,dP2:real):real;
Begin
K1:=KPD1(P1,P2);
K2:=KPD1(P1,P2+dP2);
GRAD2:=(K2-K1)/dP2;
End;
Описание КПД и его производных в составе модуля
Модуль – самостоятельная программная единица. Она компили-
руется и записывается на диск в объектных кодах. К модулю можно об-
ращаться из разных программ.
Внимание! Имена модуля и файла, содержащего модуль, должны
совпадать.
Приведем модуль, включающий функции KPD, GRAD1 и GRAD2.
Unit GRAD_mod; ( Заголовок модуля )
INTERFACE
Uses TABL1;
Function KPD1(P1,P2:real):real;
Function GRAD1(P1,P2,dP1:real):real;
Function GRAD2(P1,P2,dP2:real):real;
IMPLEMENTATION
Function KPD1(P1,P2:real):real;
Var KPD1,
h0,ht1,h1,hp1,ht2,hp2,hkt,hkI,hkII,hI,hII,ht,
P0,PK,
S0,S0II,S1,S1II,S2,S2II,SI,SII,
t0,t1,t2,x :
Begin { Начало функции KPD1 } ...
KPD1:=...
End; { Конец функции KPD1 }
Function GRAD1(P1,P2,dP1:real):real;
Var ...
Begin { Начало функции GRAD1 } ...
End; { Конец функции GRAD1 }
Function GRAD2(P1,P2,dP2:real):real;
Var ...
Begin { Начало функции GRAD2 } ...
End; { Конец функции GRAD2 }
END. { Конец модуля }

Страницы