cobol 翻译 DO 18 I=1,MK LWORK=I+N+1 A(I,LWORK)=1.0 XJNAME(LWORK)=ASTA XINAME(I)=ASTA 18 CONTINUE IF(K.EQ.0) GO TO 23 DO 19 I=1,K LWORK=I+M+N+1 XJNAME(LWORK)=PLUS XINAME(M+I)=PLUS A(M+I,I+1)=1.0 19 CONTINUE

这是COBOL语言的代码片段。它包含了两个循环，第一个循环从1到MK，将LWORK设置为I+N+1，将A(I,LWORK)设置为1.0，将XJNAME(LWORK)设置为ASTA，将XINAME(I)设置为ASTA，然后进入下一次循环。第二个循环从1到K，将LWORK设置为I+M+N+1，将XJNAME(LWORK)设置为PLUS，将XINAME(M+I)设置为PLUS，将A(M+I,I+1)设置为1.0，然后进入下一次循环。如果K等于0，则跳转到标签号为23的代码行。