Gestion du compte
Calculatrices
Graph 35 à 100 (CFX)
Graph 25/25+ (Pro) (fx-7400)
Graph 35+USB/75/85/95 (SD)
Graph 100/100+ (AFX)
ClassPad 300/330
Fx-CG 10/20
Fx-CP 400
Graph 90+E

Retour aux miniatures
Tri avancé
Liste des programmes
Nom Date
Equachim
Carton de loto
.INPUT
Periodik
He Joe
Panthère Rose
Pupitre
Premier
Casio SHELL
Calctc
Meteo
Opcodes
Math bts cprp
Polynômes
Date
Diviseur
JDENES
MentalCalc
Pi - Brent
Formel
Pages: 1,2,3,4,5,6,7,8,9,10,11 >>

¤ Transférer un programme sur
sa calculatrice

¤ Vous cherchez une fonction ?
Utilitaires >> Graphs 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 : 510
Score au progrank : 19
Pas encore de note !

Vous devez être inscrit(e) et avoir 20 points ou plus pour noter.
66 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: 368 Défis: 0 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: 888 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: 888 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 v42 © créé par Neuronix et Muelsaco 2004 - 2019 | Il y a 24 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