DATA: l_a TYPE n,
l_b TYPE n,
l_sum TYPE char2,
l_result TYPE string.
DO:9 TIMES.
l_a = l_a + 1.
CLEAR l_b.
DO: l_a TIMES.
l_b = l_b + 1.
l_sum = l_a * l_b.
"CONCATENATE l_a '*' l_b '=' l_sum INTO l_result.
l_result = |{ l_a }*{ l_b }={ l_sum }|.
WRITE:|{ l_a }*{ l_b }={ l_sum }|."l_result.
ENDDO.
SKIP.
ENDDO.
DATA: k TYPE i,
l TYPE i.
k = 0.
l = 0.
WHILE: k <= 9.
l_a = l_a + 1.
CLEAR l.
CLEAR l_b.
WHILE l < l_a.
l_b = l_b + 1.
l_sum = l_a * l_b.
CONCATENATE l_a '*' l_b '=' l_sum INTO l_result.
WRITE: l_result.
l = l + 1.
ENDWHILE.
SKIP.
k = k + 1.
ENDWHILE.
clear k.
WHILE: k <= 9.
l_a = l_a + 1.
CLEAR l_b.
DO:l_a TIMES.
l_b = l_b + 1.
l_sum = l_a * l_b.
CONCATENATE l_a '*' l_b '=' l_sum INTO l_result.
WRITE: l_result.
ENDDO.
SKIP.
k = k + 1.
ENDWHILE.
1418
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
