|
Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge
FreePascal / Lazarus
|
Re: Taschenrechner: Quadrieren (a^b)
13. Feb 2007, 13:03
Delphi-Quellcode:
ergebnis:=a;
for i:=1 to a-1 do
ergebnis:=ergebnis*i;
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg
|