Das folgende Programm zeigt die schrittweisen Näherungen für π mithilfe der Reihe für den Arkustangens(1).
Beachten Sie, dass die Farbe für den Text und für den Hintergrund angegeben wurde (mit einer Textbreite von
maximal 100 Pixeln).
EXPORT PISERIES()
BEGIN
LOCAL sign;
K:=2;
A:=4;
sign:=−1;
RECT();
TEXTOUT_P("N=",0,0);
TEXTOUT_P("PI APPROX=",0,30);
REPEAT
A+sign*4/(2*K-1)▶A;
TEXTOUT_P(K ,35,0,2,#FFFFFF,100,#333399);
TEXTOUT_P(A ,90,30,2,#000000,100,#99CC33);
sign*-1▶sign;
K+1▶K;
UNTIL 0;
END;
Das Programm wird ausgeführt, bis der Benutzer zur Beendigung
drückt.
TRIANGLE_P, TRIANGLE
Syntax: TRIANGLE_P([G], x1, y1, x2, y2, x3, y3, c1, [c2, c3], [Alpha],
["ZString", z1, z2, z3])
Programmbefehle 601