关闭

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

114人阅读 评论(0) 收藏 举报
分类:
题目描述

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


输入格式


输出


样例输入

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;
   end;
  writeln;
  readln;
end.


program 26751;
type point=^node;
   node=record
    date:integer;
    next:point;
   end;
 var  p,q,head:point;x:integer;
 procedure shuchu(a:point);
 begin
  if(a^.next<>nil)then shuchu(a^.next);
   write(a^.date,' ');
 end;
begin
 head:=nil;
 read(x);
 while x>=0 do
  begin
   if head=nil then
   begin
    new(p);p^.date:=x;q:=p;head:=p;
   end
  else
   begin
    new(p);p^.date:=x;p^.next:=nil;q^.next:=p;q:=p;
   end;
   read(x);
  end;
  p:=head;
  shuchu(p);
 writeln;
end.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:16063次
    • 积分:116
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档