El comentario anterior miomío fue erroneoerróneo, con este codigo deberiacódigo debería funcionar correctamente :), en la segunda condicional tambien deberiastambién deberías convertir la variable 'alfabeto' en Minusculas.
Funcion retorno <- Ascii(caracter)
Definir codigoAscii, retorno, i Como Enteros;
codigoAscii <- 0; //
// PSeInt no maneja ASCII directamente, así que necesitamos "engañarlo"
// comparando con una cadena que contenga el alfabeto
Definir alfabeto Como Cadena;
alfabeto <- "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
// Buscar el carácter en mayúsculas dentro del alfabeto
Para i <- 0 Hasta Longitud(alfabeto) Hacer
Si Subcadena(alfabeto, i, i) = caracter Entonces
codigoAscii <- i + 65-1;65; // 65 es el código ASCII de 'A'
Retorno <- codigoAscii;
FinSi
FinPara
// Si no se encontró en mayúsculas, buscar en minúsculas
Si codigoAscii = 0 Entonces // Significa que no se encontró en mayúsculas
Para i <- 0 Hasta Longitud(alfabeto) Hacer
Si Subcadena(Minusculas(alfabeto), i, i) = caracter Entonces
codigoAscii <- i + 97-1;97; // 97 es el código ASCII de 'a'
Retorno <- codigoAscii;
FinSi
FinPara
FinSi
// Si aún no se encontró, es un carácter especial o no alfabético
Si codigoAscii = 0 Entonces
Escribir "El carácter ingresado no es una letra.";
FinSi
FinFuncion
// Ejemplo de uso
Proceso Principal
Definir caracter Como Caracter;
Definir valorAscii Como Entero;
Escribir "Ingrese un carácter: ";
Leer caracter;
valorAscii <- Ascii(caracter);
Si valorAscii <> 0 Entonces
Escribir "El código ASCII de " , caracter , " es: ", valorAscii;
FinSiSiNo
Escribir "El carácter no es una letra";
FinProceso FinSi
FinProceso