Un petit programme de calcul des nombre premiers

Soyez le premier à donner votre avis sur cette source.

Vue 28 321 fois - Téléchargée 605 fois

Description

qu'on vous appuiez sur calculer il va mettre les nombre dans un fichier texte dans C: appeler premier

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

Ajouter un commentaire

Commentaires

cs_Malkuth
Messages postés
268
Date d'inscription
samedi 22 février 2003
Statut
Membre
Dernière intervention
24 avril 2013
2 -
oups...

mais 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
NHenry
Messages postés
14598
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
6 décembre 2019
137 -
Bonjour,

Malkuth, selon le code (Dim j,i,... as long, je suppose que c'est du VB6, donc pas de continue.
cs_Malkuth
Messages postés
268
Date d'inscription
samedi 22 février 2003
Statut
Membre
Dernière intervention
24 avril 2013
2 -
pour info pour zapper la fin d'un FOR ... NEXT sans quitter la boucle on doit utiliser CONTINUE (qui continue la boucle...)

GOTO 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.
cs_Axar
Messages postés
19
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
12 juillet 2012
-
salut ,juste une petite question combien de temps mets tu as trouvé les nombre de 1 à 1 000 000.
mouad001
Messages postés
21
Date d'inscription
mardi 25 mai 2004
Statut
Membre
Dernière intervention
5 août 2014
-
j'ai trouver une solution et je vais la montée dans le site au plutot le dimanche je vouq remercie pour vos commentaire
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.