Моделирование систем. Давыдов Р.В - 71 стр.

КОНЦ.ЖИДК НА 49 ТАРЕЛКЕ= 0.2686784
КОНЦ.ЖИДК НА 50 ТАРЕЛКЕ= 0.2700206
КОНЦ.ЖИДК НА 51 ТАРЕЛКЕ= 0.2714113
КОНЦ.ЖИДК НА 52 ТАРЕЛКЕ= 0.2728524
КОНЦ.ЖИДК НА 53 ТАРЕЛКЕ= 0.2743456
КОНЦ.ЖИДК НА 54 ТАРЕЛКЕ= 0.2758928
КОНЦ.ЖИДК НА 55 ТАРЕЛКЕ= 0.2774959
КОНЦ.ЖИДК НА 56 ТАРЕЛКЕ= 0.2791571
КОНЦ.ЖИДК НА 57 ТАРЕЛКЕ=0.2808783
КОНЦ.ЖИДК НА 58 ТАРЕЛКЕ= 0.2826618
КОНЦ.ЖИДК НА 59 ТАРЕЛКЕ= 0.2838193
КОНЦ.ЖИДК НА 60 ТАРЕЛКЕ= 0.2850251
КОНЦ.ЖИДК НА 61 ТАРЕЛКЕ= 0.2862814
КОНЦ.ЖИДК НА 62 ТАРЕЛКЕ= 0.2875903
КОНЦ.ЖИДК НА 63 ТАРЕЛКЕ= 0.2889538
КОНЦ.ЖИДК НА 64 ТАРЕЛКЕ= 0.2903744
КОНЦ.ЖИДК НА 65 ТАРЕЛКЕ= 0.2918544
КОНЦ.ЖИДК НА 66 ТАРЕЛКЕ= 0.2933963
КОНЦ.ЖИДК НА 67 ТАРЕЛКЕ= 0.2950026
КОНЦ.ЖИДК НА 68 ТАРЕЛКЕ= 0.2966761
КОНЦ.ЖИДК НА 69 ТАРЕЛКЕ= 0.2984196
КОНЦ.ЖИДК НА 70 ТАРЕЛКЕ= 0.3002360
КОНЦ.ЖИДК НА 71 ТАРЕЛКЕ= 0.3021283
КОНЦ.ЖИДК НА 72 ТАРЕЛКЕ= 0.3040998
КОНЦ.ЖИДК НА 73 ТАРЕЛКЕ= 0.3061537
КОНЦ.ЖИДК НА 74 ТАРЕЛКЕ= 0.3082934
КОНЦ.ЖИДК НА 75 ТАРЕЛКЕ= 0.3105227
КОНЦ.ЖИДК НА 76 ТАРЕЛКЕ= 0.3128451
КОНЦ.ЖИДК НА 77 ТАРЕЛКЕ= 0.3152647
КОНЦ.ЖИДК НА 78 ТАРЕЛКЕ= 0.3177854
КОНЦ.ЖИДК НА 79 ТАРЕЛКЕ= 0.3204116
КОНЦ.ЖИДК НА 80 ТАРЕЛКЕ= 0.3231475

КОНЦ.ДИСТИЛЛЯТА XD= 0.4595222
МАТЕРИАЛЬНЫЙ БАЛАНС M= 5.4621433

            Изменяем расход питания и расход орошения колонны

PROGRAM MODEL;
USES PRINTER;
CONST N=80;      {Число тарелок}
TYPE MAS=ARRAY [0..N] OF REAL;
VAR
X,Y,YZ:MAS;
I:INTEGER;
YP,S,F,W,L,D,G:REAL;
XF,R,P,B,XD,XW,M:REAL;
BEGIN

                                   71