Poster un nouveau sujet Poster une réponse <<   Page: , 2  
compter des caractères
Auteur Message
doomsday



Autorisation : Membre
Nb de messages : 16
Inscrit le : Lun 11 Oct 2010, 21:51
Posté le : Sam 16 Oct 2010, 17:17   Citer 

ok merci

 Adresse email Haut de page Bas de page 
 
Prof-DeMath
Invité
Posté le : Dim 17 Oct 2010, 22:07   Citer 

Bonjour,
je suis professeur de math au lycée vinci et je remarque que la date de ce sujet correspond étrangement à c'elle ou j'ai donné un devoir maison demandant de faire un programme comptant les caractère d'une entrée sur une ti, ne devant pas compter les zéro après la virgule, et comptant la "," comme un caractère. Soupçonnant un élève, j'espère qu'à l'avenir il fera ces devoirs maison par lui même, au lieu de ce les faire faire par d'autre personnes. Je verrais bien sur les copies qui est cette personne, j'espère m’être trompé..

Cordialement.

  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 17 Oct 2010, 22:46   Citer 

Tiens, pour une fois que c'est un professeur qui viens et pas un élève.

A ce propos, je trouve intéressant qu'un prof essaye d'inculqué la programmation à ses élèves mais en général quand il donne à ses élèves un exercice, ils n'ont aucune indication d'où leur arrivée sur ce forum.

Et pendant que j'y pense, voila un programme pour compter les caractères d'un nombre (virgule comprise).

Code

Input "NOMBRE:",A
partEnt(A->B
partDéc(A->C
0->D
0->E
While 9*10^D<B
D+1->D
End
While 9*10^E<C
E+1->E
End
Output(2,1,"NOMBRE DE
Output(3,1,"CARACTERES:
Output(4,1,D+E+1



Sangohan38

PS: Ce prog n'a pas du tout été testé.

 Adresse email Haut de page Bas de page 
 
Akmdad



Autorisation : Membre
Nb de messages : 717
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Jeu 21 Oct 2010, 15:43   Citer 


Citer : persalteas
avec une chaine, ce n'est pas possible, car la chaine est une variable de texte, et pas de valeur.


bien sur que si, il faudrait

Code

0[sto]B
For(A,1,Longueur(Chaine1
If B=/=1
1+C[sto]C
If sous-chaine(Chaine1,A,1)=",
1[sto]B
End
Disp C



----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
Rézus



Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 21 Oct 2010, 16:42   Citer 

Aaaah ! j'avais jamais compris ça,merci beaucoup persalteas ^^

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 23 Oct 2010, 13:26   Citer 

t'as raison akmdad.

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 01 Nov 2010, 0:47   Citer 

Sangohan38, j'ai testé ton programme et c'était faux.

Ce programme-ci gère tous les réels en écriture normale.

Code
Prompt A
0->D
While fPart(C*10^(D
D+1->D
End
0->E
While iPart(B*10^(-E
E+1->E
End
Disp E+D+(A<=0)+(D!=0)



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse <<   Page: , 2  





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink