ПРИМЕР ПЕРЕВОДА ПРОГРАММЫ ИЗ DELPHI В PYTHON. Использование внешних и внутренних подпрограмм

ПРИМЕР ПЕРЕВОДА ПРОГРАММЫ ИЗ DELPHI В PYTHON

Использование внешних и внутренних подпрограмм

В подпрограмме REWLIB я оставила одну процедуру для примера:

UNIT REWLIBL;
INTERFACE
uses rewob,pechob;
procedure rpri3(var t,p:real);
IMPLEMENTATION

procedure rpri3;
VAR i:integer;tra,i31,i32,qbod1,qbod2:real;
begin if (gbn[jb]>0) or(gbn[l]>0) then begin
tra:=101.2974*pow(p,0.2431193
if (t<=tra) then begin
{i3:=0.2351562e-2*t*t+109.5781;}
I3:=T;
i3:=i3*gbn[l];
ZBN:=0;
end;
if t>tra then begin
if npar=0 then begin npar:=jb;{ з «® Ї а }
for i:=jb to l do gbn[i]:=gbnz[i-npar+1];
end;
if npar=1 then npar:=2;
i31:=t3[npar-1];{нв-п ў®¤л}
qbod1:=(gbn[l]-gbn[jb])*i31;
i32:=588.125-1.4125*p+(0.48875+0.002325*p)*t;{нв-п Ї а }
qbod2:=gbn[jb]*i32;zbn:=gbn[jb];
i3:=qbod1+qbod2;
end;
end
else i3:=0;
end; { < ----------------------- end of rpri3 ----------------------------- > }

end.

Создаем модуль (подпрограмму,функцию) REWLIB.PY на Питоне. Сюда включили и проседуру pp6, используемую в подпрограмме REW на Делфи:

import math #математические функции
from OTGON import npar,l,jb,gbn #объявляются те параметры, которые используются
# в этом модуле

#===========================================================
def pp6():
ta =0; s =0; m1 =0
for i in range(0,if1):
s =s+x[i]*m[i]/r420[i]
m1 =m1+x[i]*m[i]
ta =ta+x[i]*toi[i]
rcp =m1/s
rcm =0.994*(rcp)+0.0093
k2 =1.216*pow(ta+273.16,0.333333)/rcm
k2m[jb] =k2
#==========================================================
def rpri3(p,t):
global i3,npar #global, потому-что npar , i3 меняются в функции rpri3
if (gbn[jb]>0) or(gbn[0]>0): #раньше из 1-ой позиции
tra=101.2974*pow(p,0.2431193) #функция pow-стандартная
if (t<=tra):
i3=t
i3=i3*gbn[l];
zbn=0
if t>tra:
if npar==0:
npar=jb
for i in range(jb,l):
gbn[i]=gbnz[i-npar+1]
if npar==1:
npar=2
qbod1=(gbn[l]-gbn[jb])*i31
i32=588.125-1.4125*p+(0.48875+0.002325*p)*t
qbod2=gbn[jb]*i32; zbn=gbn[jb]
i3=qbod1+qbod2
else:
i3=0
# ----------------------- end of rpri3 -------------------

1 2 3 4 5 6 7