Jorge Erasmo Medina Suarez@jorgeerasmomedinasuarez70357
Como mencioné antes, ésta es la solución al ejercicio que implementé (hay varias maneras de resolver este ejercicio):
TecladoTelf
Definir mensaje, letras, codigo, respaldo,compara Como Caracter;
Definir numerito, i, cantidad Como Entero;
Escribir "Introduzca el mensaje de texto que desea enviar: ";
Leer mensaje;
letras = "";
codigo = "";
respaldo = "";
cantidad = Longitud(mensaje);
Para i = 0 Hasta (cantidad - 1) Hacer
compara = "";
letras = Subcadena(mensaje,i,i);
compara = Alfabeto(letras);
Escribir Subcadena(compara,0,0), " - ",Subcadena(respaldo,0,0);
Si Subcadena(compara,0,0) = Subcadena(respaldo,0,0) Entonces
codigo = codigo + " " + Alfabeto(letras);
SiNo
codigo = codigo + Alfabeto(letras);
FinSi
respaldo = compara;
FinPara
Escribir "El codigo del mensaje ",mensaje," es: ",codigo;
FinAlgoritmo
Funcion equivalente <- Alfabeto(palabra)
Definir equivalente Como Caracter;
equivalente = "";
Si palabra = "a" Entonces
equivalente = "2";
SiNo
Si palabra = "b" Entonces
equivalente = "22";
SiNo
Si palabra = "c" Entonces
equivalente = "222";
SiNo
Si palabra = "d" Entonces
equivalente = "3";
SiNo
Si palabra = "e" Entonces
equivalente = "33";
SiNo
Si palabra = "f" Entonces
equivalente = "333";
SiNo
Si palabra = "g" Entonces
equivalente = "4";
SiNo
Si palabra = "h" Entonces
equivalente = "44";
SiNo
Si palabra = "i" Entonces
equivalente = "444";
SiNo
Si palabra = "j" Entonces
equivalente = "5";
SiNo
Si palabra = "k" Entonces
equivalente = "55";
SiNo
Si palabra = "l" Entonces
equivalente = "555";
SiNo
Si palabra = "m" Entonces
equivalente = "6";
SiNo
Si palabra = "n" Entonces
equivalente = "66";
SiNo
Si palabra = "o" Entonces
equivalente = "666";
SiNo
Si palabra = "p" Entonces
equivalente = "7";
SiNo
Si palabra = "q" Entonces
equivalente = "77";
SiNo
Si palabra = "r" Entonces
equivalente = "777";
SiNo
Si palabra = "s" Entonces
equivalente = "7777";
SiNo
Si palabra = "t" Entonces
equivalente = "8";
SiNo
Si palabra = "u" Entonces
equivalente = "88";
SiNo
Si palabra = "v" Entonces
equivalente = "888";
SiNo
Si palabra = "x" Entonces
equivalente = "9";
SiNo
Si palabra = "y" Entonces
equivalente = "99";
SiNo
Si palabra = "z" Entonces
equivalente = "999";
SiNo
Si palabra = " " Entonces
equivalente = "0";
SiNo
Escribir "Por favor, introduzca un caracter acorde al teclado.";
equivalente = "ERROR";
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinFuncion