Traduction d'un programme :/

→ **MyCalcs** profile · by **nono92160** » 02 Feb 2015, 09:51

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

→ **MyCalcs** profile · by **Bisam** » 02 Feb 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: 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")