OI爱好者（OIFans.cn）

OI爱好者（OIFans.cn）
www.oifans.cn

　　在Turob Pascal程序中，动态变量不能由var直接定义而是通过调用标准过程new建立的。
      过程形式为：
　   　new(指针变量名);
　　如果有下列变量定义语句：
　　　var p:^integer;
　　仅仅说明了p是一个指向整型变量单元的指针变量，但这个整型单元并不存在，在指针变量p中还没有具体的地址值。在程序中必须通过过程调用语句：new(p);才在内存中分配了一个整型变量单元，并把这个单元的地址放在变量p中，一个指针变量只能存放一个地址。在同一时间内一个指针只能指向一个变量单元。当程序再次执行new(p)时，又在内存中新建立了一个整型变量单元，并把新单元的地址存放在p中，从而丢失了旧的变量单元的地址。
　　为了节省内存空间，对于一些已经不使用的现有动态变量，应该使用标准过程dispose予以释放。过程形式为：dispose(指针变量名)；为new(指针变量名)的逆过程，其作用是释放由指针变量所指向的动态变量的存储单元。例如在用了new(p)后在调用dispose(p)，则指针p所指向的动态变量被撤销，内存空间还给系统，这时 p的值为 nil。

  例：输入两个数，要求先打印大数后打印小数的方式输出，用动态变量做。 　
  program dongtai;
　　type intepter=^integer;
　　var p1,p2:intepter;
　　procedure swap(var,q1,q2:intepter);
　　　var p:integer;
　　begin
　　　p:=q1;q1:=q2;q2:=p;
　　end;
　begin
　　new(p1);new(p2);
　　writeln(‘input 2 data: ‘);readln(p1^,p2^);
　　if p1^
　　writeln(‘output 2 data: ‘,p1^:4,p2^:$);
　end.