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

最新推荐文章于 2021-06-22 00:34:30 发布

RyanQiJing

最新推荐文章于 2021-06-22 00:34:30 发布

阅读量861

点赞数

分类专栏：编程

本文链接：https://blog.csdn.net/jing1223639316/article/details/46826593

版权

根据输入的正整数序列（遇到负数时结束），创建线性链表，并依次输出链表中的所有元素。示例序列：1 2 3 4 5 -1，输出：1 2 3 4 5。

摘要由CSDN通过智能技术生成

题目描述

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

输入格式

输出

样例输入

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^.nex