ciao
non mi va sto codice
appena inizia la riga del for mi si chiude la win-dos
codice:
program LISTE;
const DIM=4;
type
t_LIST = ^t_STRUCT;
t_STRUCT = record
STR:string[15];
NEXT:t_LIST;
end;
var I:integer;
FIRST,LIST:t_LIST;
begin
New (FIRST);
write(' Immetti la 1# stringa : ');
read(FIRST^.STR);
LIST:=FIRST;
for I:=2 to DIM do
begin
New (LIST^.NEXT);
LIST:=LIST^.NEXT;
write(' Immetti la ',I,'# stringa : ');
read(LIST^.STR);
end;
LIST^.NEXT:=NIL;
end.
se vedete orrori non fateci caso sono agli inizi con i caricamenti di elementi su liste con cicli
ciao
grazie eventualmente