Pi: Difference between revisions

Content added Content deleted

Inline

@@ Line 877: / Line 877: @@
 FOR J=1 TO LN
 LET A(J-1)=2
 NEXT
 FOR J=1 TO N
 LET Q=0
@@ Line 884: / Line 884: @@
 LET A(I-1)=X-(2*I-1)*INT(X/(2*I-1))
 LET Q=INT(X/(2*I-1))
 NEXT
 LET A(0)=Q-10*INT(Q/10)
 LET Q=INT(Q/10)
-IF Q=9 THEN
+SELECT CASE Q
-LET N9=N9+1
+CASE 9
-ELSE
+LET N9=N9+1
-IF Q=10 THEN
+CASE 10
 LET D=PD+1:CALL WRITE
 IF N9>0 THEN
 FOR K=1 TO N9
 LET D=0:CALL WRITE
 NEXT
 END IF
 LET PD,N9=0
-ELSE
+CASE ELSE
 LET D=PD:CALL WRITE
 LET PD=Q
 IF N9<>0 THEN
 FOR K=1 TO N9
 LET D=9:CALL WRITE
 NEXT
 LET N9=0
 END IF
-END IF
+END SELECT
-END IF
+NEXT
-NEXT
+PRINT STR$(PD)(1)
+END
-PRINT STR$(PD)(1)
-END
+DEF WRITE
-DEF WRITE
+IF ND=0 THEN
-IF ND=0 THEN
+PRINT STR$(D)(1);
-PRINT STR$(D)(1);
+ELSE IF D<>0 THEN
-ELSE IF D<>0 THEN
+PRINT STR$(D)(1);".";
-PRINT STR$(D)(1);".";
+LET ND=0
-LET ND=0
+END IF
-END IF
+END DEF</syntaxhighlight>
-END DEF </syntaxhighlight>
 ==={{header|MSX Basic}}===