Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Diviseur

Diviseur

Auteur

Message

Blackangel

Autorisation : Membre
Nb de messages : 6
Inscrit le : Sam 13 Jan 2007, 16:12

Posté le : Mer 17 Jan 2007, 11:39

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...

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 17 Jan 2007, 14:04

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

Blackangel

Autorisation : Membre
Nb de messages : 6
Inscrit le : Sam 13 Jan 2007, 16:12

Posté le : Mer 17 Jan 2007, 16:58

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...

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Diviseur

Page générée en 9 requêtes

Flux RSS