Transductor a código morse

Samuel Morse invento el telégrafo en el año 1832 y diseño un esquema de codificación para enviar mensajes. En el sistema, conocido como “Código Morse” o “Clave Morse”, los caracteres se representan mediante puntos y líneas, que corresponden a impulsos eléctricos que producen una señal acústica o luminosa de una cierta duración. Así, la letra ‘A’ se codifica como un punto y una línea: .- Mientras que la letra ‘F’ como dos puntos, una línea y un punto: ..-.

Entrada: Aprende con 4lpes

Salida: .-.--..-..-.-...-.-.----.....-.-...--....

Código:

Proceso CodigoMorse
    Escribir "Ingrese un texto"
    Leer frase

	frase = Minusculas(frase)
	frase_morse = ""
	
    Para i <- 1 Hasta Longitud(frase) Con Paso 1
        segun Subcadena(frase, i, i) hacer
            "a":
                frase_morse = frase_morse + ".-"
            "b":
                frase_morse = frase_morse +  "-..."
            "c":
                frase_morse = frase_morse +  "-.-."
            "d":
                frase_morse = frase_morse +  "-.."
            "e":
                frase_morse = frase_morse +  "."
            "f":
                frase_morse = frase_morse +  "..-."
            "g":
                frase_morse = frase_morse +  "--."
            "h":
                frase_morse = frase_morse +  "...."
            "i":
                frase_morse = frase_morse +  ".."
            "j":
                frase_morse = frase_morse +  ".---"
            "k":
                frase_morse = frase_morse +  "-.-"
            "l":
                frase_morse = frase_morse +  ".-.."
            "m":
                frase_morse = frase_morse +  "--"
            "n":
                frase_morse = frase_morse +  "-."
            "o":
                frase_morse = frase_morse +  "---"
            "p":
                frase_morse = frase_morse +  ".--."
            "q":
                frase_morse = frase_morse +  "--.-"
            "r":
                frase_morse = frase_morse +  ".-."
            "s":
                frase_morse = frase_morse +  "..."
            "t":
                frase_morse = frase_morse +  "-"
            "u":
                frase_morse = frase_morse +  "..-"
            "v":
                frase_morse = frase_morse +  "...-"
            "w":
                frase_morse = frase_morse +  ".--"
            "x":
                frase_morse = frase_morse +  "-..-"
            "y":
                frase_morse = frase_morse +  "-.--"
            "z":
                frase_morse = frase_morse +  "--.."
            "1":
                frase_morse = frase_morse +  ".----"
            "2":
                frase_morse = frase_morse +  "..---"
            "3":
                frase_morse = frase_morse +  "...--"
            "4":
                frase_morse = frase_morse +  "....-"
            "5":
                frase_morse = frase_morse +  "....."
            "6":
                frase_morse = frase_morse +  "-...."
            "7":
                frase_morse = frase_morse +  "--..."
            "8":
                frase_morse = frase_morse +  "---.."
            "9":
                frase_morse = frase_morse +  "----."
            "0":
                frase_morse = frase_morse +  "-----"
        FinSegun
    FinPara
	Escribir frase_morse
FinProceso

Ejecución: