Un petit programme de calcul des nombre premiers
Soyez le premier à donner votre avis sur cette source.
Vue 28 635 fois - Téléchargée 622 fois
Description
qu'on vous appuiez sur calculer il va mettre les nombre dans un fichier texte dans C: appeler premier
je vous remercie pour votre attention veuillez donner une note
Source / Exemple :
Private Sub Command1_Click() Dim i, n, p, j As Long Command1.Enabled = False Open "c:\premier.txt" For Output As #1 Close #1 Open "c:\premier.txt" For Append As #1 p = Val(Text1.Text) n = Val(Text2.Text) For i = p To n Step 1 For j = 2 To Round((i - 1) / 2) + 1 Step 1 If i Mod j = 0 Then GoTo 1 End If Next j Print #1, i 1: Next i Close #1 Command1.Enabled = True End Sub Private Sub UpDown1_Change() End Sub
Conclusion :
je vous remercie pour votre attention veuillez donner une note
Codes Sources
A voir également
- Un petit programme de calcul des nombre premiers
- Visual Basic / VB.NET : Calcule de nombre premier - CodeS SourceS - Guide
- C / C++ / C++.NET : Calcul de nombres premiers (nombres doubles --> 1.7e308) - CodeS SourceS - Guide
- Calcul de nombres premiers - Codes sources - Java (Maths et Algorithmes)
- C / C++ / C++.NET : Calcul de nombre premier - CodeS SourceS - Guide
- Un petit programme qui calcule le pgcd via l'algorithme d' euclide :o) - Codes sources - C / C++ / C++.NET (Divers)
- Messages postés
-
268
- Date d'inscription
- samedi 22 février 2003
- Statut
- Membre
- Dernière intervention
- 24 avril 2013
3mais comme je l'explique il ya d'autre méthodes:
Dim LastJ As long
For i = p To n Step 1
LastJ = Round((i - 1) / 2) + 2
For j = 2 To LastJ Step 1
If i Mod j = 0 Then Exit For
Next j
If j = LastJ then Print #1, i
Next i
Ensuite il est important sur ce type d'algo de gagner du temps
et la premiére des chose a faire c'est de déclarer le type des variables.
dans le cas contraire c'est variant qui est utilisé et ça veut dire une grosse chute de performance.
(ca a déjà été dit mais aucune correction n'as été aporter).
pour déclarer toutes tes variables en long :
Dim i As Long, n As Long, p As Long, j As Long
- Messages postés
-
14779
- Date d'inscription
- vendredi 14 mars 2003
- Statut
- Modérateur
- Dernière intervention
- 3 avril 2021
154Malkuth, selon le code (Dim j,i,... as long, je suppose que c'est du VB6, donc pas de continue.
- Messages postés
-
268
- Date d'inscription
- samedi 22 février 2003
- Statut
- Membre
- Dernière intervention
- 24 avril 2013
3GOTO Fais vraiment sale dans un code et est moins facile pour relire le code.
Quand vous pensez que vous pouver pas faire autrement dite vous que des projet de plusieurs dizaines de miliers de ligne de code sont écrit sans faire appel a goto, que dans la plupart des cas le langage à des mécaniques pour faire sans, et dans le dernier recours un petit if devrait faire l'affaire.
je vous aime tous !!!!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.