Anonymous user
Pi: Difference between revisions
m
no edit summary
imported>Lacika7 No edit summary |
imported>Lacika7 mNo edit summary |
||
Line 877:
150 FOR J=1 TO LN
160 LET A(J-1)=2
170 NEXT
180 FOR J=1 TO N
190 LET Q=0
Line 884:
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
280 CASE
290
300 CASE
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500 END
510
520
530
540 ELSE IF
550
560
570 END
580
==={{header|MSX Basic}}===
|