кинотеатр Победа Лучшая поза в постели мечеть

piknad@yandex.ru

Начинающим

изучать Python

Город Уфа

мост ч/з Белую

Яндекс.Погода

Салават Юлаев Монумент Дружбы
СОДЕРЖАНИЕ

На главную страницу сайта

Установка PYTHON 3.8

Установка PyQT5 с DESIGNER в PYTON 3.8

Установка Dgango 3.0 в Windows 7. Решение проблем

Создание таблицы tablewidget; редактирование,сортировка данных в таблице в Phyton 3.81 Tkinter

Создание таблицы; редактирование,сортировка данных,вставка и удаление строк в таблице в Phyton 3.81 PyQt5. Использование Designer.

Модели в Питон 3, Python 3, PyQt5

Примеры перевода программ с Delphi в Python

Создание сайта (блога) в Pycharm

Получение кэшбэка

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

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

1 2 3 4 5 6 7

В подпрограмме 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

Загрузка...