Anonymous user
Pi: Difference between revisions
no edit summary
imported>Chinhouse No edit summary |
imported>Lacika7 No edit summary |
||
Line 868:
1090 RETURN
</syntaxhighlight>
==={{header|IS-BASIC}}===
<syntaxhighlight lang="is-basic">100 PROGRAM "PI.bas"
110 LET N=100 ! Nuber of digits
120 LET LN=INT(10*N/3)+16
130 DIM A(LN)
140 LET PD,N9=0:LET ND=1
150 FOR J=1 TO LN
160 LET A(J-1)=2
170 NEXT
180 FOR J=1 TO N
190 LET Q=0
200 FOR I=LN TO 1 STEP-1
210 LET X=10*A(I-1)+Q*I
220 LET A(I-1)=X-(2*I-1)*INT(X/(2*I-1))
230 LET Q=INT(X/(2*I-1))
240 NEXT
250 LET A(0)=Q-10*INT(Q/10)
260 LET Q=INT(Q/10)
270 IF Q=9 THEN
280 LET N9=N9+1
290 ELSE
300 IF Q=10 THEN
310 LET D=PD+1:CALL WRITE
320 IF N9>0 THEN
330 FOR K=1 TO N9
340 LET D=0:CALL WRITE
350 NEXT
360 END IF
370 LET PD,N9=0
380 ELSE
390 LET D=PD:CALL WRITE
400 LET PD=Q
410 IF N9<>0 THEN
420 FOR K=1 TO N9
430 LET D=9:CALL WRITE
440 NEXT
450 LET N9=0
460 END IF
470 END IF
480 END IF
490 NEXT
500 PRINT STR$(PD)(1)
510 END
520 DEF WRITE
530 IF ND=0 THEN
540 PRINT STR$(D)(1);
550 ELSE IF D<>0 THEN
560 PRINT STR$(D)(1);".";
570 LET ND=0
580 END IF
590 END DEF </syntaxhighlight>
==={{header|MSX Basic}}===
| |||