IF A = 1 IF B = 1 C = 1 ELSE C = 2 END-IF. MOVE 3 TO C. 0050仕様書無しさん2014/07/22(火) 23:18:02.11 実行出来ると聞いてコボラー、びっくり! 0051仕様書無しさん2015/09/29(火) 18:47:37.41>>45 級なんてあるのね 松井玲奈は元SKE48だね 0052仕様書無しさん2016/06/24(金) 07:37:13.44 民進党はもっと真面目にやれよ 山尾が議員のままだから参院も惨敗じゃん カネに汚い議員をクビに出来ない岡田は無能 0053仕様書無しさん2016/06/25(土) 07:44:25.15>>1が無能無知だったということかな? 0054仕様書無しさん2016/06/26(日) 14:46:36.97 コボラーの?
IF A = 1 IF B = 1 COMPUTE C = 1 ELSE COMPUTE C = 2 END-IF ELSE COMPUTE C = 3 END-IF. 0080仕様書無しさん2018/12/14(金) 20:44:16.23 むしろこう書いた方がいかにもコボラーっぽいかもw
EVALUATE A ALSO B WHEN 1 ALSO 1 COMPUTE C = 1 WHEN 1 ALSO ANY COMPUTE C = 2 WHEN OTHER COMPUTE C = 3 END-EVALUATE. 0081仕様書無しさん2018/12/15(土) 01:21:20.76 C = (A == 1) ? (B == 1 ? 1 : 2) : 3 0082仕様書無しさん2018/12/15(土) 10:29:32.51 小学生の頃はお父さんがコンピュータの会社に勤めてて自慢に思っていた。 だけど高校生になってPCもろくに触れないスマホの使い方を子供に聞く、ITに全く無知なコボラーだったと気付いたとき自分が悲しくなった。 0083仕様書無しさん2018/12/15(土) 13:49:48.90>>81 まあ三項演算子ある言語で三項演算子使うならそうなるわな。 なお、実際のIT系企業ではコーディング規約ニキが三項演算子の使用を阻止してくることも多い模様。 0084仕様書無しさん2018/12/16(日) 03:22:41.78 システムエグゼ 苦情申し立てダイレクト窓口
監査役 白銀 亨 sirokane@system-exe.co.jp 0085仕様書無しさん2018/12/18(火) 23:40:34.59 IDENTIFICATION DIVISION. PROGRAM-ID. ISLEAP. DATA DIVISION. LINKAGE SECTION. 01 YEAR PIC 9(4). 01 LEAP-FLG PIC X(1). PROCEDURE DIVISION USING YEAR LEAP-FLG. IF YEAR IS NUMERIC EVALUATE ZERO WHEN FUNCTION MOD(YEAR 400) MOVE '1' TO LEAP-FLG WHEN FUNCTION MOD(YEAR 100) MOVE ZERO TO LEAP-FLG WHEN FUNCTION MOD(YEAR 004) MOVE '1' TO LEAP-FLG WHEN OTER MOVE ZERO TO LEAP-FLG END-EVALUATE ELSE MOVE '9' TO LEAP-FLG END-IF. EXIT PROGRAM. 0086仕様書無しさん2018/12/20(木) 10:34:50.30 COMPUTE C = 1
コボラーとしてはこの書き方にものすごい無駄を感じる。 なぜかというと、アセンブラではこれが
ZAP C,=P'0' ZAP W1,=P'1’ AP C, 0087なんか勝手に書き込みが動作してしまった・・・2018/12/20(木) 10:39:18.42 ZAP C,=P'0' ZAP W1,=P'1’ AP W2,W1 ZAP C,W2