Ejemplo de Algoritmo para convertir una cadena en un numero telefonico

Proceso ConversionCadenaANumeroTelfenico

Definir nombre como cadena;
Definir len como entero;
Definir subcad como cadena;
Definir retorno Como cadena;
Definir i Como entero;

Escribir "Ingrese el nombre: ";
Leer nombre;
retorno <- "";
nombre <- " " + nombre;
len <- longitud (nombre);

Escribir subcadena (nombre,1,1);

Para i<-1 Hasta len Con Paso 1 Hacer
subcad <- subcadena (nombre,i,i);
Si subcad = "A" | subcad = "B" | subcad = "C" | subcad = "2" Entonces
retorno <- concatenar (retorno,"2");
FinSi
Si subcad = "D" | subcad = "E" | subcad = "F" | subcad = "3" Entonces
retorno <- concatenar (retorno,"3");
FinSi
Si subcad = "G" | subcad = "H" | subcad = "I" | subcad = "4" Entonces
retorno <- concatenar (retorno,"4");
FinSi
Si subcad = "J" | subcad = "K" | subcad = "L" | subcad = "5" Entonces
retorno <- concatenar (retorno,"5");
FinSi
Si subcad = "M" | subcad = "N" | subcad = "O" | subcad = "6" Entonces
retorno <- concatenar (retorno,"6");
FinSi
Si subcad = "P" | subcad = "Q" | subcad = "R" | subcad = "S" | subcad = "7" Entonces
retorno <- concatenar (retorno,"7");
FinSi
Si subcad = "T" | subcad = "U" | subcad = "V" | subcad = "8" Entonces
retorno <- concatenar (retorno,"8");
FinSi
Si subcad = "W" | subcad = "X" | subcad = "Y" | subcad = "Z" | subcad = "9" Entonces
retorno <- concatenar (retorno,"9");
FinSi
Si subcad = "1" Entonces
retorno <- concatenar (retorno,"1");
FinSi
Si subcad = "*" Entonces
retorno <- concatenar (retorno,"*");
FinSi
Si subcad = "#" Entonces
retorno <- concatenar (retorno,"#");
FinSi
Si subcad = "0" Entonces
retorno <- concatenar (retorno,"0");
FinSi
FinPara

Escribir "El numero telefonico a marcar es: ", retorno;



FinProceso