Question

COBOL循环

入力① Task Name Time
PIC X(10) PIC X(15) PIC 9(02)
入力② Name Date Time …… Date Time (Occurs 10 times)
PIC X(15) PIC X(08) PIC 9(02) PIC X(08) PIC 9(02)
出力 Task "," StartDate "," EndDate
PIC X(10) PIC X(1) PIC X(10) PIC X(10)
　　　　　　　　 (yyyy/mm/dd) (yyyy/mm/dd)
入力1的内容是任务的名字，对应担当者的名字，和这个任务需要花的时间．
入力2的内容是每个担当者的某一段时间每天的工作的小时数（工作时间不确定）
出力，要求算出每一项任务的开始时间和结束时间．
任务时间不满当天工作时间时，进行下一项任务。
任务时间超出当天工作时间时，剩余任务时间安排至下一天。
一共有三个担当者，每人有五个任务（任务时间不确定）。

这个COBOL怎么写呀？

Answer 1

首先问一下，入力2为什么10次？难道是说入力2里只有10天的记录？
如果是那样的话，是不是任务只能排到第十天？

根据3个担当者，每人5个任务来算
假定入力1和入力2都是按照name排序（这个很重要）

1.读入入力1
2.读入入力2
3.判断入力1的name是否等于入力2的name（如果存在有不等的情况的话，1>2，读2，2>1读1）
4.相等的话，退避入力2的date，判断入力1的time是否大于入力2的time
5.大于的话，把入力1的time-入力2的time所得结果存起来，读入力2
5.1.判断存起来的结果是否大于入力2的time，大于的话重复5
6.小于的话，把入力2的time-入力1的time所得结果存起来，
出力，startDate就是你退避的，endDate就是当前读到的
读入力1，重复2-6

写的比较简短，不知你能否看明白。。

Answer 2

日语的啊？还入力、出力、担当者……

追问

对呀，日语的！

追答

就不给日本人干活