Обсуждение макросов для OWEN Logic

[EFrol]

Функции сможете добавить?

function fMin: real;
    var_input
        x1, x2 : real;
    end_var
    fMin := x1; if x2 < fMin then fMin := x2; end_if
end_function

function fMax: real;
    var_input
        x1, x2 : real;
    end_var
    fMax := x1; if x2 > fMax then fMax := x2; end_if
end_function

Или ФБ?

function_block f8MinMax

    var_input
        x1, x2, x3, x4, x5, x6, x7, x8 : real;
    end_var

    var_output
       Min, Max, Delta : real;
    end_var

    Min := x1;
    if x2 < Min then Min := x2; end_if
    if x3 < Min then Min := x3; end_if
    if x4 < Min then Min := x4; end_if
    if x5 < Min then Min := x5; end_if
    if x6 < Min then Min := x6; end_if
    if x7 < Min then Min := x7; end_if
    if x8 < Min then Min := x8; end_if

    Max := x1;
    if x2 > Max then Max := x2; end_if
    if x3 > Max then Max := x3; end_if
    if x4 > Max then Max := x4; end_if
    if x5 > Max then Max := x5; end_if
    if x6 > Max then Max := x6; end_if
    if x7 > Max then Max := x7; end_if
    if x8 > Max then Max := x8; end_if
    
    Delta := Max - Min;

end_function_block