kalkul

[Zdenek Pytela]

Josef Krob pise:
>
> Dobry den,
>
> mel bych jeden dotaz na TeXprogramatory. Rad bych docilil toho, aby
> mi TeX secetl sloupec cisel, ktery prave vysazel  a na zadanem miste
> dosadil vysledek. Predstavoval bych si to nejak takto:
>
> \bodypisemkaA{25} resp. \bodypisemkaA{Text prvni polozky}{25}
> \bodypisemkaB{40}
> \bodypisemkaC{15}
> \bodyustni{120}
> \celkem
>
> Jeste lepsi, kdyby to mohlo byt jedno makro \body{}, aby pouziti bylo
> variabilnejsi a univerzalnejsi.
> Pozadovany vysledek asi v podobe:
>
> Text prvni polozky   25
> Text druhe ...       40
> ...
> ------------------------
> Celkem              200

\newcount\pocetbodu
\pocetbodu=0

\def\body#1#2{
 \line{#1\hfil#2}
 \advance\pocetbodu by #2
}
\def\celkem{
 \vskip2pt\hrule\vskip2pt
 \line{Celkem\hfil\the\pocetbodu}
}

{\hsize=5cm
\parindent=0pt
\body{Text1}{25}
\body{Text2}{40}
\body{Text3}{15}
\celkem
}
\bye

--

--Zdenek Pytela, <letty at phil.muni.cz>