ГОСТ Р ИСО 10303-43—2022
REPEAT i := 1 ТО HIINDEX(result_bag);
results := results + result_bag[i];
END_REPEAT;
END_IF;
-- Find all
-- by which
representation_items or founded_items
item is referenced directly or indirectly.
intermediate_items := using_items(item,[]);
-- If the set of intermediate items is not empty;
IF SIZEOF(intermediate_items) > 0 THEN
-- For each element in the set, add the
-- representations of that element.
REPEAT i := 1 TO HIINDEX(intermediate_items);
result_bag := USEDIN(intermediate_items[i],
’REPRESENTATION_SCHEMA.REPRESENTATION.ITEMS’);
IF SIZEOF(result_bag) > 0 THEN
REPEAT j := 1 TO HIINDEX(result_bag);
results := results + result_bag[j];
END_REPEAT;
END_IF;
END_REPEAT;
END_IF;
-- Return the set of representation in which the input item is
-- used directly and indirectly (through intervening
-- representation_items or founded items).
RETURN (results);
END_FUNCTION;
(*
"
Определение параметра:
item — объект representation_item или foundedJtem, для которого создается набор использую
щих его представлений. Это — входной параметр функции.
4.5.7Функция valid_measure_value
Функция valid_measure_value выполняет проверку, имеет ли экземпляр объекта measure_
value разрешенное значение. Функция возвращает значение TRUE (истина), если экземпляр объекта
measure_value имеет численное значение и это значение положительно или если значение экземпля ра
текстовое. Функция valid_measure_value возвращает значение FALSE (ложь) в противном случае.
EXPRESS-спеииФикация:
*)
FUNCTION valid_measure_value (m :measure_value) :BOOLEAN;
IF (’REAL’ IN TYPEOF (m)) THEN
RETURN (m > 0.0);
ELSE
IF (’INTEGER’ IN TYPEOF (m)) THEN
RETURN (m > 0);
ELSE
RETURN (TRUE);
END_IF;
END_IF;
RETURN (TRUE);
END_FUNCTION;
(*
"
Определение параметра:
m — проверяемый объект measure_value. Это — входной параметр функции.
*)
END_SCHEMA; -- representation_schema
(* "
30