fbpx

Я прописываю так:, но результат не получается var TextMessage: string; b2, l_c, c_e, c_e0 : Double; procedure Calculate_c_e; begin Calculate_z_e; Calculate_k; Calculate_k_k; begin b2 := Math.IntPower(b, 2); begin if l_c > 100 or l_c < 0 then TextMessage := 'l_c > 100 или l_c < 0 ! РАСЧЕТ НЕВОЗМОЖЕН!'; end; l_c := 2*b - (b2 / l); c_e0 := (1.2 - 0.4 * k_k) * (0.8 + 0.002 * l_c); end; далее есть ещё условия и прописано begin Calculate_c_e; Report.Update; end; Это всё нахожу процедуре, которая...

My profile

Members online

Events

Sorry, we currently have no events.
View All Events

English forum

Video

View all videos

Polls

No polls
View all polls

Photos

Dystlab™ — Project for Engineers

Dystlab™. All rights reserved.

Address in Canada: 223-2275 Lake Shore Boulevard West, Toronto, ON, M8V 3Y3

Address in Ukraine: 76006, Ivano-Frankivsk, st. Ivana Mykolaichuka 17/97

E-mail:
technot needed texteditoranother not needed text@dystlabdummy text.store

Telegram:
https://t.me/techeditor

Legal information

Dystlab™ is a trademark registered in the State Register of Certificates of Ukraine for Goods and Services Marks 26.02.2018, certificate No. 238304. Owner: entepreneur Artomov V.E., EGRPOU/ITN: 3003314690.

All the most interesting about TechEditor — in Twitter. Join us now!

TechEditor Twitter