编写一程序，文件名为CALCZJ.PRG,要求计算每一项机器的月折旧额,并将结果存入DEPR.DBF文件中,计算要求如下:如果机器代码以1打头,则用工作量法计算

1  建立一个名为GDZC。DBF的表文件。其结构如下：字段    字段名    字段类型    字段宽度    小数位数1    机器代码      C            3    2    机器名称      C            20    3    原值          N            15          24    预计净残值    N            15          25    预计年限    N              6           16    总工作量    N             12           2输入记录如下：机器代码    机器名称    原值    预计净残值    预计年限    总工作量102    Ｉ号流水线    ２７６０００    ２７６００    ３０    １０００００105    ＩＩ号流水线    ９５４０００    ９４５００    ２５    １５００００203    车床    ２３５０００    ２３５００    ２０    ８００００211    冲床    １３８０００    ２００００    １５    ６００００２   编写一程序，文件名为CALCZJ.PRG,要求计算每一项机器的月折旧额,并将结果存入DEPR.DBF文件中,计算要求如下:如果机器代码以1打头,则用工作量法计算月折旧额,如果机器代码以2打头,则用平均年限法计算月折旧额。３　  编写一程序，文件名为APPEJQJ.PRG，要求能为GDZC.PRG文件和DEPR.DBF文件增加记录,用户能同时输入机器代码、机器名称、原值、预计净残值、预计年限、总工作量、月工作量等数据。若输入的固定资产代码已经存在，则显示该“该代码已经存在”的信息，且系统拒绝接受该记录。要求能连续增加记录，直到用户不想增加为止。