Un petit programme de calcul des nombre premiers
Soyez le premier à donner votre avis sur cette source.
Vue 29 069 fois - Téléchargée 664 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
- Comment calculer un nombre premier
- Programmer une calculatrice en python - Guide
- Programme qui calcule le factoriel d'un nombre en c++ - Guide
- Programme python calculatrice - Guide
- Programme qui calcule la puissance en c - Guide
- écrire un programme qui calcule la somme java - Forum - Java
- Messages postés
-
268
- Date d'inscription
- samedi 22 février 2003
- Statut
- Membre
- Dernière intervention
- 24 avril 2013
321 nov. 2006 à 14:35
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
- Messages postés
-
14968
- Date d'inscription
- vendredi 14 mars 2003
- Statut
- Modérateur
- Dernière intervention
- 13 août 2022
16121 nov. 2006 à 13:06
Malkuth, 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
317 nov. 2006 à 21:28
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.
4 juil. 2006 à 16:04
19 avril 2006 à 17:12
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.