تعیین عرض متن مربوط به محیط alltt

Question

سلام

چطور می‌توانم در محیط alltt (شبیه به محیط verbatim) بدون استفاده از return متن مربوط به تعدادی الگوریتم را به اندازه عرض صفحه کنم؟ نمونه کد مربوط به یک متن معمولی و یک کد الگوریتم را قرار داده‌ام (نمی‌خواهم از محیط algorithm استفاده کنم.). متاسفانه \parbox هم کار نمی‌کند.

\documentclass{book}
\usepackage{alltt}
\usepackage{amsmath}
\usepackage[extrafootnotefeatures]{xepersian}
\settextfont[Scale=1]{XB Niloofar}
\setlatintextfont[Scale=.95]{Times New Roman}
\setdigitfont[Scale=.9]{Yas}

\begin{document}

\parbox{\textwidth}{
\begin{latin}
this is a sample text.this is a sample text.this is a sample text.this is a sample text.this is a sample text.this is a sample text.this is a sample text.this is a sample text.this is a sample text.this is a sample text.
\end{latin}
}

\hrule
%\parbox{\textwidth}{ %Error :(
\begin{latin}
            \begin{alltt}
            \textbf{Algorithm Binary_Search} (X, n, z);
            \underline{\textbf{Input}}: X (a sorted array in the range 1 to n), and z (the search key).
            \underline{\textbf{Output}}: Position (an index i such that X[i] = z, or 0 if no such index
            exist.)

            begin
            Position := Find (z,1,n);
            end

            function Find (z, Left, Right) : integer;
            begin
            if Left = Right then
            if X[Left] = z then Find := Left
            else Find := 0
            else
            Middle := \(\lceil\)(Left + Right)/2\(\rceil\);
            if z < X[Middle] then
            Find := Find (z, Left, Middle - 1) 
            else    
            Find := Find (z, Middle, Right) 
            end
        \end{alltt}
\end{latin}
%}

\end{document}

Comments

این محیط، این قابلیت رو نداره. خیلی هم قدیمی شده.
می‌تونین از lstlisting استفاده کنین. خودش option  برای این کار داره. اگه قصد استفاده دارین، خبر بدین راهشو بگم.
parbox بخاطر این ارور میده که آندرلاین را قبلش باید بک‌اسلش بزنین.
البته ربطی به سوال نداره و باید در وسالی دیگری می‌پرسیدین. سوال مرتبط با عنوان سوال باید باشه و در هر پرسش، فقط یک سوال.

---

بله ممنون می‌شوم راهش را بفرمایید. امیدوارم مجبور نباشم خیلی کد را عوض کنم (66 الگوریتم هست).

---

چشم. نه آسونه. خیلی امکاناتش هم بیشتره. می‌تونین حتی find & replace کنین.

Answer 1

سلام
یک نمونه ساده که خاصیت شکستن خطوط طولانی که شما خواسته بودین، توش فعال شده.

\documentclass{book}
\usepackage{listings}
\usepackage{ptext}
\usepackage{xepersian}
\settextfont{XB Niloofar}
\begin{document}
\ptext[1]

\begin{latin}
\begin{lstlisting}[breaklines=true]
Algorithm Binary_Search} (X, n, z);
Input: X (a sorted array in the range 1 to n), and z (the search key).
Output: Position (an index i such that X[i] = z, or 0 if no such index exist.) test  test  test  test  test  test  test  test  test  test  test  test  test  test  test 

begin
Position := Find (z,1,n);
end
\end{lstlisting}
\end{latin}
\end{document}

خروجی: (با فلش نشون دادم که چطوری بدون زدن return یا Enter خطوط را شکسته. تورفتگی اول خطوط رو هم طوری تغییر داده که با بقیه کد قاطی نشه.

می‌تونین با مطالعه این صفحه، امکانت بیشتری مثل کادر دورش، رنگی کردن و ... بهش اضافه کنین.
موفق‌تر باشین. گل خورشید تقدیم شما.

Comments

خیلی ممنون