015计算运费

题目运费在50以下每吨10元50-100,9元100-150,8元150-200,7元200-250,6元。计算运费。使用的技巧是计算有几个50吨使用这个I加上1用goto进行多路跳转。IDENTIFICATION DIVISION. *PROGRAM-ID. EXAM2. *ENVIRONMENT DIVISION. *DATA DIVISION. *WORKING-STORAGE SECTION. *工作存储节77 M PICTURE 9999.77 I PIC 9.77 AMOUNT PIC 99999.PROCEDURE DIVISION.ACCEPT M.DIVIDE 50 INTO M GIVING I.ADD 1 TO I.GO TO A,B,C,D,E DEPENDING I.A. COMPUTE AMOUNT10*M.GO TO F.B. COMPUTE AMOUNT9*M.GO TO F.C. COMPUTE AMOUNT8*M.GO TO F.D. COMPUTE AMOUNT7*M.GO TO F.E. COMPUTE AMOUNT6*M.F. DISPLAY M,AMOUNT.STOP RUN.