tipos de puntero

Pascal admite el uso de punteros :

type tipo 
  Nodeptr = ^Node; Nodeptr = ^ nodo;
  Node = record Nodo = record
        a : Integer ; a: Integer;
        b : Char ; b: Char;
        c : Nodeptr c: Nodeptr
      end ; final;
var var
  ptoNode : Nodeptr; ptoNode: Nodeptr;
  pInt : ^Integer; pinta: ^ Integer;

Here the variable ptoNode is a pointer to the data type Node , a record. Aquí el ptoNode variable es un puntero al tipo de datos del nodo, un récord. Pointers can be used before they are declared. Los punteros se pueden utilizar antes de que se declaren. This is a forward declaration , an exception to the rule that things must be declared before they are used. Se trata de una declaración adelantada , una excepción a la regla de que las cosas deben ser declarados antes de ser utilizados. To create a new record and assign the value 10 and character A to the fields a and b in the record, and to initialise the pointer c to nil , the commands would be: Para crear un nuevo registro y asignar el valor 10 y un carácter a los campos A y B en el expediente, y para inicializar el c puntero a cero , los comandos serían:

new ( ptoNode ) ; nuevo (ptoNode);
 
... ...
ptoNode ^. a := 10 ; ^ PtoNode;. Uno: = 10
ptoNode^. b := 'A' ; ^ PtoNode;. B: = 'A'
ptoNode^. c := nil ; ^ PtoNode;. C: = nil
... ...

This could also be done using the with statement, as follows Esto también podría hacerse con el con la declaración, según se indica

new ( ptoNode ) ; nuevo (ptoNode);
 
... ...
with ptoNode^ do con ^ ptoNode hacer
begin comenzar
  a := 10 ; a: = 10;
  b := 'A' ; b: = 'A';
  c := nil c: = nil
end ; final;
... ...