Traduction d'un programme :/

→ **MyCalcs** profile · de **nono92160** » 02 Fév 2015, 09:51

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

Code: Tout sélectionner: 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 ....

→ **MyCalcs** profile · de **Bisam** » 02 Fév 2015, 12:48

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: Tout sélectionner: 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")