Pascal/Turbo Pascal - 2.1 tema 7

program valores;

var

		letra:char;

		numero:integer;

		valornumerico:integer;

		valorcaracter:char;

begin

		writeln('Introduzca una letra: ');

		readln(letra);

		valornumerico:=ord(letra);

		writeln('El valor numerico de su letra es: ',valornumerico);

		writeln('Introduzca un numero: ');

		readln(numero);

		valorcaracter:=Chr(numero);

		writeln('Su numero corresponde al caracter: ',valorcaracter);

end.

{Algo así}

program cadenaenteros;

  var

   cadena : string[20];

   tabla : array[1..20] of integer;

   i, cont : integer;

  begin

     write('  Entre cadena max 20 caracteres : ');

     readln(cadena);

     for cont := 1 to length(cadena) do

     tabla[cont] := ord(cadena[cont]);

     writeln;

     writeln('tabla de enteros obtenida');

     writeln;

     for i := 1 to cont do

     write('  ',tabla[i]);

     readln;

  end.

Program CadenaAOrdenArray;

(*Declaramos las variable necesarias que nos van a permitir la ejecucion del

  programa*)

var

 i:integer;

 frase:string;

 Tabla: array[1..20] of integer;

Begin

(*Pedimos la cadena de caracteres y la almacenamos en la variable*)

 writeln('Introduzca una frase a convertir en ASCII:  ');

 writeln;

 readln(Frase);

 writeln;

(*Con el bucle For-Do recorremos la cadena de caracteres. Para saber el numero

  de caracteres de una cadena dispones de varias opciones, en este caso

  he optado por la mas simple, que es obtener el dato de su longitud que se encuentra en el

  espacio [0] del string*)

(*Gracias a este for y mediante la funcion ord podemos transformar

  los caracteres en su correspondiente entero e incluirlos en el array

  de enteros*)

 for i:= 1 to ord(frase[0])do

     begin

     Tabla[i]:= ord(frase[i]);

     write('Letra: ',frase[i],' >>> ', tabla[i]);

     readln;

     end;

end.

Program FraseATablaEntero;

var

(*Declaramos las variables necesarias para el desarrollo del programa*)

 Tenteros: array [1..100] of integer; (*Tabla de enteros*)

 i: integer;

 Frase:string[100]; (*Tabla de caracteres*)

Begin

(*Pedimos que introduzcan una frase y la asignamos a una variable*)

 writeln('Introduzca una frase a convertir en ASCII:  ');

 readln(Frase);

 (*Para movernos por un cadena de caracteres o un array, así como para

   realizar distintas operaciones como asignar valores, necesitamos saber

   los espacios que ocupa en el array o al menos saber el maximo. Para ello nos valemos de la función

   length que cuenta los caracteres de una cadena y devuelve un entero.*)

 (*Gracias a este For-Do y mediante la funcion ord podemos transformar

   los caracteres en su correspondiente entero e incluirlos en el array

   de enteros*)

 For i:= 1 to length(Frase) do

  Begin

    Tenteros[i]:= Ord(frase[i]);

  end;

 (*Con este otro bucle recorremos el array y la cadena de caracteres para

   mostrar sus valores por pantalla*)

 for i:= 1 to length(Frase) do

   begin

    write('Numero: ',tenteros[i],' >>> ASCII: ', Frase[i]);

    readln;

   end;

 writeln;

end.