26750:线性链表建立及正序输出 分数: 100
题目描述

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


输入格式


输出


样例输入

1 2 3 4 5 -1


样例输出

1 2 3 4 5

program plianbiao;
type pointer=^node;
     node=record
     date:longint;
     next:pointer;
     end;
     var head,p,q:pointer;
     x:longint;
     begin
     head:=nil;
     read(x);
     while x>0 do
     begin
     if head=nil then
     begin
     new(p);
     p^.date:=x;
     p^.next:=nil;
     head:=p;
     q:=p;
     end
     else
     begin
     new(p);
     p^.date:=x;
     p^.next:=nil;
     q^.next:=p;
     q:=p;
     end;
     read(x);
     end;
     p:=head;
     while p<>nil do
     begin
     write(p^.date,' ');
     p:=p^.next;
     end;
      writeln;
     end.

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826593
个人分类: 编程
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

26750:线性链表建立及正序输出 分数: 100

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭