| A réaliser en précision native | |||||||||||||||||||||
| Test 1 | Boucle simple | Test 8 | Test modulo | Test 13 | Test précision mantisse interne et externe | Test 16 | Profondeur récursivité | ||||||||||||||
| 10 FOR A=1 to 10000 | 10 C=128 | 10 A=1/3 | 10 ON ERROR GOTO 100 | ||||||||||||||||||
| 20 NEXT A | 20 FOR A=1 TO 1000 | 20 A=A-0.3333 | 20 A=-1 | ||||||||||||||||||
| 30 B=A MOD C | 30 B=1/3-0.3333 | 30 A=A+1: PRINT A: GOSUB 30 | |||||||||||||||||||
| Test 2 | Boucle GOTO | 40 NEXT A | 40 C=4 :D=4 | 100 PRINT A | |||||||||||||||||
| 10 A=0 | 50 IF INT(A*10^C)<>A*10^C THEN C=C+1 :GOTO 50 | ||||||||||||||||||||
| 20 A=A+1 | Test 9 | Test Puissance | 60 IF INT(B*10^D)<>B*10^D THEN D=D+1 :GOTO 60 | ||||||||||||||||||
| 30 IF A<1000 THEN 20 | 10 C=2 | 70 PRINT C;D | |||||||||||||||||||
| 20 FOR A=1 TO 1000 | |||||||||||||||||||||
| Test 3 | Affectation constante | 30 B=A^C | Test 14 | Test précision et rapidité | |||||||||||||||||
| 10 FOR A=1 to 1000 | 40 NEXT A | 5 D=0 | |||||||||||||||||||
| 20 B=3.14 | 10 P=20 | ||||||||||||||||||||
| 30 NEXT A | Test 10 | Fonction trigonometrique unité par déf | 20 FOR A=2 TO P | ||||||||||||||||||
| 10 C=3.14 | 30 R=2 | ||||||||||||||||||||
| Test 4 | Affectation variable | 20 FOR A=1 TO 1000 | 40 FOR B=1 TO A | ||||||||||||||||||
| 10 C=3.14 | 30 B=SIN C | 50 R=SQR R | |||||||||||||||||||
| 20 FOR A=1 TO 1000 | 40 NEXT A | 60 NEXT B | |||||||||||||||||||
| 30 B=C | 70 FOR B=1 TO A | ||||||||||||||||||||
| 40 NEXT A | 80 R=R*R | ||||||||||||||||||||
| 90 NEXT B | |||||||||||||||||||||
| Test 5 | Test Addition | 100 D=D+ABS(2-R) | |||||||||||||||||||
| 10 FOR A=1 TO 1000 | 110 NEXT A | ||||||||||||||||||||
| 20 B=A+A | 120 PRINT D | ||||||||||||||||||||
| 30 NEXT A | |||||||||||||||||||||
| Test 11 | Fonction logarithmique | Test 15 | Test Graphisme | ||||||||||||||||||
| Test 6 | Test Multiplication | 10 C=3.14 | 10 CLS | ||||||||||||||||||
| 10 FOR A=1 TO 1000 | 20 FOR A=1 TO 1000 | 20 LINE (69,0)-(69,30) | |||||||||||||||||||
| 20 B=A*A | 30 B=LN C | 30 LINE (145,0)-(145,30) | |||||||||||||||||||
| 30 NEXT A | 40 NEXT A | 40 LINE (70,0)-(144,3),,,BF | |||||||||||||||||||
| 50 LINE (70,6)-(144,9),,,BF | |||||||||||||||||||||
| Test 7 | Test logique | 60 SC=0:LOCATE 0,0:PRINT"SCORE: 0" | |||||||||||||||||||
| 10 C=127 | 70 BX=106 | ||||||||||||||||||||
| 20 FOR A=1 TO 1000 | 80 Y=10:OX=0:OY=Y:RX=-3:RY=2:X=109 | ||||||||||||||||||||
| 30 B=A AND C | 90 LINE (70,30)-(144,30) | ||||||||||||||||||||
| 40 NEXT A | 100 X=X+RX:Y=Y+RY | ||||||||||||||||||||
| 110 IF X<70 OR X>142 THEN RX=-RX:X=X+2*RX | |||||||||||||||||||||
| Test 12 | Fonction Traitement chaine | 120 IF Y>=30 OR Y=-2 THEN RY=-RY:Y=OY+RY | |||||||||||||||||||
| 10 C$="1234567890123456" | 130 IF POINT (X,Y)=0 THEN 170 | ||||||||||||||||||||
| 20 FOR A=1 TO 1000 | 140 SC=SC+5:LOCATE 6,0:PRINT STR$(SC): IF SC>200 THEN PRINT "FIN": END | ||||||||||||||||||||
| 30 B$=MID$(C$,5,6) | 150 LINE (X,Y)-(X+2,Y+1),R,,B | ||||||||||||||||||||
| 40 NEXT A | 160 Y=Y-RY:RY=-RY | ||||||||||||||||||||
| 170 LINE (OX,OY)-(OX+2,OY+1),R,,B | |||||||||||||||||||||
| 180 LINE (X,Y)-(X+2,Y+1),,,B | |||||||||||||||||||||
| 190 OX=X:OY=Y | |||||||||||||||||||||
| 200 GOTO 100 | |||||||||||||||||||||