Length of an arc between two angles: Difference between revisions

Content added Content deleted

Inline

@@ Line 151: / Line 151: @@
          BEGIN
             REAL angle := ABS ( a - b );
-            WHILE angle > 360 DO angle := angle - 360 OD;
+            WHILE angle > 360 DO angle -:= 360 OD;
             IF angle < 180 THEN angle := 360 - angle FI;
             ( r * angle * pi ) / 180