Posté le 01/01/2014 18:14
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 51 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements
Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd
Citer : Posté le 01/01/2014 18:27 | #
Il y a un problème, les programmes en Basic ne sont pas censés contenir de points-virgules...
En fait je ne comprends pas du tout le code que tu as mis en exemple...
Timeless Remix
Super Run & Jump
Timeless
Les tests vidéo de Marmotti
Citer : Posté le 01/01/2014 18:33 | #
je vais mettre tout le code, comme ça ce sera plus simple à comprendre.
En fait c'est un programme "Méthode automatique du calcul du simplexe".
Voici le code : (le "%" = la touche G) :
"Le tableau doit être copié dans la matrice A"
"Nombre de lignes " ?->L
"Nombre de colonnes"?->C
ClrText
1->V
For 2->I To C-1
If Mat A≠91;L,I≠93;>Mat A≠91;L,V≠93;
Then I->V
IfEnd
Next
"Colonne du pivot = ":V◢
1->W
For 2->I To L-1
If Mat A≠91;I,V≠93;≠0:Then
If Mat A≠91;W,V≠93;#0
Then If (Mat A≠91;I,C≠93;/Mat A≠91;I,V≠93;) < (Mat A ≠91;W,C≠93;/Mat A≠91;W,V≠93;)
Then I->W
IfEnd
Else I->W
IfEnd
IfEnd
Next
"Ligne du pivot = ":W◢
Mat A≠91;W,V≠93;->P
"Pivot = ":P◢
Mat A->Mat B
For 1->I To L
For 1->J To C
If I=W
Then Mat B≠91;I,J≠93;%P->Mat A≠91;I,J≠93;
Else If J=V
Then 0->Mat A≠91;I,J≠93;
Else (Mat B≠91;I,J≠93;-((Mat B≠91;W,J≠93;xMat B≠91;I,V≠93;)%P))->Mat A≠91;I,J≠93;
IfEnd
IfEnd
Next
Next
For 1->I To C
If Mat A≠91;L,I≠93;>0
Then C+2->I
IfEnd
Next
If I<C+2
Then "Dernier Tableau !"%
IfEnd
Mat A%
Goto 0
J'espère que c'est plus clair.
Edit par Dark Storm : ça l'est plus avec la balise [ code ]
Citer : Posté le 01/01/2014 18:35 | #
Met le code dans la balise code s'il te plait
envie de plonger dans la mer pour ramasser des tresors? => ballon sea
envie de sauver l'univers dans un jeu avec une longue durée de vie? => saviors of the future
un add-in addictif avec plein de secret et de trophées => evasion survival
un shmup bien dur et sadique => saviors 2
merci a tout le monde pour son soutien
zelda prizm de smashmaster (en esperant qu'il puisse le finir)
les tests de marmotti
un RPG de dark storm
(dont je connais le nom, mais pas vous
)Arcuz !Citer : Posté le 01/01/2014 18:36 | #
Vous-voyez y a des points-virgules que je trouve pas dans mon fxcg20
Citer : Posté le 01/01/2014 18:43 | #
Je ne comprend pas du tout le code.
Tu as téléchargé ce programme ou?
Citer : Posté le 01/01/2014 18:44 | #
où as-tu eu ce code ?, grâce à fa-124 ?
Ajouté le 01/01/2014 à 18:45 :
grillé
Zelda de Smashmaster
Super Geek Brothers de Siapran
Pac-Man
Pac-Man Color
Meta Ball
Add-ins Jetpack Joyride et Pac-Man sur PRIZM (les 2 non commencés mais en réflexion)
A la recherche des sprites jetpack Joride si quelqu'un les a en couleur
Citer : Posté le 01/01/2014 18:45 | #
ici :
http://www.planete-istia.com/index.php/forum/12-qualite/2528-methode-automatique-du-calcul-du-simplexe-en-ro.html
Citer : Posté le 01/01/2014 19:18 | #
Ah! C'est un problème de codage!
Il fallait lire:
Then I->V etc...
Le [ signifie [ et le ] signifie ] en fait.
Timeless Remix
Super Run & Jump
Timeless
Les tests vidéo de Marmotti
Citer : Posté le 01/01/2014 19:21 | #
!=91; équivaut à [
!=93; équivaut à ]
Vitesse des fonctions en Basic Casio | 7 days CPC | Casio Universal Wiki | Tutoriel Basic Casio
>>> Give me a click Brother
>>> Random Youtube Video
Citer : Posté le 02/01/2014 12:56 | #
merci beaucoup !
ça marche !