Фичи и баги OWEN Logic

[kondor3000]

В последней версии ST перестало работать правильно. В версии 2.10.367 правильно 1 367 версия.jpg в версии Owen Logic2.11.368 не правильно 1 Версия 368.jpg
функция Min5 должна выдавать 4, а в последней версии выдаёт 2, четвёртая наработка самая маленькая 212410, у остальных одинаковая 222410

function Min5: udint; //имя функции и тип данных выхода
   
    var_input //объявление входных переменных       
        I1,I2,I3,I4, I5 : udint; //входная переменная с типом данных udint
    end_var
    
    var //объявление локальных переменных    
    end_var

   if I1<=I2 and I1<=I3 and I1<=I4 and I1<=I5 then
      Min5:=1; 
   elsif I2<=I1 and I2<=I3 and I2<=I4 and I2<=I5  then 
      Min5:=2; 
   elsif I3<=I1 and I3<=I2 and I3<=I4 and I3<=I5  then 
      Min5:=3;  
   elsif I4<=I1 and I4<=I2 and I4<=I3 and I4<=I5  then
      Min5:=4;
   elsif I5<=I1 and I5<=I2 and I5<=I3 and I5<=I4  then
      Min5:=5;
      
   end_if
   
 end_function

[capzap]

В последней версии ST перестало работать правильно. В версии 2.10.367 правильно 1 367 версия.jpg в версии Owen Logic2.11.368 не правильно 1 Версия 368.jpg
функция Min5 должна выдавать 4, а в последней версии выдаёт 2, четвёртая наработка самая маленькая 212410, у остальных одинаковая 222410

тут алиса утверждает что кот можно доработать предлагает такой

function Min5: udint;
var_input
    I1, I2, I3, I4, I5: udint;
end_var
var
    min_value: udint;
    min_index: udint := 1;
begin
    min_value := I1;
    
    IF I2 < min_value THEN
        min_value := I2;
        min_index := 2;
    END_IF;
    
    IF I3 < min_value THEN
        min_value := I3;
        min_index := 3;
    END_IF;
    
    IF I4 < min_value THEN
        min_value := I4;
        min_index := 4;
    END_IF;
    
    IF I5 < min_value THEN
        min_value := I5;
        min_index := 5;
    END_IF;
    
    Min5 := min_index;
end_function

вдруг её вариант будет работать во всех версиях

[kondor3000]

тут алиса утверждает что кот можно доработать предлагает такой
вдруг её вариант будет работать во всех версиях

Не работает, даже после исправления всех ошибок

[Валенок]

Не работает, даже после исправления всех ошибок

Я чуть выше еще проще предложил))

[capzap]

Не работает, даже после исправления всех ошибок

еще забавнее если добавить дополнительную переменную owen.png
массив переменных задом наперед получается

[Валенок]

В последней версии ST перестало работать правильно.

Зато эмуляции внутри этой же функции - норм.

За сам факт возможности эмуляции ST-функций - респект.
Но напихали модных/стильных/молодежных дебильных квадратиков с значениями прям в коде как в КДС3. Вот накой они нужны если показывают значение в конце цикла?
И каждая 20 раз упоминаемая в коде переменная засирает всё своими квадратиками с одним и тем же дерьмом как голубь.
Текущего в объявлениях достаточно. А любителям писать километровые пергаменты сделали бы отделяемые окно объяв и кода. Или вообще отдельное окно с свободно редактируемой табличкой. где можно указать что показывать
Был этот голубиный помет в 367? (я пропустил этот момент) Есть довольные этим?

вдруг её вариант будет работать во всех версиях

Не. Косяк от матерых прогеров.

[Dimensy]

Был этот голубиный помет в 367? (я пропустил этот момент) Есть довольные этим?

Эмуляцию ST добавили еще в версии 2.9.
Не думаю, что есть довольные, потому что в режиме эмуляции код становится абсолютно нечитаемым

[Валенок]

Просто - попробуйте 2 получить

function index: udint; 
   
    var_input 
       u1,u2: udint;
    end_var
    
    index := 1;
    IF u2 < u1 THEN
        index := 2;
    END_IF;
    
 end_function

Это жене дно.png
Они - знали. Заранее сняли