Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1904
Réponses : 2
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Diviseur

Blackangel le 17/01/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


Sangohan38 le 17/01/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 le 17/01/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
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.