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é

main(){

main(){

main(){

10 ON ERROR GOTO 100

int a;

int a,c; double b;

long double a,b;

20 A=-1

for(a=1;a<10001;++a){}

c=128;

int c=7,d=7;

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

}

for(a=1;a<1001;++a)

a=1/3;

100 PRINT A

b=a%c;

a=a-.3333333

Test 2

Boucle GOTO

}

b=1/3-.3333333

main(){

do {

int a=0;

Test 9

Test Puissance

c+=1

b:

main(){

} while ((int)(a*pow(10,c))!=a*pow(10,c));

if(a++<1001) goto b:

int a,c; double b;

do {

}

c=2;

d+=1

for(a=1;a<1001;++a)

} while ((int)(b*pow(10,d))!=b*pow(10,d));

b=pow(a,c);

printf("%d %d",c,d);

Test 3

Affectation constante

}

}

main(){

Test 14

Test précision et rapidité

int a; double b;

Test 10

Fonction trigonometrique

main(){

for(a=1;a<1001;++a)

main(){

long double d,r;

b=3.14;

int a; double b,c=3.14;

int a,b,p=20;

}

for(a=1;a<1001;++a)

for(a=2;a<=p;++a){

b=sin(c);

r=2;

Test 4

Affectation variable

}

for(b=1;b<=a;++b)

main(){

r=sqr( r);

int a; double b,c;

Test 11

Fonction logarithmique

for(b=1;b<=a;++b)

c=3,14;

main(){

r*=r;

for(a=1;a<1001;++a)

int a; double b,c=3.14;

if(r<2)

b=c;

for(a=1;a<1001;++a)

d+=abs(2-r);

}

b=ln(c);

else

}

d+=abs(2-r);

Test 5

Test Addition

}

main(){

Test 12

Fonction Traitement chaine

printf("%g",d);

int a; double b;

main(){

}

for(a=1;a<1001;++a)

int a;

Test 15

Test Graphisme

b=a+a;

char *str="1234567890123456";

10 CLS

}

char cop[40];

20 LINE (69,0)-(69,30)

for(a=1;a<1001;++a){

30 LINE (145,0)-(145,30)

Test 6

Test Multiplication

strcpy(cop,str+5);

40 LINE (70,0)-(144,3),,,BF

main(){

cop[6]=0;

50 LINE (70,6)-(144,9),,,BF

int a; double b;

}

60 SC=0:LOCATE 0,0:PRINT"SCORE: 0"

for(a=1;a<1001;++a)

}

70 BX=106

b=a*a;

80 Y=10:OX=0:OY=Y:RX=-3:RY=2:X=109

}

90 LINE (70,30)-(144,30)

100 X=X+RX:Y=Y+RY

Test 7

Test logique

110 IF X<70 OR X>142 THEN RX=-RX:X=X+2*RX

main(){

120 IF Y>=30 OR Y=-2 THEN RY=-RY:Y=OY+RY

int a,c=127; double b;

130 IF POINT (X,Y)=0 THEN 170

for(a=1;a<1001;++a)

140 SC=SC+5:LOCATE 6,0:PRINT STR$(SC): IF SC>200 THEN PRINT "FIN": END

b=a&c;

150 LINE (X,Y)-(X+2,Y+1),R,,B

}

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