π
<-
Chat plein-écran
[^]

Traduction d'un programme :/

Pour le TI-Basic sur Nspire

Traduction d'un programme :/

Message non lude 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 ....
Avatar de l’utilisateur
nono92160
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 78.1%
 
Messages: 39
Inscription: 09 Jan 2015, 20:02
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: Derniere année BTS MUC

Re: Traduction d'un programme :/

Message non lude 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")
Avatar de l’utilisateur
BisamAdmin
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 69.6%
 
Messages: 5666
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: Traduction d'un programme :/

Message non lude Levak » 02 Fév 2015, 12:57

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

EDIT : Ça ressemble à de l'ordonnancement...
Responsable design/graphique de TI-Planet
I do not get mad at people, I just want them to learn the way I learnt.
ImageTNOC [topic][DL]
nClock [topic][DL]
HideManager [topic][DL]
ZLock [topic][DL]
Theme Editor [topic][DL]
Mes programmes
Avatar de l’utilisateur
LevakAdmin
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Prochain niv.: 98.9%
 
Messages: 6414
Images: 22
Inscription: 27 Nov 2008, 00:00
Localisation: 0x1AACC355
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: BAC+5: Epita (ING3)

Re: Traduction d'un programme :/

Message non lude nono92160 » 02 Fév 2015, 14:54

c'est exactement ça ! ordonnancement de tache !!
Avatar de l’utilisateur
nono92160
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 78.1%
 
Messages: 39
Inscription: 09 Jan 2015, 20:02
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: Derniere année BTS MUC

Re: Traduction d'un programme :/

Message non lude nono92160 » 02 Fév 2015, 17:52

Avatar de l’utilisateur
nono92160
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 78.1%
 
Messages: 39
Inscription: 09 Jan 2015, 20:02
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile
Classe: Derniere année BTS MUC


Retourner vers Nspire-Basic

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 37 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
"1 calculatrice pour tous", le programme solidaire de Texas Instruments. Reçois gratuitement et sans aucune obligation d'achat, 5 calculatrices couleur programmables en Python à donner aux élèves les plus nécessiteux de ton lycée. Tu peux recevoir au choix 5 TI-82 Advanced Edition Python ou bien 5 TI-83 Premium CE Edition Python.
Enseignant(e), reçois gratuitement 1 exemplaire de test de la TI-82 Advanced Edition Python. À demander d'ici le 31 décembre 2024.
Offre de test des nouveautés de rentrée 2024 par Casio. Enseignant(e), reçois gratuitement 1 exemplaire, à ton choix, de la Graph Light ou bien de la Graph Math+
14€ remboursés par Casio sur l'achat de ta calculatrice Graph 35 d'ici le 31 Octobre 2024
10€ remboursés par Casio sur l'achat de ta calculatrice Graph 90+E d'ici le 31 Décembre 2024
10€ remboursés par Casio sur l'achat de ta calculatrice Graph 25 d'ici le 31 Décembre 2024
8€ remboursés par Casio sur l'achat de ta calculatrice Graph Math+ d'ici le 31 Octobre 2024
Reprise de ton ancienne fx-92 Collège ou Graph 25/35/90 à 3€ peu importe son état. Même non fonctionnelle et donc invendable, même ancienne Graph 35 non conforme aux programmes (pas de Python), même ancienne Graph 25/35 inutilisable aux examens (pas de mode examen) et donc invendable. Etiquette de retour fournie, pas de frais de port à payer.
3€ remboursés par Casio sur l'achat de ta calculatrice fx-92 Collège d'ici le 30 Septembre 2024
5€ de remise immédiate sur l'achat de ta calculatrice TI-83 Premium CE Edition Python chez les revendeurs partenaires
4€ de remise immédiate sur l'achat de ta calculatrice TI-82 Advanced Edition Python chez les revendeurs partenaires
3€ de remise immédiate sur l'achat de ta calculatrice TI-82 Advanced chez les revendeurs partenaires
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
1234567891011121314
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
1215 utilisateurs:
>1203 invités
>7 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)