北京邮电大学出版社FORTRAN程序设计.pptVIP

10.4.2 链表的基本操作 链表的基本操作包括建表、插入、删除、查找、更新、遍历等，这里介绍建表、遍历、插入、删除等操作，其余操作将在下一节综合实例里介绍。 1. 链表的建立 例10.6 建立一个链表，并输出建表后的结果。 为了便于理解，假设链表结点仅包含一个数据项和一个指针项。 程序如下： TYPE NODE INTEGER VALUE TYPE (NODE), POINTER :: NEXT END TYPE NODE ！链表的建立，规定以0作为链表建立结束标志。 TYPE (NODE), POINTER :: CURRENT, L INTEGER NUM READ*,NUM NULLIFY( L ) ALLOCATE( CURRENT ) CURRENT % VALUE = NUM L = CURRENT DO WHILE (NUM /= 0) READ*, NUM IF (NUM /= 0) THEN ALLOCATE( CURRENT ) CURRENT % VALUE = NUM CURRENT % NEXT = L L = CURRENT END IF END DO ? ！链表的输出过程。 CURRENT = L PRINT*, CURRENT % VALUE CURRENT = CURRENT % NEXT DO WHILE (AS