Fișier:Latex pachetul program.png

Sumar[modificare]

Format:Informații

Licențiere[modificare]

Format:GFDL

Codul sursă[modificare]

\documentclass[a4paper,12pt]{article}

\usepackage[utf8x]{inputenc} % pentru caractere Unicode
\usepackage{program}

\begin{document}
\begin{program}
\mbox{O procedură rapidă de ridicare la putere:}
\BEGIN %
  \FOR i:=1 \TO 10 \STEP 1 \DO
     |expt|(2,i); \\ |newline|() \OD %
\rcomment{Acest text va fi aliniat la dreapta}
\WHERE
\PROC |expt|(x,n) \BODY
          z:=1;
          \DO \IF n=0 \THEN \EXIT \FI;
             \DO \IF |odd|(n) \THEN \EXIT \FI;
\COMMENT{Acesta este un comentariu};
                n:=n/2; x:=x*x \OD;
             \{ n>0 \};
             n:=n-1; z:=z*x \OD;
          |print|(z) \ENDPROC
\END
\end{program}

\end{document}