Revision as of 08:19, 10 November 2023 (view source) imported>Lacika7 No edit summary ← Older edit		Revision as of 08:28, 10 November 2023 (view source) imported>Lacika7 mNo edit summary Newer edit →
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-(2I-1)INT(X/(2I-1)) 230 LET Q=INT(X/(2I-1)) 240 NEXT 250 LET A(0)=Q-10*INT(Q/10) 260 LET Q=INT(Q/10) 270 IFSELECT ~~Q=9~~CASE ~~THEN~~Q 280 CASE ~~LET N9=N9+1~~9 290 ~~ELSE~~ LET N9=N9+1 300 CASE ~~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 CASE 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 IFSELECT 480 ~~END IF~~ NEXT 490 ~~NEXT~~PRINT STR$(PD)(1) 500 END ~~500 PRINT STR$(PD)(1)~~ 510 ~~END~~DEF WRITE 520 ~~DEF~~ ~~WRITE~~ IF ND=0 THEN 530 IF ~~ND=0~~ ~~THEN~~PRINT STR$(D)(1); 540 ELSE IF ~~PRINT STR$(~~D~~)(1);~~<>0 THEN 550 ~~ELSE~~ IF ~~D<>0~~PRINT ~~THEN~~STR$(D)(1);"."; 560 ~~PRINT~~LET ~~STR$(D)(1);".";~~ND=0 570 END ~~LET ND=0~~IF 580 END IF DEF</syntaxhighlight> ~~590 END DEF </syntaxhighlight>~~ ==={{header\|MSX Basic}}===

Pi (view source)