Planète Casio
Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.
Menu
Calculatrices
Graph 35 à 100
Graph 25+Pro/25+E/25+E II
Graph 35+USB/75(+E)/85/95 SD
Graph 100(+)
Classpad 300/330(+)
fx-CG 10/20 (Prizm)
Classpad 400(+E)
Graph 90+E
fx-92+ SC
Liens
¤ Transférer un programme sur
sa calculatrice
¤ Vous cherchez une fonction ?
Utilitaires >> Graph 35 à 100 >> Divers >> Premier
Premier
Version : 1.1 Taille : 296 octets Ajouté le : 2018-10-29 18:34 Modifié le : 2018-10-30 18:47
Auteur et posteur :
MicroraptorrHors ligneMembrePoints: 22 Défis: 0 Message
 Planète Casio - Programme Casio - Premier - microraptorr - Calculatrices
Nombre de visites sur cette page : 2587
Score au progrank : 28
Pas encore de note !
Vous devez être connecté(e) pour noter (inscription).
392 téléchargements | Soumettre un test

Description :

Bonjour, c'est ici mon premier programme en Basic que je publie (sans doute pas le dernier ).
C'est tout simple : vous entrez un nombre et le programme vous dit s'il est premier ou pas. Classique. Sauf que, dans le deuxième cas, il vous donne aussi tous ses diviseurs ! ( Rigolez pas je suis encore novice )
Marche relativement bien, j'ai essayé d'optimiser au maximum. On peut donner un nombre à 9 chiffres, ça prend juste un peu de temps pour ses diviseurs ( 2 minutes 30 environ pour les 700 et quelque diviseurs de factorielle 12 ).
* Edit : dans la version 1.1, les décimaux sont reconnus donc pas de glitch de ce côté et les négatifs sont utilisables

N'hésitez pas à donner votre avis, je suis preneur !
Commentaires :

Pages: Précédente | 1, 2

Math680Hors ligneMembrePoints: 455 Défis: 5 Message
Posté le 30-10-2018 à 11:08 | #
J'ai essayé de l'ouvrir avec bloc note sa a mal tourné
MicroraptorrHors ligneMembrePoints: 22 Défis: 0 Message
Posté le 30-10-2018 à 18:48 | #
Merci Manolo pour ces captures, je suis pas encore un expert dans le domaine
ManoloHors ligneMembrePoints: 910 Défis: 13 Message
Posté le 25-11-2018 à 12:19 | #
Hackcell a écrit :
Ayant été grand frère dans une autre vie, je peux t'assurer qu'il cherche juste à frimer

Ayant été petit frère dans ma vie, je peux te dire que j'ai réussi (à le faire en moins de 15 lignes (et en basic en plus)).
ManoloHors ligneMembrePoints: 910 Défis: 13 Message
Posté le 05-12-2018 à 15:29 | #
17 lignes!!!
même si c'est légèrement moins bien
1 -> Dim List 1
1 -> Dim List 2
"Donner un nombre A   (entier)"? -> A
1 -> D
1 -> U
While D < A
    If MOD(A, D) = 0 :Then
        D -> List 1[U]
        A / D -> List 2[U]
        Locate 1, 4, D
        Isz U
    IfEnd
    Isz D
WhileEnd
A -> List 1[U]
List 1
U=2=>3Premier"

Pages: Précédente | 1, 2

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 149 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd