//**************************************************************************************************** public void Execute(interpr.logic.Subroutine.Moment pos) { vartypes.VarBase v = m_expr.Calculate(); if (!v.IsSingle()) throw new CalcException("«начение услови¤ не может быть массивом"); if ((v as vartypes.SingleVar).ToBool()) pos.Next(); else pos.GoTo(m_looppos + 1); }
//**************************************************************************************************** public void Execute(interpr.logic.Subroutine.Moment pos) { m_for_op.Step(pos, m_for_pos); }