子例程艇炎、功能模塊

*一、宏

*data: sum type i.
*DEFINE cheng.

  • &1 = &2 * &3 * &4 * &5 * &9 * &8 * &7 * &6.
    *end-OF-DEFINITION.

*cheng sum 5 2 5 6 5 6 4.
*WRITE:sum.

*二蛔添、包含程序

*include ztext101.
*WRITE:/ MAX.

*三章蚣、子例程
*1、 用戶在選擇屏幕上輸入兩個整數(shù)蜻懦,通過調(diào)用一個子程序求這兩個整數(shù)之間所有被3整除的數(shù)的總和甜癞。

*PARAMETERS : M1 TYPE I,

  •         M2 TYPE I.
    

*DATA: COUNT TYPE I.
*PERFORM Z_SUM USING M1 M2 CHANGING COUNT.
*WRITE:/ COUNT.

*FORM Z_SUM USING M1 TYPE I

  •           M2 TYPE I
    
  •      CHANGING S TYPE I.
    

*DATA:T TYPE I.
*T = M1.
*WHILE T < M2.

  • T = T + 1.
  • IF T MOD 3 = 0.
  • S = S + T.
  • ENDIF.

*ENDWHILE.
*ENDFORM.

*2、 定義一個zty_score結(jié)構(gòu)體類型,包含學(xué)號no宛乃、姓名name悠咱、成績score.定義一個內(nèi)表蒸辆,做子例程程序,求出平均成績析既。
*TYPES: BEGIN OF zty_score,

  • NO(20) TYPE C,
  • NAME(20) TYPE C,
  • SCORE TYPE I,
  • END OF zty_score.
  • DATA: GT_SCORE TYPE TABLE OF zty_score,
  •   WA_SCORE TYPE zty_score,
    
  •   SUM TYPE I,
    
  •   CISHU TYPE I,
    
  •   AVG TYPE I.
    
  • WA_SCORE-NO = 1754574555.
  • WA_SCORE-name = '誰會'.
  • WA_SCORE-SCORE = 70.
  • APPEND WA_SCORE TO GT_SCORE.
  • WA_SCORE-NO = 1754574555.
  • WA_SCORE-name = '誰會'.
  • WA_SCORE-SCORE = 80.
  • APPEND WA_SCORE TO GT_SCORE.
  • WA_SCORE-NO = 1754574555.
  • WA_SCORE-name = '誰會'.
  • WA_SCORE-SCORE = 72.
  • APPEND WA_SCORE TO GT_SCORE.

*LOOP AT GT_SCORE INTO WA_SCORE.

  • SUM = SUM + WA_SCORE-SCORE.
  • CISHU = CISHU + 1.
    *ENDLOOP.

*PERFORM H_AVG USING SUM CISHU CHANGING AVG.
*WRITE:/ avg.

  • FORM H_AVG USING X TYPE I
  •                Y TYPE I
    
  •      CHANGING AVG TYPE I.
    
  • AVG = X / Y.
  • ENDFORM.
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末躬贡,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子眼坏,更是在濱河造成了極大的恐慌拂玻,老刑警劉巖,帶你破解...
    沈念sama閱讀 216,544評論 6 501
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件空骚,死亡現(xiàn)場離奇詭異,居然都是意外死亡擂仍,警方通過查閱死者的電腦和手機(jī)囤屹,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,430評論 3 392
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來逢渔,“玉大人肋坚,你說我怎么就攤上這事∷嗬” “怎么了智厌?”我有些...
    開封第一講書人閱讀 162,764評論 0 353
  • 文/不壞的土叔 我叫張陵,是天一觀的道長盲赊。 經(jīng)常有香客問我铣鹏,道長,這世上最難降的妖魔是什么哀蘑? 我笑而不...
    開封第一講書人閱讀 58,193評論 1 292
  • 正文 為了忘掉前任诚卸,我火速辦了婚禮,結(jié)果婚禮上绘迁,老公的妹妹穿的比我還像新娘合溺。我一直安慰自己,他們只是感情好缀台,可當(dāng)我...
    茶點故事閱讀 67,216評論 6 388
  • 文/花漫 我一把揭開白布棠赛。 她就那樣靜靜地躺著,像睡著了一般膛腐。 火紅的嫁衣襯著肌膚如雪睛约。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,182評論 1 299
  • 那天哲身,我揣著相機(jī)與錄音痰腮,去河邊找鬼。 笑死律罢,一個胖子當(dāng)著我的面吹牛膀值,可吹牛的內(nèi)容都是我干的棍丐。 我是一名探鬼主播,決...
    沈念sama閱讀 40,063評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼沧踏,長吁一口氣:“原來是場噩夢啊……” “哼歌逢!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起翘狱,我...
    開封第一講書人閱讀 38,917評論 0 274
  • 序言:老撾萬榮一對情侶失蹤秘案,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后潦匈,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體阱高,經(jīng)...
    沈念sama閱讀 45,329評論 1 310
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,543評論 2 332
  • 正文 我和宋清朗相戀三年茬缩,在試婚紗的時候發(fā)現(xiàn)自己被綠了赤惊。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 39,722評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡凰锡,死狀恐怖未舟,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情掂为,我是刑警寧澤裕膀,帶...
    沈念sama閱讀 35,425評論 5 343
  • 正文 年R本政府宣布,位于F島的核電站勇哗,受9級特大地震影響昼扛,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜欲诺,卻給世界環(huán)境...
    茶點故事閱讀 41,019評論 3 326
  • 文/蒙蒙 一野揪、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧瞧栗,春花似錦斯稳、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,671評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至殴边,卻和暖如春憎茂,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背锤岸。 一陣腳步聲響...
    開封第一講書人閱讀 32,825評論 1 269
  • 我被黑心中介騙來泰國打工竖幔, 沒想到剛下飛機(jī)就差點兒被人妖公主榨干…… 1. 我叫王不留,地道東北人是偷。 一個月前我還...
    沈念sama閱讀 47,729評論 2 368
  • 正文 我出身青樓拳氢,卻偏偏與公主長得像募逞,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子馋评,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 44,614評論 2 353

推薦閱讀更多精彩內(nèi)容