Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Diviseur
Auteur Message
Blackangel
Avatar

Autorisation : Membre
Nb de messages : 6
Inscrit le : Sam 13 Jan 2007, 16:12
Posté le : Mer 17 Jan 2007, 11:39   Citer 

Voila je vous présente mon premier programme, soyez assez indulgents s'il vous plaît...

C'est un prog qui permet d'afficher tous les diviseurs de nombres, par colonnes.



Code


:lbl 0
:effecr
:Input "A:",A
:1->B
:2->C
:1->D
:lbl A
:B+1->B
:If partdec(A/B)=0
:then
:C+1->C
:Output(C,D,B)
:Goto A
:Else
:If C=7 et D=15
:Then
:Goto C
:Else
:If C=7
:Then
:2->C
:D+4->D
:Goto A
:Else
:If B [ Supérieur ou égal ] A/2
:Then
:Goto B
:Else
:Goto A
:End
:Else
:Goto A
:Lbl B
:Output(8,1,"FINI
:Pause
:Goto 0
:Lbl C
:EffEcr
:2->C
:1->D
:Goto A





----------------------
Vive la programmation, quand on a un prof qui cale rien aux TI...
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 17 Jan 2007, 14:04   Citer 

On peut un peu l'accélerer:


Code
:lbl 0
:effecr
:Input "A:",A
:1->B
:2->C
:1->D
:lbl A
:B+1->B
:If partdec(A/B)=0
:then
:C+1->C
:Output(C,D,B)
:Goto A
:End
:If C=7 et D=15
:Goto C
:If C=7
:Then
:2->C
:D+4->D
:Goto A
:End
:If B [ Supérieur ou égal ] A/2
:Goto B
:Goto A
:Lbl B
:Output(8,1,"FINI
:Pause
:Goto 0
:Lbl C
:EffEcr
:2->C
:1->D
:Goto A



Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Blackangel
Avatar

Autorisation : Membre
Nb de messages : 6
Inscrit le : Sam 13 Jan 2007, 16:12
Posté le : Mer 17 Jan 2007, 16:58   Citer 

Ah oui d'accord en fait tu remplace les "else" par les "end" pour qu'il y ait moins de trucs à vérifier, oki merci, je l'ai mis, et oui, ca va un peu plus vite.

Blackangel

----------------------
Vive la programmation, quand on a un prof qui cale rien aux TI...
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa