华工cobol实验

发布 2023-04-19 12:40:28 阅读 1939

一、 实验目的:

基本cobol语句的使用,包括open,close,read,write, move和stop run

二、 实验内容:

实验1: 用户从屏幕输入两个3位整数及运算符,编程实现加减乘除四则运算,并显示运算结果。

步骤一:先编写cobol源**(xxx需要自己填写):

identification division.

program-id. psample1

environment division

data division

working-storage section.

77 xxxx(定义用户输入的数据、运算符、运算结果数据,注意需要定义编辑型描述符数据项用于结果的显示)

procedure division

accept xxx(从键盘输入两个数和运算符)

if xxx (如果输入的运算符是“+”则执行加法运算)

else if xxx (如果输入的运算符是“-”则执行减法运算)

else if xxx (如果输入的运算符是“*”则执行乘法运算)

else if xxx (如果输入的运算符是“/”则执行除法运算。

else xxx (如果输入的运算符是其他情况,则显示出错信息)

end-if

stop run

步骤二:再编写jcl,看看与以前实验用到的jcl有什么区别:

步骤三:ispf主菜单下输入6进入tso命令,输入以下命令:

步骤四:找到执行模块运行:

实验2、 基本要求:读取信息文件,并按照一定的格式进行输出。

有3个学生的成绩记录放在文件此文件自己创建)中,每个记录中的数据包括:学生编号(6字节)、学生姓名(12字节)、成绩1(4字节) 、成绩2(4字节) 、成绩3(4字节),格式如下所示:

000001liwuqong 987698768909

000002zhoushichang989895879855

000003shixiaojie 998789999766

设计一个程序读入这些数据,计算三门成绩的平均成绩,并按照如下格式输出到文件需自己创建)中:

学生编号姓名成绩1 成绩2 成绩3 平均成绩 (此行不需打印)

000001 liwuqong 98.76 98.76 89.09 95.53

000002 zhoushichang 98.98 95.87 98.55 97.80

000003 shixiaojie 99.87 89.99 97.66 95.84

步骤一:编写源**:

identification division

program-id. psample1

environment division

input-output section

file-control

select xxx (语句关联内部文件和外部逻辑文件名)

data division

file section

fd inn. (输入和输出文件描述)

01 in-record

xxx (注意01层记录区的长度应该跟磁盘上实际文件的记录长度,也就是3.2创建时的record length一致)

working-storage section

77 xxx (中间变量。

procedure division

open xxx. (打开输入输出文件。

perform循环:读输入文件的一条记录,并对记录格式进行修改,然后输出到输出文件。

stop run.

步骤二:1.编译链接程序在中,注意这个编译程序与前几次实验的区别(多了两行把外部逻辑文件与盘卷中实际的外部文件相关联的语句)。

选做:也可以使用前几次实验的编译程序,但应使用tso命令(ispf菜单下选6)把外部逻辑文件与盘卷中实际的外部文件相关联:

alloc dd(filein) ds(

外部逻辑文件盘卷中实际的外部文件。

lab42注意事项:

1. 编辑型数据不能用于计算,仅用于做输出。

2. cobol源程序中的外部逻辑文件名必须在jcl语句或用tso命令和磁盘中实际存在的文件名联系起来。

3. read语句执行一次仅读一条记录到输入记录区,如要连续读文件中n条记录,必须用循环语句循环执行read语句n次。write语句类似。

4. 输入/输出文件的记录长度(即创建文件时的参数“record length”)必须和cobol源程序中对输入/输出文件记录区描述的长度一致。

华工数学实验 作业6 图像畸变校正

数学实验 报告。学院 电子与信息学院。专业班级 通信工程4班。学号 201130301443 姓名 李腾辉。实验名称 图像畸变校正。实验日期 2013.05.17 第六次实验。第一题。1 实验内容。任意选取一幅颜色畸变的图像,按照本实验的算法做出校正,对校正效果进行分析。2.实验过程。笔者先选用了一...

华工电路作业

1.图1 1所示电路中电压u为 2.图1 2所示电路中开关sw 在t 0时刻闭合,则电路时间常数。3.电路如图1 3所示,已知u 10v,i 2a且与同相,电源的角频率 10 rad s,则r c 4.图1 4所示电路中端口a b的复阻抗zab 5.图1 5所示互感电路,已知is t 2cos3t ...

华工2019概率练习

可能用到的分位点 一 10分 一部五本头的文集,按任意次序放到书架上去,试求下列概率 1 第一卷出现在旁边。2 第一卷及第五卷出现在旁边。3 第一卷或第五卷出现在旁边。4 第一卷及第五卷都不出现在旁边。5 第三卷正好在正中。解 1 二 12分 已知甲 乙两箱中装有同种产品,其中甲箱中装有3件合格品和...