Pico    hoch http://pico.vub.ac.be/
 
 


 Eulersche Zahl   Michael Neumann 
{      
   "Fakultät";
   !n: if(n>1, n * !(n-1), 1);
   
   "Reziprok";
   %n: 1 / n;
   
   e: 0;
   n: -1;
   lp[10]: {
      n := n+1;
      e := e + %(!n)
   };
   
   "e ausgeben";
   display(e)
}
Berechnet die Eulersche Zahl (e=2.71828).


  Fakultät   Michael Neumann 
{
   fac(n): if(n>1, n*fac(n-1), 1);
   
   display( fac(6) )
}
Berechnet die Fakultät. Ergibt 720.


 Hello World   Michael Neumann 
{
   "da es in Pico keine Kommentare gibt,";
   "verwende ich einfach Strings.";
   
   display('Hello World', eoln)
}
Gibt "Hello World" auf dem Bildschirm aus.


 Squares (1)   Michael Neumann 
for (i:1, i:=i+1, i<11, display(i^2, " "))
Gibt die Quadrate von 1 bis 10 aus.


 Squares (2)   Michael Neumann 
{
   n: 0;
   t[10]: {n: n+1; n*n};
   display(t)
}
Gibt die Quadrate von 1 bis 10 aus.