COBOL程序示例：链表排序与数据输入

5星 · 超过95%的资源需积分: 50 120 浏览量更新于2024-11-13 收藏 12KB TXT 举报

本篇文章主要介绍了COBOL编程语言的一个实际应用示例，涉及链表操作、方程计算和查询功能。标题"Cobol程序实例运用"表明本文将围绕COBOL编程语言进行深入解析，并通过具体的程序片段来展示其在处理数据结构和算法上的应用。在程序开始部分（IDENTIFICATION DIVISION），作者定义了一个名为EEX1的程序标识符（PROGRAM-ID），并设置了环境配置（ENVIRONMENT DIVISION）和数据定义（DATADIVISION）。工作存储区（WORKING-STORAGESECTION）中，定义了一个名为LINKED-LIST的数据结构，其中包含节点（NODE OCCURS 10）以及多个字段，如INFO PIC 99表示数值信息，NEXT PIC 99用于存储下一个节点地址，HEAD字段用于标记链表头部。在PROCEDURE DIVISION中，程序流程首先展示了如何初始化和操作链表。例如，S0段通过循环（PERFORM INI）为每个节点分配地址，并设置初始状态。B-S和A-S段分别用于在排序前和排序后显示链表内容，通过移动节点值和指针实现链表的前后状态展示。 INS段则是一个交互式部分，提示用户输入数据（INFO）并将其添加到链表中，同时保持链表的有序性。这里通过条件判断（IF P=HEAD）处理头结点的特殊性，确保链表的正确插入。P1循环确保新数据被正确插入到适当的位置。整个程序的核心是链表操作和数据处理，展示了COBOL如何通过其结构化和灵活的语法进行高效的列表管理和数据交换。通过这个实例，读者可以了解COBOL在处理数据结构时的逻辑设计和实现方法，对于学习和理解COBOL语言具有实用价值。此外，文章可能还会涉及到其他方面的COBOL编程技巧，如异常处理、文件I/O操作或数据库连接，但根据提供的部分内容，这部分没有明确展现。然而，通过这个具体示例，读者能够掌握基本的COBOL编程概念，如变量声明、循环控制和数据结构管理。

1.传说中的链表1

IDENTIFICATION DIVISION.
PROGRAM-ID. EEX1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 LINKED-LIST.
02 NODE OCCURS 10.
03 INFO PIC 99.
03 NEXTS PIC 99.
02 HEAD PIC 99 VALUE 0.
02 P PIC 99.
02 Q PIC 99.
02 AVAIL PIC 99 VALUE 1.
02 W PIC 99.
01 DISP-REC.
02 DD OCCURS 10 PIC BB9(2).
PROCEDURE DIVISION.
S0. DISPLAY " ".
MOVE 1 TO AVAIL.
PERFORM INI VARYING Q FROM 1 BY 1 UNTIL Q = 10.
MOVE 0 TO NEXTS(Q).
PERFORM INS UNTIL AVAIL = 0.
DISPLAY "THE FOLLOWING LISTING IS BEFORE SORTING:".
PERFORM B-S VARYING P FROM 1 BY 1 UNTIL P > 10.
DISPLAY DISP-REC.
DISPLAY "THE FOLLOWING LISTING IS AFTER SORTING:".
MOVE HEAD TO P.

剩余11页未读，继续阅读

kyo21st

粉丝: 3
资源: 8

COBOL程序示例：链表排序与数据输入

cobol示例程序包

cobol:cobol 程序示例

cobol程序实例

cobol的实例程序

IBM OS390 COBOL程序建立编译运行实例

cobol实例教程

cobol 实例 经典

COBOL 程序全例子.txt

常用 cobol 程序操作数据库与顺序文件等

COBOL语言程序设计

最新资源

cobol 实例经典