Pascal/Turbo Pascal - ayuda pascal

   
Vista:

ayuda pascal

Publicado por davo (26 intervenciones) el 03/12/2012 18:00:07
hola, como siempre necesito un poco de ayuda, estoy intentando hacer un codigo para lo siguiente:

Introducir una cadena de caracteres.
pasar a una tabla con los enteros correspondientes a cada caracter.
Mostrar la tabla de enteros obtenida.

program cadena_caracteres;
var
carac:string;
i:integer;
tabcar:array [1..100]of char;
valor_numerico:integer;
begin
write('introduce una cadena de caracteres: ');
read(carac);
for i:=1 to 1000 do
begin
valor_numerico:=ord(carac[i]);
end;
writeln ('El valor numerico de la cadena es: ',valor_numerico);
readln;


end.

Mi pregunta es : ¿como hago para meter en la tabla las diferentes cadenas?.
Muchas gracias.
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

ayuda pascal

Publicado por davo (26 intervenciones) el 04/12/2012 10:15:58
podria ser asi para leer la tabla?

write(tabcar[i]);
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

ayuda pascal

Publicado por ramon (2072 intervenciones) el 04/12/2012 19:34:03
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
{Mira revisa esto}
 
 
program cadena_caracteres;
uses
   crt;
var
  carac : string[100];
  i : integer;
  tabcar : array [1..100] of char;
  valor_numerico : word;
  begin
      clrscr;
      write('introduce una cadena de caracteres: ');
      read(carac);
      valor_numerico := 0;
      for i := 1 to length(carac) do
      begin
        valor_numerico := valor_numerico + ord(carac[i]);
        tabcar[i] := carac[i];
      end;
     writeln;
     writeln ('El valor numerico de la cadena es: ',valor_numerico);
     writeln;
     writeln(' La Cadena Es ');
     writeln;
     for i := 1 to length(carac) do
      begin
        write('  ',tabcar[i]);
      end;
     readkey;
   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