Recherche lettre dans mot
PiR/D
Messages postés
213
Date d'inscription
Statut
Membre
Dernière intervention
-
PiR/D Messages postés 213 Date d'inscription Statut Membre Dernière intervention -
PiR/D Messages postés 213 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Voici mon problème, j'ai un programme convertisseur de base et j'aimerais que quand je tapes un mot comme BONJOUR le prgm me dise qu'il est en base 29.
En gros qu'il cherche la lettre dans le mot qui est la plus loin dans l'alphabet (ici le u).
Comment faire ça ?
Merci d'avance
PS: le prgm de base est celui d'Openclassrooms (https://openclassrooms.com/fr/courses/960281-apprenez-a-programmer-en-ti-basic/955244-tp-convertisseur-de-bases )
-insérez une citation bidon trouvée sur internet-
Voici mon problème, j'ai un programme convertisseur de base et j'aimerais que quand je tapes un mot comme BONJOUR le prgm me dise qu'il est en base 29.
En gros qu'il cherche la lettre dans le mot qui est la plus loin dans l'alphabet (ici le u).
Comment faire ça ?
Merci d'avance
PS: le prgm de base est celui d'Openclassrooms (https://openclassrooms.com/fr/courses/960281-apprenez-a-programmer-en-ti-basic/955244-tp-convertisseur-de-bases )
-insérez une citation bidon trouvée sur internet-
A voir également:
- Recherche lettre dans mot
- Clavier iphone chiffre et lettre - Guide
- Caractere speciaux lettre - Guide
- Trousseau mot de passe iphone - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Recherche automatique des chaînes ne fonctionne pas - Guide
1 réponse
J'ai réussi à trouver une solution la voici:
:INPUT "NB A CONV: ", Chaine1 :"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"->Chaine2 :Lbl A :0 :For(x,1,longueur(chaine1 :max(rep,carchaine(chaine2,sous-chaine(chaine1,x,1 :end :disp "BASE SUGGEREE: " :disp rep :rep->C :repeat rep :codetouche :end :if rep/=105 //si rep diff de [enter] alors on rentre autre base :input "BASE DE DEP: ",C :input "BASE ARRIVEE: ",D :if C>36 ou D>36 ou C<2 ou D<2 //test si bases valides :then :disp" " :disp"ERREUR BASE(S)" :pause :goto A :end :longueur(chaine1)->A :0 :for(x,0,A-1 :rep+c^xcarchaine(chaine2,sous-chaine(chaine1,A-x,1 :end :rep->B :"0"+chaine2->chaine2 :lbl R :B->z :" ->chaine1 :while Z : artent(Z/D->Q :sous-chaine(chaine2,Z-DQ+1,1)+chaine1->chaine1 :Q->Z :end :pause chaine1 :stop
