PL/I 语言 数值输出格式的设置

PL/I阿木 发布于 4 天前 4 次阅读

阿木博主一句话概括：深入解析PL/I语言中的数值输出格式设置

阿木博主为你简单介绍：
PL/I（Programming Language One）是一种高级程序设计语言，它结合了多种编程语言的特性，广泛应用于大型系统、数据库和科学计算等领域。在PL/I编程中，正确设置数值输出格式对于确保数据准确性和可读性至关重要。本文将深入探讨PL/I语言中数值输出格式的设置方法，包括格式说明符、宽度、精度和符号等，并通过实际代码示例进行详细解析。

一、
在PL/I编程中，数值输出格式设置是数据处理和显示的重要环节。正确的格式设置不仅能够提高程序的健壮性，还能使输出结果更加清晰易懂。本文将围绕PL/I语言中的数值输出格式设置展开讨论，旨在帮助读者掌握这一关键技能。

二、格式说明符
格式说明符是PL/I语言中用于指定数值输出格式的关键字。以下是一些常见的格式说明符及其作用：

1. X：表示以十六进制形式输出。
2. Z：表示以压缩形式输出，即去掉前导零。
3. F：表示以浮点数形式输出。
4. E：表示以指数形式输出。
5. D：表示以十进制形式输出。

三、宽度设置
宽度设置用于指定输出字段的总宽度。在PL/I中，宽度设置可以通过以下方式实现：

1. 使用格式说明符“-”后跟数字，如“-10”表示输出宽度为10。
2. 使用格式说明符“.”后跟数字，如“.10”表示输出宽度为10。

四、精度设置
精度设置用于指定浮点数输出的有效数字位数。在PL/I中，精度设置可以通过以下方式实现：

1. 使用格式说明符“-”后跟数字，如“-5”表示精度为5。
2. 使用格式说明符“.”后跟数字，如“.5”表示精度为5。

五、符号设置
在PL/I中，符号设置用于指定数值的正负号。以下是一些常见的符号设置方法：

1. 使用格式说明符“+”或“-”指定正负号。
2. 使用格式说明符“ ”（空格）指定正数前的空格。

六、代码示例
以下是一些PL/I语言中数值输出格式设置的代码示例：

```pl/i
DCL (A, B, C) FIXED DECIMAL (5, 2);
A = 12345.67;
B = -12345.67;
C = 0.00;

PUT A(5.2);
PUT B(-5.2);
PUT C(.2);
PUT C(5);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT C(5.2);
PUT