推 buganini:科博文! 10/14 01:48
→ MOONRAKER:現在還能看到【摳寶】 真是太令人感動了 10/15 14:25
COBOL 詳細的語法似乎有點忘了 XD
IDENTIFICATION DIVISION.
PROGRAM-ID. ABC.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 KG PIC 9(3).
01 POUND PIC 9(3).
PROCEDURE DIVISION.
PROGRAM-BEGIN.
PERFORM MAIN.
PROGRAM-DONE.
STOP RUN.
MAIN.
DISPLAY "輸入體重".
ACCEPT KG.
POUND = KG * 0.454.
DISPLAY "體重公斤數為 " KG.
DISPLAY "體重磅數為 " POUND.
※ 引述《yoco315 (眠月)》之銘言：
: 怒了 = =""""""""
: Whitespace http://compsoc.dur.ac.uk/whitespace/
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.38.182.62