[ Foro de Pascal ]

ayuda con programa

30-Nov-2017 08:55
Invitado (esteban)
0 Respuestas

Escriba un procedimiento que reciba como par?metro, una tabla de enteros y devuelva una cadena con los caracteres correspondientes. Incluya el procedimiento en un peque?o programa de prueba para depurarlo y verificar que es correcto.

esto es lo que he sido capaz de hacer, pero el resultado no es el deseado, mas bien es una cat?strofe de resultado. Agradeceria que alguien me pudiera prestar algo de ayuda. Gracias.

program cadenaenteros;
type
tabla = array[1..20] of integer;
 var
  cadena : string[20];
  tab : tabla;
  i, cont : integer;
  caracteres : tabla;
  procedure valores (var caracteres : tabla);
  begin
       write('  Entre cadena max 20 caracteres : ');
       readln(cadena);
       for cont := 1 to length(cadena) do
     begin
       tab[cont] := ord(cadena[cont]);
       writeln;
       writeln('tabla de caracteres obtenida');
       writeln;
       for i := 1 to cont do
       write('  ',chr(tab[i]));
     end;
 end;
 begin
 valores (caracteres);
 end.




Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...