bonjour à tous,
j'aimerais écrire un algorithme qui me permettrait décoder et de décoder des textes que j'entrerais dans ma calculatrice.
Comment pourrais je me débrouiller pour que, par exemple, la calculatrice me demande de taper un texte, puis le code ou le décode en remplaçant chaque lettre qu'elle rencontre par celle que j'aurais définis auparavant.
exemple, je lui donne a=b, b=c, c=d,
si je rentre bac, elle me sort cbd
et ainsi pour toutes les lettres de l'alphabet.
Merci de votre aide
Edit Coll : forum modifié
ce n'est pas hors sujet, ça fait partie du programme de maths sup la programmation sur calculatrice !
bon, d'accord, ce ne sont pas des maths, mais ça touche malgré tout au programme de maths sup et je trouvais ça plutôt intéressant.
D'autant plus que prétendre que la cryptographie n'a rien à voir avec les mathématiques me surprend un peu.
On parle aussi d'orientations, de concours, sur ce forum, quels rapport avec les mathématiques en elles même ?
bonjour à tous,
j'aimerais écrire un algorithme qui me permettrait décoder et de décoder des textes que j'entrerais dans ma calculatrice.
Comment pourrais je me débrouiller pour que, par exemple, la calculatrice me demande de taper un texte, puis le code ou le décode en remplaçant chaque lettre qu'elle rencontre par celle que j'aurais définis auparavant.
exemple, je lui donne a=b, b=c, c=d,
si je rentre bac, elle me sort cbd
et ainsi pour toutes les lettres de l'alphabet.
Merci de votre aide
*** message déplacé ***
Salut !
Sagohan >> Pas très utile ce que tu fais là.
premierS >> Quel est le type de calculatrice que tu as ?
MV
*** message déplacé ***
j'ai une graph 65, mais comme c'était juste un exercice que je m'étais moi meme proposé, peut-être n'est-ce pas possible ?
mais je vais bientôt avoir une classpad 300+
*** message déplacé ***
bonjour Sangohan
voici un programme de Visual Basic :
Function coder(texte As String, code As String) As String
Dim ntexte As String, lettre As String
Dim i As Integer
For i = 1 To Len(texte)
lettre = Mid(texte, i, 1)
If InStr("abcdefghijklmnopqrstuvwxyz", lettre) Then
ntexte = ntexte & Mid(code, Asc(lettre) - 96, 1)
Else
ntexte = ntexte & lettre
End If
Next i
coder = ntexte
End Function
*** message déplacé ***
Vous devez être membre accéder à ce service...
Pas encore inscrit ?
1 compte par personne, multi-compte interdit !
Ou identifiez-vous :