Laboratornaya_rabota_1_mat_mod (1)

α_в3= ... из 5

α₂= ... из 5

αα_с=α_с

α_с= ... из 9

Да

Нет

α_в=…

α₃= ...

Вывод всех параметров

Программирование термодинамических процессов в среде ТURBO-PASCAL

Program TURBINA;

Var hk,KPD,B,AAc,E,h2i,h2,hc,hpp1,h1,h1i,hpp2,h0,h0i,A0,hB1,hB2,hB3,hki,h3,Acp,AcB,App,A01,AB1,AB2,A1,AB3,A2,AB,A3,Ac:real;

Begin

h2i:=798.50; h2:=2494.99; hc:=2766.46;

hpp1:=2875.41; h1:=2744.43; h1i:=1013.57;

hpp2:=2930.65; h0:=2846.41; h0i:=1160.73;

A0:=1; hB1:=980.65; hB2:=712.93;

hB3:=400.38; hki:=123.19; h3:=2571.95;

hk:=2118.02;

E:=0.01; Ac:=0.7;

Repeat

Acp:=Ac*((h2-h2i)/(hc-h2i)) ;

AcB:=(Ac*h2-Acp*hc)/h2i;

App:=Acp*((hpp1-hc)/(h1-h1i));

A01:=Acp*((hpp2-hpp1)/(h0-h0i));

AB1:=A01+A0;

AB2:=(AB1*hB1-A01*h0i+A01*h1-AB1*h1)/(hB2-h1);

A1:=AB1-AB2-A01;

AB3:=(AB2*hB2-App*h1i+App*h2-AB2*h2)/(hB3-h2);

A2:=AB2-AB3-App;

AAc:=Ac;

Ac:=A0-App-A2-A1;

B:=(AAc-Ac)/Ac;

Until ABS(B)<=E;

AB:=(AB3*hB3+AcB*h3-AB3*h3-AcB*h2i)/(hki-h3);

A3:=AB3-AB-AcB;

KPD:=((A0*(h0-h1)+(A0-App-A1)*(h1-h2)+Acp*(hpp2-h3)+(Acp-A3)*(h3-hk))/(AB1*(h0-hB1)))*100;

Writeln('Acp=',Acp:7:4);

Writeln('AcB=',AcB:7:4);

Writeln('App=',App:7:4);

Writeln('A01=',A01:7:4);

Writeln('AB1=',AB1:7:4);

Writeln('AB2=',AB2:7:4);

Writeln('A1=',A1:7:4);

Writeln('AB3=',AB3:7:4);

Writeln('A2=',A2:7:4);

Writeln('AB=',AB:7:4);

Writeln('A3=',A3:7:4);

Writeln('Ac=',Ac:7:4);

Writeln('KPD=',KPD:2:0);

Readln;

End.

Результат: