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é

Define boucle()=

Define modulo()=

Define precision()=

10 ON ERROR GOTO 100

Prgm

Prgm

Prgm

20 A=-1

:Local a

:Local a,b,c

:Local a,b,c,d

30 A=A+1: PRINT A: GOSUB 30

:Disp "début"

:c:=128

:a:=approx(((1)/(3)))

100 PRINT A

:For a,1,100000

:Disp "début"

:a:=approx(a-0.3333)

:EndFor

:For a,1,100000

:b:=approx(((1)/(3))-0.3333)

:Disp "Fin"

:b:=mod(a,c)

:c:=4

:EndPrgm

:EndFor

:d:=4

:Disp "Fin"

:While approx(int(a*10^(c)))≠approx(a*10^(c))

Test 2

Boucle GOTO

:EndPrgm

:  c:=c+1

Define go_to()=

:EndWhile

Prgm

Test 9

Test Puissance

:While approx(int(b*10^(d)))≠approx(b*10^(d))

:Local a

Define puissance()=Prgm

:  d:=d+1

:Disp "debut"

:Local a,b,c

:EndWhile

:a:=0

:c:=2

:Disp c," - ",d

:Lbl bou

:Disp "début"

:EndPrgm

:a:=a+1

:For a,1,100000

:If a<100000 Then

:b:=a^(c)

Test 14

Test précision et rapidité

:    Goto bou

:EndFor

Define racine()=

:EndIf

:Disp "Fin"

Prgm

:Disp "fin"

:EndPrgm

:Local a,b,d,p,r

:EndPrgm

:Request "Profondeur",p

Test 10

Fonction trigonometrique unité par déf

:d:=0

Test 3

Affectation constante

Define trigo()=

:For a,2,p

Define constante()=

Prgm

:r:=2

Prgm

:Local a,b,c

:For b,1,a

:Local a,b

:c:=3.14

:r:=approx(√(r))

:Disp "début"

:Disp "début"

:EndFor

:For a,1,100000

:For a,1,100000

:For b,1,a

:b:=3.14

:b:=sin(c)

:r:=approx(r*r)

:EndFor

:EndFor

:EndFor

:Disp "Fin"

:Disp "Fin"

:d:=d+abs(approx(2-r))

:EndPrgm

:EndPrgm

:EndFor

:Disp d

Test 4

Affectation variable

Test 11

Fonction logarithmique

:EndPrgm

Define variable()=

Define logaritme()=

Prgm

Prgm

Test 15

Test Graphisme

:Local a,b,c

:Local a,b,c

NA

:c:=3.14

:c:=3.14

:Disp "début"

:Disp "début"

:For a,1,100000

:For a,1,100000

:b:=c

:b:=ln(c)

:EndFor

:EndFor

:Disp "Fin"

:Disp "Fin"

:EndPrgm

:EndPrgm

Test 5

Test Addition

Test 12

Fonction Traitement chaine

Define addition()=

Define chaine()=

Prgm

Prgm

:Local a,b

:Local a,b,c

:Disp "début"

:Disp "Début"

:For a,1,100000

:c:="1234567890123456"

:b:=a+a

:For a,1,100000

:EndFor

:   b:=mid(c,3,6)

:Disp "Fin"

:EndFor

:EndPrgm

:Disp "Fin"

:EndPrgm

Test 6

Test Multiplication

Define multiplication()=

Prgm

:Local a,b

:Disp "début"

:For a,1,100000

:b:=a*a

:EndFor

:Disp "Fin"

:EndPrgm

Test 7

Test logique

Define logique()=

Prgm

:Local a,b,c

:c:=127

:Disp "début"

:For a,1,100000

:b:=a and c

:EndFor

:Disp "Fin"

:EndPrgm