Pascal - problema di tipi variabili nei doppi puntatori

Forum - Pascal - problema di tipi variabili nei doppi puntatori

lucca (Normal User)
Pro

Messaggi: 84
Iscritto: 03/12/2009

Postato alle 15:34
Martedì, 04/01/2011

Salve a tutti,
ho un piccolo problema riguardo il tipo di una variabile nei doppi puntatori.
L'esecizio chiede di fare una tabella :

  nexts            nextd
|_____|_____|_____| ---> |__|__| ---> |__|__|
  |
  |
  V
|__|__|__| ---> |__|__| ---> |__|__|
  |
  |
  V
|__|__|__| ---> |__|__| ---> |__|__|

dove la prima colonna ha il compito di "collegare" la riga dove essa risiede e la riga successiva.

Solamente che c'è un piccolo problema non riesco a "collegare" il campo nextd con quello alla sua sinistra!!!!!!!Il compilatore, giustamente dice che sono tipi diversi. Ecco qui il lavoro:

Codice sorgente - presumibilmente Delphi

const
  ncar=20;
type
  Tstringa=string[ncar];
  Tpunta1=^Tnodo;
  Tnodo=record
          nexts:Tpunta1;
          riga:byte;
          nextd:Tpunta1;
        end;
  Tpunta2=^Trec;
  Trec=record
         info:Tstringa;
         next:Tpunta2
       end;
var
  Testa1:Tpunta1;
  Testa2:Tpunta2;
procedure inserisci(var FTesta1:Tpunta1;var FTesta2:Tpunta2);
var
  p,t:Tpunta1;
  q:Tpunta2;
  risp,risposta:char;
begin
  new(p);
  FTesta1:=p;
    while risp='n' do
      begin
        while risposta='n' do
          begin
            new(q);
            FTesta2:=q;
            p^.nextd:=q;    ecco dove mi dice errore
            writeln('inserisci la lettera');
            readln(q^.info);
            writeln('inserire un''altra lettera? S\N');
            readln(risposta);
          end;
         new(t);
         p^.nexts:=t;
         p:=t;
         writeln('inserire una nuova riga? S\N');
         readln(risp);
      end;