AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 17:31:28
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

3 commentaire(s) de drache sur des sources sur tout CodeS-SourceS

Le : 09/11/2005 15:08:21
Source : A SUPPRIMER
sa y est elle est posté

Le : 08/11/2005 12:48:04
Source : A SUPPRIMER
desolé pour mon françait et ma tournure de phrase
je ne m'etai pas aperçut qu'elle etait si mauvaise

Le : 07/11/2005 21:04:48
Source : A SUPPRIMER
je crois avoir trouver un probleme mais comme vous parler souvant de "petit nombres"(10 million!!) je sai pas si sa vous interresera.
la limite de mod et de 2147483647
cad 2147483647 mod 2 (ou un peu plus je sai plus) par exemple est en probleme de capacitée
je l'ai remplacé par ((nbr / d) - Int(nbr / d)) * d = 0 qui meme si la formule est plus longue elle a un grand interét pour les grand nombres(limité au bout de un peut plus de 1,34078079299426E+154)
je l'ais utiliser pour ce code qui est cette formule :2^(2^n)+1 que fermat décreta ne donner que des nombres premier car il n'a put aller que jusqu'a n=5 pour l'époque(ce qui incroyable!!!)
et que toujour un ab***ti de mathematicien dise que pour n=6 sa marché plus(2 siecle aprés tout de meme!)
nous avons vu que jusqu'a n=20 cetai pas des nombres premier mais que aprés si
je suis arrivé a n=9 avant le depassement de capacité
je pense que pour parvenir a 20 je doit passer en compilateur (et encore!!)
voila le code:
Sub fermat1()

Dim debut As Date
Dim fin As Date
Dim Duree As Date

Dim n As Integer
Dim d As Variant
Dim premier As Integer
Dim p As Integer
Dim l As Integer
Dim Max As Variant
Dim compteur As Integer


Max = Cells(2, 2)
debut = Time
p = 6
l = 6
compteur = 0

For n = 2 To Max
    'f = (2 ^ (2 ^ n)) + 1
    compteur = compteur + 1
    premier = 1
    For d = 2 To (n ^ 0.5)
        If ((((2 ^ (2 ^ n)) + 1) / d) - Int(((2 ^ (2 ^ n)) + 1) / d)) * d = 0 Then
            premier = 0
            Exit For
        End If
    Next d

If premier = 1 Then
            Cells(p, 1) = n
            p = p + 1
ElseIf premier = 0 Then
            Cells(l, 2) = n
            l = l + 1
End If

Next n
Cells(2, 3) = "nbr de solutions " & (p - 6)
fin = Time
Duree = fin - debut
Cells(1, 3) = "Durée totale " & Duree

End Sub

ceci est mon deuxieme code en vba
le premier etant une recherche et un affichage de tout les nombre premier dans un interval
bien loin d'etre optimiser comme le tient mais vu qu'il ny a pas 36 solution il reprenai les meme idée(mais je tient a precisé que ces deux code n'ont eté fait sans aucune aide suf celle de mes cours de math)
a+

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


iPod touch 2ème génération (8 Go)
Entre 210€ et 229€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto femme, plage, bien être, soleil, vacances, été, détente, repos
Photo jeune fille plagePhoto femme, plage, bien être, soleil, vacances, été, détente, repos

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,172 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.