[Pascal] Uscita da ciclo For creando una lista

[diavoletto88]

ciao
non mi va sto codice
appena inizia la riga del for mi si chiude la win-dos

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

[diavoletto88]

up

[{Bl4d3}]

per leggere una stringa devi mettere un readln

con read lui legge un solo carattere, quindi esegue il ciclo for e chiude il programma perchè è finito...

ti consiglio di mettere un readln finale senza variabili in modo da fermare l'esecuzione del programma.

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 : ');
 readln(FIRST^.STR);
 LIST:=FIRST;
 for I:=2 to DIM do
     begin
         New (LIST^.NEXT);
         LIST:=LIST^.NEXT;
         write(' Immetti la ',I,'# stringa : ');
         readln(LIST^.STR);
     end;
  LIST^.NEXT:=NIL;
  readln;
end.

prova così che dovrebbe andare...

[diavoletto88]

ti ringrazio va alla grande