Pascal/Turbo Pascal - procedimiento que reciba una tabla de enteros y devuelva una cadena con los caracteres

   
Vista:

procedimiento que reciba una tabla de enteros y devuelva una cadena con los caracteres

Publicado por esteban (1 intervención) el 29/11/2017 10:57:38
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
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.

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.
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