Détail manquant
Fermé
Utilisateur anonyme
-
Modifié par Glacirius le 30/12/2012 à 12:36
Utilisateur anonyme - 3 janv. 2013 à 19:31
Utilisateur anonyme - 3 janv. 2013 à 19:31
4 réponses
Utilisateur anonyme
3 janv. 2013 à 18:34
3 janv. 2013 à 18:34
Voilà l'algo, désolé j'ai pas trouver comment mettre les flèche pour "stocker" donc j'ai mis ça ->
et pour la fonction "afficher" (normalement un petit triangle) j'ai mis ¤
Lbl Z
ClrGraph
RclV-Win 1
ClrList
20->N
0->List 1[1]
5->List 2[1]
15->List 3[1]
0->List 4[1]
For 1->I To 100
RanInt#(1,N)->List 1[I+1]
If List 1[I+1]<=List 2[I]
Then List 2[I]-1->List 2[I+1]
Else List 2[I]+1->List 2 [I+1]
IfEnd
N-List 2[I+1]->List 3[I+1]
If List 2[I+1]=5
Then 1->List 4[I+1]
Else 0->List 4[I-1]
IfEnd
Next
List 1¤
List 2¤
List 3¤
List 4¤
ClrText
"Particules dans l'urne A"
For 1->I To 100
Graph(X,Y)=(I,List 2[I+1])
Next
ClrText
"Caracteristiques de l'urne A"¤
1-VAriable List 2¤
"Si vous voulez refaire un tirage, tapez [5] puis [EXE] sinon remplacer [5] par un autre chiffre"
?->T
If T=5
Then Goto Z
Else "Fini, appuyez sur [EXE]"
IfEnd
et pour la fonction "afficher" (normalement un petit triangle) j'ai mis ¤
Lbl Z
ClrGraph
RclV-Win 1
ClrList
20->N
0->List 1[1]
5->List 2[1]
15->List 3[1]
0->List 4[1]
For 1->I To 100
RanInt#(1,N)->List 1[I+1]
If List 1[I+1]<=List 2[I]
Then List 2[I]-1->List 2[I+1]
Else List 2[I]+1->List 2 [I+1]
IfEnd
N-List 2[I+1]->List 3[I+1]
If List 2[I+1]=5
Then 1->List 4[I+1]
Else 0->List 4[I-1]
IfEnd
Next
List 1¤
List 2¤
List 3¤
List 4¤
ClrText
"Particules dans l'urne A"
For 1->I To 100
Graph(X,Y)=(I,List 2[I+1])
Next
ClrText
"Caracteristiques de l'urne A"¤
1-VAriable List 2¤
"Si vous voulez refaire un tirage, tapez [5] puis [EXE] sinon remplacer [5] par un autre chiffre"
?->T
If T=5
Then Goto Z
Else "Fini, appuyez sur [EXE]"
IfEnd
bjour
Messages postés
6068
Date d'inscription
lundi 11 janvier 2010
Statut
Contributeur
Dernière intervention
2 mai 2022
4 065
3 janv. 2013 à 18:57
3 janv. 2013 à 18:57
Ok,
pour "nommer" des listes tu entends utiliser le Subname que tu vois en mode Listes ?
Je ne crois pas que ce soit possible depuis un programme, ou alors c'est nouveau de ce matin !
Note: ClrList efface toutes les listes du fichier en cours, si tu veux effacer une liste précise, par exemple la n°2, écris:
Pour "laisser le graphique affiché", tu entends le conserver affiché après le Next de cette partie ?
Si oui, tu peux faire ceci:
Note: pour la fin de ton programme, en plus léger:
Le => est un If/IfEnd en plus court, version (test logique)=>(commande si vrai)
Donc si tu tapes autre chose que 5, la condition n'est pas vraie, et le programme continue (dans ce cas ci, il s'arrête).
Cdlt,
pour "nommer" des listes tu entends utiliser le Subname que tu vois en mode Listes ?
Je ne crois pas que ce soit possible depuis un programme, ou alors c'est nouveau de ce matin !
Note: ClrList efface toutes les listes du fichier en cours, si tu veux effacer une liste précise, par exemple la n°2, écris:
ClrList 2
Pour "laisser le graphique affiché", tu entends le conserver affiché après le Next de cette partie ?
For 1->I To 100 Graph(X,Y)=(I,List 2[I+1]) Next
Si oui, tu peux faire ceci:
For 1->I To 99 Graph(X,Y)=(I,List 2[I+1]) Next Graph(X,Y)=(100,List 2[100+1])¤
Note: pour la fin de ton programme, en plus léger:
"Pour autre tirage [5]puis [EXE] sinon autre chiffre"?->T T=5=>Goto Z
Le => est un If/IfEnd en plus court, version (test logique)=>(commande si vrai)
Donc si tu tapes autre chose que 5, la condition n'est pas vraie, et le programme continue (dans ce cas ci, il s'arrête).
Cdlt,
3 janv. 2013 à 18:18