建先进先出的链表（指针变量及线性…

问题： 读入一批整型数据，遇负数时停止，将读入的正数组成先进先出的链表并输出。

解题思路： 首先应定义指针类型，结点类型和指针变量，读入第一个值，建立头结点，读入第二个值，判断它是否大于零，若是，建立新结点。

程序：

type
　　point=^node;
　　node=record
　　　　　　data:real;
　　　　　　link:point;
　　　　　end;
　var
　　last,head,next:point;
　　x:real;
　begin
　　read(x);
　　new(head);
　　head^.data:=x;
　　last:=head;
　　read(x);
　　while x>0 do
　　　begin
　　　　new(next);
　　　　next^.data:=x;
　　　　last^.link:=next; 
　　　　last:=next;
　　　　read(x);
　　　end;
　　writeln;
　　last^.link:=nil;
　　next:=head;
　　while next<>nil do
　　　begin
　　　　write(next^.data:6:0);
　　　　next:=next^.link;
　　　end;
　end.