16
4.3 Листинг модуля расчета погрешности определения расхода и количества жидкостей и газов
4.3.1 Типы используемых переменных:
FL: text; NNIT, IERR, SIZMDPD, SIZMPD, SIZMTD: byte; T1HO, T1LO, UH, UL, PHG, PLG, THG, TLG, DPH, DPL, T2HO, T2LO, ROSH, ROSL, EDPS, EDPR, EDP, EPS, EPR, EP, ETS, ETR, ET, EROSS, EROSR, EROS, EROWS, EROWR, EROW, EQS, EQR, EQ1, EVC, DD20, DT20, DD, DT, ALFAT, ALFASU, RSH, RN, TAUP, TAUAV, ERRTAU, DHD, RO, KAPPA, MU, VM, ROSC, QC, VCV, VC, RoH, RoL, RoM: real; RocStr: string[6]; LRA: array [1..10] of real; DAC, TAC: array [1..3] of real; EPA: err1; YIM: err2; HS, HSV, EH: err3; NMETHKA, NSUBA, NSUZA, NVARYA, VARPA, VarRoA, AMOUNTR, SODSUA: err7; NRA: err8; EDPA: err9; ETA: err10; EROSA, ERowA; err11;
type err1 = array [1..26] of real; err2 = array [1..16,1..2] of real; err3 = array [1..2] of real; err7 = array [1..30] of byte; err8 = array [1..10] of byte; err9 = array [1..35] of rsal; err10 = array [0..35] of real; err11 = array [1..22] of real;
4.3.2 Листинг модуля ERRQSNX
Unit ERRQSNX;
Interface
{----------------------------------------------------------------------}
Procedure QS;
Implementation uses DOS, CRT;
{----------------------------------------------------------------------}
var
Zc: real;
const
Bi:array( 1.. 16] of real=(0.0436.0.0894.0.1288,0.1783,0.1703,0.2345,
0.2168,0.2846,0.3521,0.4278,0.0173,0.0728,
0.1,0.0,0.02,-0.0051);
Procedure DP(E:err9; DPQreal; var EDPSY, EDPRA, EDP : real);
forward;
Procedure P(E:err1; PM:real; var EPSY, EPRA, EP : real);
forward;
Procedure T(E : err10; TA:real; var ETSY, ETRA, ET : real);
forward;
Procedure ROS(E:err11;RIM : err1; var EROSS, EROSR, EROS : real);
forward;
Procedure C(BET,RE,DP,KSH,KK:real; var ERQreal; var IERR:byte);
forward;
Procedure EPSI(BET,DP,P:real; var EEPS:real);
forward;
Procedure EPH(YR:err1; T,P,ROS:real; var ERO,EKAP,EVIS:real);
forward;
Procedure EPHP(N:byte; T,P:real; var ERO,EKAP,EVIS:real);
forward;
Procedure ROW(E:err11; var EROWS, EROWR, EROW : real); forward;
Procedure QCalc(NRQ:byte; T.P,DP,YA,YY,DDO,DTO:real; YR:err1;
var BET,RE.KSH,KK,ROC,QC,VCV:real; var VCC:real; var VMC.ROX,
KAPPAX,MUX:real; var HS:err3); forward;
Procedure HSP(RIM:err1; YA,YY:real; var ERRH1,ERRH2:real);
forward;
function r_(A, R: real): real; forward;
{--------------------------------------------------------------------------}