Arreglos dinámicos
Ocupo saber como se crean errglos dinámicos en Pascal! Lo más antes posible, se los agradecería demasiado! Por favor por favor!
1 respuesta
Respuesta
1
Creo que Pascal no utiliza arreglos dinámicos propiamente dichos, sino que utiliza listas enlazadas mediante punteros.
Una forma de hacer lo que deseas es utilizar punteros, de la siguiente
forma:
Uses CRT, DOS;
Type
TNodo=Record
datos : string;
sgte : ^Tnodo;
end;
var
P, Pcab : ^TNodo
datostecla : string;
begin
clrscr;
ReadLn(datostecla);
New(PCab);
P:=PCab;
p^.datos:=datostecla;
p^.sgte:=0;
readLn(datostecla);
while datos tecla <> "" do
begin
New(p^.sgte);
P=P.^sgte;
P^.datos:=datostecla;
p^.sgte:=0;
readLn(datostecla);
end;
End.
Esto sólo es un pequeño ejemplo, tú tendrías que adaptarlo al problema que tú quieras resolver.
Una forma de hacer lo que deseas es utilizar punteros, de la siguiente
forma:
Uses CRT, DOS;
Type
TNodo=Record
datos : string;
sgte : ^Tnodo;
end;
var
P, Pcab : ^TNodo
datostecla : string;
begin
clrscr;
ReadLn(datostecla);
New(PCab);
P:=PCab;
p^.datos:=datostecla;
p^.sgte:=0;
readLn(datostecla);
while datos tecla <> "" do
begin
New(p^.sgte);
P=P.^sgte;
P^.datos:=datostecla;
p^.sgte:=0;
readLn(datostecla);
end;
End.
Esto sólo es un pequeño ejemplo, tú tendrías que adaptarlo al problema que tú quieras resolver.