C语言单链表实现基本功能

单链表起码写了五次，每次都以失败告终，皇天不负有心人，今儿终于写出来了，代码可编译可运行
接下来要完成链栈的工作了，加油
代码如下

//2020.3.25				by大彪不爱嚼米饭粒儿 
//——————————————————————————————————————————————————————————
//CreatTail(Linklist *L,int n)尾插法创建链表，n为非空数据域的数量
//Getelem(Linklist *L,int i,int *e)读取操作，读取i位置的数据
//Insert(Linklist *L,int i ,int e)向i位置插入数据e
//Delete(Linklist *L,int i,int *e)删除i位置的值，并将此位置的数据赋值给e
//Clear(Linklist *L)销毁表
//Print(Linklist L)遍历输出链表 
#include <stdio.h>
#include <stdlib.h>
typedef int Status;
typedef struct Node
{
   
	int date;
	struct Node *next;
}Node,*Linklist;
Status Init(Linklist *L) 
{
    
    *L=(Linklist)malloc(sizeof(Node)); 
    if(!(*L)) 
            return 0;
    (*L)->next=NULL;

    return 1;
}
void CreatTail(Linklist *L,int n)
{
   
	Linklist p,r;	
	int x;				
	int i;
	*L = (Linklist)malloc(sizeof(Node));				//L指单链表
	r = *L;						//r为指向L末尾的结点
	for(i=0;i<n;i++)
	{
   
		p = (Node*)malloc(sizeof(Node));
		sc