26751:线性链表的建立及逆序输出 分数: 100

题目描述

输入一个正整数序列，遇负数时停止，建立一个线性链表存储读入的数据，将各个元素按逆序输出。

输入格式

输出

样例输入

1 2 3 4 5 -1

样例输出

5 4 3 2 1

program 26751;
type point=^node;
    node=record
       date:integer;
       next:point;
    end;
var head,p:point;i:integer;
begin
 head:=nil;
 read(i);
 while i<>-1 do
  begin
   new(p);
    p^.date:=i;
    p^.next:=head;
    head:=p;
    read(i);
   end;
  while p<>nil do
   begin
    write(p^.date,' ');
    p:=p^.next;