ГОСТ Р ИСО 13584-20—2006
OR (’IS013584_EXPRESSI0NS_SCHEMA.L0G2_FUNCTI0N’ INTYPEOF(arg))
OR (’IS013584_EXPRESSI0NS_SCHEMA.LOG10JUNCTION* IN TYPEOF(arg))
OR (’IS013584_EXPRESSIONS_SCHEMA.SQUAREJROOT_FUNCTION’
IN TYPEOF (arg))
THEN
RETURN (FALSE);
ENDJF;
IF flS013584_EXPRESSIONS_SCHEMA.PLUS_EXPRESSION’ IN TYPEOF(arg))
OR (’IS0135e4_EXPRESSI0NS_SCHEMA.MULT_EXPRESSI0N’
IN TYPEOF(arg))
OR (’IS013584_EXPRESSI0NS_SCHEMA.MAXIMUMJ-UNCTION*
IN TYPEOF(arg))
OR (‘IS013584_EXPRESSIONS_SCHEMA.MINIMUM_FUNCTION’
IN TYPEOF(arg))
THEN
REPEATi:=1 TO SIZEOF (
arg\multiple_arity_numeric_expression.operands):
IF NOT
is_int_expr(arg\multiple_arity_numeric_expression.operands(i))
THEN
RETURN (FALSE);
ENDJF;
END_REPEAT;
RETURN (TRUE);
ENDJF;
IF (’IS013584_EXPRESSI0NS_SCHEMA.MINUS_EXPRESSI0N’ IN TYPEOF(arg))
OR (’IS013584_EXPRESSI0NS_SCHEMA.P0WER_EXPRESSI0N’
IN TYPEOF(arg))
THEN
RETURN (isJnt_expr(arg\binary_numeric_expression.operands[1])
ANDis_int_expr(arg\binary_numeric_expression.operands(2]));
ENDJF;
IF {’IS013584_EXPRESSI0NS_SCHEMA.DIV_EXPRESSI0N’ IN TYPEOF(arg))
OR (’IS013584_EXPRESSI0NS_SCHEMA.M0D_EXPRESSI0N’IN TYPEOF(arg))
THEN
RETURN (TRUE); (‘всегда выдает результат типа INTEGER*)
ENDJF;
IF ’IS013584_EXPRESSIONS_SCHEMA.SLASH_EXPRESSION’ IN TYPEOF(arg)
THEN
RETURN (FALSE);(‘всегда выдает результат типа REAL*)
ENDJF;
IF’IS013584 EXPRESSI0NS SCHEMA.LENGTH_FUNCTION’ IN TYPEOF(arg)
THEN
RETURN (TRUE);
ENDJF;
IF ’IS013584_EXPRESSIONS_SCHEMA.VALUEJ-UNCTION’ IN TYPEOF(arg)
THEN
IF’IS013584_EXPRESSI0NS_SCHEMA.INT_VALUE_FUNCTI0N’
IN TYPEOF(arg)
THEN
RETURN (TRUE);
ELSE
RETURN (FALSE);
ENDJF;
ENDJF;
IF 4S013584_EXPRESSIONS_SCHEMA.INTEGER_DEFINED_FUNCTION’
INTYPEOF(arg)
THEN
38