Загрузил Andrej S.

Фрагмент кода для вычисления Rab_real_H_0

Rab1_real:= INT_TO_REAL(KOD) ;
if Rab1_real>=80.0 then
Rab_real_H_0:=SQRT_REAL(Rab1_real / MAX_KOD_R)*MAX_QH_R;
else;
Rab_real_H_0:=(Rab1_real / MAX_KOD_R)*MAX_QH_R*7.0;
end_if;