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
0