Я прописываю так:, но результат не получается 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


Sorry, we currently have no events.
View All Events

English forum


View all videos


No polls
View all polls


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

technot needed texteditoranother not needed text@dystlabdummy text.store


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