از بستههای algorithm و algorithmic استفاده کنید:
\documentclass{article}
\usepackage{algorithm}
\usepackage{algorithmic}
\usepackage{xepersian}
\settextfont{Tahoma}
\begin{document}
\renewcommand{\algorithmicrequire}{\textbf{Input:}}
\renewcommand{\algorithmicensure}{\textbf{Output:}}
\begin{algorithm}[t]
\caption{الگوریتم گرام اشمیت }
\begin{latin}
\begin{algorithmic}[1]
\REQUIRE $A_{m\times n}$
\ENSURE $Q,R$
\STATE $v \leftarrow Q$
\FOR {k=1,...,n}
\FOR {j=1,...,k-1}
\STATE $r_{jk} \leftarrow \langle v_k,v_j\rangle $ ( \rl{ هست}$q_j$ \rl{ همان} $v_j$)
\STATE $v_k \leftarrow v_k-v_jr_{jk} $
\ENDFOR
\STATE $r_{kk} \leftarrow \|v_k\|_2$
\STATE $v_k \leftarrow v_k/r_{kk} $
\ENDFOR
\end{algorithmic}
\end{latin}
\end{algorithm}
\end{document}
