Pascal/Turbo Pascal - 2.1 tema 7

   
Vista:

2.1 tema 7

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 20/03/2014 16:03:27
hola tengo que hacer lo siguente:

Teniendo en cuenta las funciones que acaba de ver en la cuestión 1, escriba un programa que pida al usuario una cadena de caracteres. A continuación, pase dicha cadena de caracteres a una tabla con los enteros correspondientes a cada carácter. Finalmente el programa mostrará al usuario la tabla de enteros obtenida.

la funcion es esta:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.

gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

2.1 tema 7

Publicado por ramon (2072 intervenciones) el 24/03/2014 13:07:31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar