re moi aussi j'ai pas vu tout les codes cachés hein!!!!
j'ai retrouvé un model que j'ai recupéré je ne sais ou dans mon foutoir en javascript
je l'ai converti en VBA et c'est pas top
c'est incroyable la différence entre vba et js
voila le code vba
et si vous y tenez testez ca dans un bloque note sauvé en html
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Sub test() Dim max, j, i, rc, tabl, T max = 10000 ReDim tabl(max) T = Timer For i = 2 To max j = 1 rc = Int(Sqr(i)) p = True Do j = j + 1 If (i / j) = Fix(i / j) Then p = False Loop While j <= rc If p = True Or i = 2 Then tabl(a) = i: a = a + 1: Next T = Timer - T Debug.Print Join(tabl, " ") Debug.Print "temps ecoulés " & T & " secondes" End Sub
ca file vraiment le vertige
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 <html> <head> <title>Les nombres premiers</title> </head> <body> <script> // On cherche les nombres premiers jusqu'à max var max = 100000; for(i = 2; i <= max; i++) { var j = 1; var texte var racine = Math.floor(Math.sqrt(i)); do { j++; } while(j <= racine && i%j != 0); if(j > racine) { // On affiche les nombres premiers trouvés texte=texte + i + "," //document.write(i +"<br>") ////se servir d'une variable plutôt et retranscrire a la fin } } document.write(texte) </script> </body>
alors me viens une idée je suis sur MarcL a compris ou je veux en venir , mais juste pour le fun
Partager