Skip to main content

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

El comentario anterior mio fue erroneo, con este codigo deberia funcionar correctamente :), en la segunda condicional tambien deberias 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 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 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;
    FinSi
    
FinProceso

El comentario anterior mío fue erróneo, con este código debería funcionar correctamente :), en la segunda condicional tambié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; // 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; // 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;
    SiNo
        Escribir "El carácter no es una letra";
    FinSi

FinProceso

Origen Enlace

El comentario anterior mio fue erroneo, con este codigo deberia funcionar correctamente :), en la segunda condicional tambien deberias 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 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 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;
    FinSi
    
FinProceso