Forum TI-Planet.org

Quel qu'un pourrais m'aider a traduire ce programme pour la nspire ?

Code: Select all

prgmZCLEAR
: dim([A])→L1:L1(1)→L
: dim([A])→L1:L1(2)→C
: {L,C}→dim([B]
: [A]→[B]
: For (X,1,L
:   For (Y,1,C
:     If [A](X,Y)≠0 : Then
:       For(Z,1,L
:         If Z≠Y and X≠Y : Then
:           If [A](X,Y)=1 and [A](X,Z)=1 and [A](Y,Z)=1 : Then
:             If [B](X,Z)=1 : Then
:               0→[B](X,Z)
:             End
:           End
:         End
:       End
:     End
:   End
: End
: FnOff
: .1→Xmin
: 99→Xscl
: .1→Ymin
: 99→ Yscl
: ClrDraw
: Text(1,1,"IMMEDIATEMENT ANTERIEURE"
: 13→H
: 3→I
: For (P,1,C
:   If P=7 or P=14 or P=21 or P=28 : Then
:     Pause
:     ClrDraw
:     Text(1,1,"IMMEDIATEMENT ANTERIEURE"
:     13→H
:     3→I
:   End
:   I+7→I
:   13→H
:   Text(I,1,P
:   Text(I,10,"="
:   For(R,1,L
:     If [B](R,P)=1 : Then
:       H+9→H
:       Text(I,H,R
:     End
:   End
: End
: Pause
: -1→H
: 1→J
: 3→I
: ClrDraw
: Lbl 7
: For(W,1,C
:   0→N
:   If [A](1,W)≠9:1→N
: End
: If N=0:Goto 9
: 1+H→H
: I+7→I
: 11→J
: If H=0 or fPart(H/7)=0 : Then
:   10→I
:   11→J
:   If H≠0 : Pause
:   ClrDraw
:   Text(1,5,"NIVEAU = TACHES"
: End
: Text(I,1,H
: Text(I,8,"="
: For(W,1,C
:   0→N
:   For(Z,1,L
:     If [B](Z,W)=1 : 1+N→N
:   End
:   If N=0 and [A](1,W)≠9 : Then
:     J+11→J
:     Text(I,J,W
:     9→[A](1,W)
:   End
: End
: For(R,1,C
:   If [A](1,R)=9 : Then
:     For (P,1,C
:       0→[B](R,P)
:     End
:   End
: End
: Goto 7
: Lbl 9
: Text(57,75,"FINI"


? :/ j'ai essayé plein de fois mais à chaque fois ça merdouille ....

Il y a certains symboles qui sont mal passé... Je les ai touscorrigé quelques-uns, mais je ne suis pas certains de moi pour certains d'entre eux.
Par ailleurs, le parseur du forum ne sait pas qu'un guillemet n'a pas besoin d'être fermé en fin de ligne, ce qui fausse la coloration syntaxique... J'ai corrigé cela également.

Enfin, si tu ne nous dis pas ce que doit faire le programme, cela va être difficile de le traduire...
Néanmoins, je vais également ajouter de l'indentation pour améliorer la lisibilité.

Code: Select all

prgmZCLEAR
: dim([A])→L1
: L1(1)→L
: L1(2)→C
: {L,C}→dim([B]
: [A]→[B]
: For (X,1,L)
:   For (Y,1,C)
:     If [A](X,Y)≠0
:     Then
:       For(Z,1,L)
:         If Z≠Y and X≠Y
:         Then
:           If [A](X,Y)=1 and [A](X,Z)=1 and [A](Y,Z)=1
:           Then
:             If [B](X,Z)=1
:             Then
:               0→[B](X,Z)
:             End
:           End
:         End
:       End
:     End
:   End
: End
: FnOff
: .1→Xmin
: 99→Xscl
: .1→Ymin
: 99→ Yscl
: ClrDraw
: Text(1,1,"IMMEDIATEMENT ANTERIEURE")
: 13→H
: 3→I
: For (P,1,C)
:   If P=7 or P=14 or P=21 or P=28
:   Then
:     Pause
:     ClrDraw
:     Text(1,1,"IMMEDIATEMENT ANTERIEURE")
:     13→H
:     3→I
:   End
:   I+7→I
:   13→H
:   Text(I,1,P)
:   Text(I,10,"=")
:   For(R,1,L)
:     If [B](R,P)=1
:     Then
:       H+9→H
:       Text(I,H,R)
:     End
:   End
: End
: Pause
: -1→H
: 1→J
: 3→I
: ClrDraw
: Lbl 7
: For(W,1,C)
:   0→N
:   If [A](1,W)≠9:1→N
: End
: If N=0:Goto 9
: 1+H→H
: I+7→I
: 11→J
: If H=0 or fPart(H/7)=0
: Then
:   10→I
:   11→J
:   If H≠0:Pause
:   ClrDraw
:   Text(1,5,"NIVEAU = TACHES")
: End
: Text(I,1,H)
: Text(I,8,"=")
: For(W,1,C)
:   0→N
:   For(Z,1,L)
:     If [B](Z,W)=1:1+N→N
:   End
:   If N=0 and [A](1,W)≠9
:   Then
:     J+11→J
:     Text(I,J,W)
:     9→[A](1,W)
:   End
: End
: For(R,1,C)
:   If [A](1,R)=9
:   Then
:     For (P,1,C)
:       0→[B](R,P)
:     End
:   End
: End
: Goto 7
: Lbl 9
: Text(57,75,"FINI")


J'ai indenté (à la main) pour au moins y voir plus clair.

EDIT : Ça ressemble à de l'ordonnancement...

c'est exactement ça ! ordonnancement de tache !!

site ou je l'ai trouver

http://sebastiengrenier.chez.com/TI83/O ... ement.html