新命令长除法帮助

Question

我之前发过帖子这线。

我正在尝试自动化这个过程 - 使用保加利亚（和许多其他国家）的方法进行长除法。所需的是左边的，右边来自 longdiv 包。这是比较。

我试过 xlop、longdiv（如图所示），但没有我需要的左边方程的包。我尝试编辑 longdiv.tex，但出现了一些错误，而且我对 Latex 的理解也不太好。我希望有人能为此制作函数（我不需要分数）。很多人可能需要它。图中的是那里。

Answer 1

以下确实会产生您想要的输出。输出中的减号不会影响输出的整体大小，因此它们可能会粘在边距中。正如您所说，您不需要分数，以下内容不涵盖这一点。它仅适用于整数除法，并且始终会截断结果。水平规则的某些部分可能会被绘制两次，这可能会导致某些 PDF 查看器出现渲染问题，但如果您放大，这些部分应该会消失，打印应该看起来不错。

\documentclass[]{article}

\usepackage{xparse,expl3}
\usepackage{mathtools}
\ExplSyntaxOn
\int_new:N \l_Simeon_divisor_int
\int_new:N \l_Simeon_tmpa_int
\int_new:N \l_Simeon_next_dividend_int
\int_new:N \l_Simeon_pops_int
\seq_new:N \l_Simeon_dividend_seq
\seq_new:N \l_Simeon_under_seq
\bool_new:N \l_Simeon_first_bool
\tl_new:N \l_Simeon_tmpa_tl
\msg_new:nnn { Simeon } { empty~arg }%>>>
  {
    It ~ seems ~ like ~ you ~ provided ~ an ~ empty ~ arg ~ for ~ the ~ #1, ~
    this ~ is ~ not ~ allowed.
  }%<<<
\cs_new:Npn \Simeon_shift_aux:n #1%>>>
  {
    \exp_not:n { \phantom { 0 } }
  }%<<<
\cs_new:Npn \Simeon_shift:%>>>
  {
    \int_step_function:nN { \l_Simeon_pops_int } \Simeon_shift_aux:n
  }%<<<
\cs_new_protected:Npn \Simeon_array:n #1%>>>
  {
    \mathllap { \begin { array } { @{} r @{} } #1 \end { array } }
  }%<<<
\cs_new_protected:Npn \Simeon_add_to_under:n #1%>>>
  {
    \seq_put_right:Nx \l_Simeon_under_seq
      {
        \Simeon_shift:
        \Simeon_array:n { #1 }
      }
  }%<<<
\cs_new_protected:Npn \Simeon_pop_and_calc:nn #1 #2%>>>
  {
    \seq_pop_left:NN \l_Simeon_dividend_seq \l_Simeon_tmpa_tl
    \int_incr:N \l_Simeon_pops_int
    \int_set:Nn \l_Simeon_next_dividend_int
      { \l_Simeon_next_dividend_int * 10 + \l_Simeon_tmpa_tl }
    \int_set:Nn \l_Simeon_tmpa_int
      {
        \fp_eval:n
          { trunc ( \l_Simeon_next_dividend_int / \l_Simeon_divisor_int ) }
      }
    \int_compare:nNnF \l_Simeon_tmpa_int = \c_zero_int
      {
        #1
        \int_set:Nn \l_Simeon_tmpa_int
          { \l_Simeon_tmpa_int * \l_Simeon_divisor_int }
        \Simeon_add_to_under:n { #2 }
        \int_set:Nn \l_Simeon_next_dividend_int
          { \l_Simeon_next_dividend_int - \l_Simeon_tmpa_int }
      }
  }%<<<
\cs_new:Npn \Simeon_continue_hline:%>>>
  {
    \noalign { \vskip -\arrayrulewidth }
    \hline
  }%<<<
\NewDocumentCommand \longintdiv { m m }%>>>
  {
    % initializing variables >>>
    \tl_if_blank:nT { #1 }
      { \msg_error:nnn { Simeon } { empty~arg } { dividend } }
    \tl_if_blank:nT { #2 }
      { \msg_error:nnn { Simeon } { empty~arg } { divisor } }
    \seq_set_split:Nnn \l_Simeon_dividend_seq {} { #1 }
    \seq_clear:N \l_Simeon_under_seq
    \int_set:Nn \l_Simeon_divisor_int { #2 }
    \int_zero:N \l_Simeon_next_dividend_int
    \int_zero:N \l_Simeon_pops_int
    \bool_set_true:N \l_Simeon_first_bool
    % <<<
    % first division >>>
    \bool_do_while:nn
      { \l_Simeon_first_bool && !\seq_if_empty_p:N \l_Simeon_dividend_seq }
      {
        \Simeon_pop_and_calc:nn { \bool_set_false:N \l_Simeon_first_bool }
          {
            \exp_not:N \mathllap { {} - {} }
            \int_use:N \l_Simeon_tmpa_int
            \exp_not:n { \\ \hline }
          }
      }
    % <<<
    % other divisions >>>
    \bool_while_do:nn { !\seq_if_empty_p:N \l_Simeon_dividend_seq }
      {
        \Simeon_pop_and_calc:nn {}
          {
            \exp_not:N \Simeon_continue_hline:
            \int_use:N \l_Simeon_next_dividend_int
            \exp_not:n { \\ \mathllap { {} - {} } }
            \int_use:N \l_Simeon_tmpa_int
            \exp_not:n { \\ \hline }
          }
      }
    % <<<
    % rest >>>
    \Simeon_add_to_under:n
      {
        \exp_not:N \Simeon_continue_hline:
        \int_use:N \l_Simeon_next_dividend_int
      }
    % <<<
    % output >>>
    $
    \begin { array } [ t ] { @{} l @{} }
      #1 \mathbin{:} #2 = \int_eval:n { \fp_eval:n { trunc ( #1 / #2 ) } }\\
      \seq_use:Nn \l_Simeon_under_seq { \\ }
    \end { array }
    $
    % <<<
  }%<<<
\ExplSyntaxOff

\begin{document}
\longintdiv{1011}{11} 
\qquad
\longintdiv{3516}{5}
\qquad
\longintdiv{5}{5}
\qquad
\longintdiv{4}{5}
\end{document}