کد را از این پاسخ و پرسش نوشتم:
documentclass{article}
\usepackage{listings}% http://ctan.org/pkg/listings
\renewcommand{\lstlistingname}{Algorithm}% Listing -> Algorithm
\renewcommand{\lstlistlistingname}{List of \lstlistingname s}% List of Listings -> List of Algorithms
\begin{document}
\lstlistoflistings
\begin{lstlisting}[caption={Descriptive Caption Text},label=DescriptiveLabel]
for i:=maxint to 0 do
begin
{ do nothing }
end;
Write('Case insensitive ');
WritE('Pascal keywords.');
\end{lstlisting}
\end{document}
مانند کد بالا بنویس و هر جا خواستی ارجاع بدی بنویس
\ref{DescriptiveLabel}