十种春运不可思议的买票方法

rabbitbug

于 2007-12-29 17:31:00 发布

阅读量766

点赞数

幽默笑话专栏收录该内容

44 篇文章

订阅专栏

本文介绍了一个使用ABAP编写的程序，该程序用于从80个数字中随机抽取10个数字作为博彩抽奖号码。程序通过循环和条件判断实现了数字的随机选择，并确保了每次抽奖的公平性和随机性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

公司元旦庆祝搞博彩活动，要求从80个数中任意抽出10个数博彩，写了个ABAP写程序来实现这个功能，但愿能中奖，呵呵：

REPORT ZLV2 LINE-SIZE 500.
PARAMETERS: P_I1 TYPE I,
            P_I2 TYPE I.
DATA: LV_TIMES TYPE I,
      LV_NUM   TYPE I.
DATA: BEGIN OF IT_NUM OCCURS 0,
        NUM TYPE I,
      END OF IT_NUM..
DO.
IF P_I1 > 80.
    DO.
      P_I1 = P_I1 - 80.
      IF P_I1 < 80.
        EXIT.
      ENDIF.
    ENDDO.
ENDIF.
IF P_I1 <= 80.
    READ TABLE IT_NUM WITH KEY NUM = P_I1 TRANSPORTING NO FIELDS.
    IF SY-SUBRC <> 0.
      LV_NUM = LV_NUM + 1.
      IT_NUM-NUM = P_I1.
      APPEND IT_NUM.
      WRITE P_I1.
    ENDIF.
ENDIF.
IF LV_NUM = 10.
    CLEAR IT_NUM[].
    LV_TIMES = LV_TIMES + 1.
    NEW-LINE.
    CLEAR LV_NUM.
ENDIF.
P_I1 = P_I1 + P_I2.
P_I2 = P_I2 + 1.
IF LV_TIMES > 6.
    EXIT.
ENDIF.
ENDDO.