■ このスレッドは過去ログ倉庫に格納されています
コボラーのびっくりすること
- 1 :仕様書無しさん:2013/04/02(火) 22:46:53.57 .net
- nullという概念がない
- 56 :仕様書無しさん:2016/06/26(日) 20:21:35.43 .net
- コボラーがいいこと言うわけないだろw
- 57 :仕様書無しさん:2016/06/26(日) 21:20:40.25 .net
- >>56
おまえ読んでものを言えよw
- 58 :仕様書無しさん:2016/06/26(日) 21:54:40.80 .net
- なんだコボラーじゃないのか?まぎらわしいリンク貼るなよw
- 59 :仕様書無しさん:2016/06/27(月) 00:09:38.07 .net
- 内容も理解せずに批判だけする奴って頭の悪い人間の典型だよな
- 60 :仕様書無しさん:2016/06/27(月) 14:43:33.87 .net
- >>1
すごくいいことじゃないか
nullを発明した人もnullを作り出したには失敗だったと嘆いてるくらいだじ
- 61 :仕様書無しさん:2016/06/27(月) 17:27:40.55 .net
- >>59
古典的な釣りにひっかかるアホwww
- 62 :仕様書無しさん:2016/07/11(月) 12:35:20.86 .net
- 環境変数の取得方法(Cでいうgetenv)や
パラメータの取得方法(Cでいうargv)を
知らないコボラーの多いこと
- 63 :仕様書無しさん:2016/07/11(月) 16:16:37.40 .net
- 規格にないからな。
必要もないだろうし。
- 64 :仕様書無しさん:2016/07/11(月) 17:34:04.67 .net
- 知ってるとかなり便利だけどね
規格外ってことは拡張機能なのかな?
- 65 :仕様書無しさん:2016/07/11(月) 17:51:39.11 .net
- >>64
多分メーカーのOS毎に規格が全然違ってたと思う
- 66 :仕様書無しさん:2016/07/11(月) 19:46:36.94 .net
- >>65
なるほど
- 67 :仕様書無しさん:2016/08/12(金) 21:44:15.48 .net
- というかshやbatが書けない奴やそもそもそれがなんだか分からない奴が過半数いる
- 68 :仕様書無しさん:2016/08/25(木) 22:54:54.89 .net
- >>51
民進党はもう駄目だな。
共産党に合併吸収されてしまえ。
序に社民党もな。
- 69 :仕様書無しさん:2017/06/11(日) 15:54:18.69 .net
- 安倍晋三どもが犯罪行為を繰り返すからな
- 70 :仕様書無しさん:2017/06/11(日) 15:56:07.48 .net
- >>69
たとえば?
- 71 :仕様書無しさん:2017/12/29(金) 21:44:15.00 .net
- 誰でも簡単にパソコン1台で稼げる方法など
参考までに、
⇒ 『宮本のゴウリエセレレ』 というブログで見ることができるらしいです。
グーグル検索⇒『宮本のゴウリエセレレ』
3326UZ5CYY
- 72 :仕様書無しさん:2018/05/22(火) 13:28:39.41 .net
- とても簡単な自宅で稼げる方法
参考までに書いておきます
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』
MINJT
- 73 :仕様書無しさん:2018/08/09(木) 20:05:50.61 .net
- >>25
その通りです
あるよ
- 74 :仕様書無しさん:2018/12/12(水) 10:04:26.92 .net
- 新人プログラマーの先輩が、プログラムリストとにらめっこして悩んでた。
で、俺の所にやってきて「この1行が実行されてないんだ」
示す行の前を見ると、NOTE文、そしてピリオド無し・・・
「NOTEって何だ?」
説明したら、落ち込んで床に転がったw
- 75 :仕様書無しさん:2018/12/12(水) 20:02:08.14 .net
- 他言語は桁数の制限がないんだな。
- 76 :仕様書無しさん:2018/12/12(水) 20:11:41.80 .net
- そりゃ浮動小数点数は桁数無制限だわな
- 77 :仕様書無しさん:2018/12/12(水) 21:48:55.35 .net
- 変数定義するところで、USAGE句にPOINTERって書けば、
SET 項目名 TO NULLも出来るし、IF 項目名 = NULL等で判定も出来るぞ。
>>46
松井のCOBOL1級は、多分全商情報処理検定1級(プログラミング部門)の選択問題でCOBOLの問題を選んだって意味だと思う。
数年前まではVBとCOBOLのいずれか選択する方式だった。今ではVBはVBA、COBOLはJavaに置き換わっているがね。
あと余り計算の話だけど、引き算のループでやる人は見たこと無いが、MOD(或いはREM)を知らない人は確かに多い。
そのせいで、必要なのは割り算の余りだけで商は使わないにもかかわらず、商格納用の変数定義してDIVIDE文使う人が多い。
- 78 :仕様書無しさん:2018/12/14(金) 07:13:41.50 .net
- >>48
こんな風に書こうとしてたのかな?
IF A = 1
IF B = 1
COMPUTE C = 1
ELSE
COMPUTE C = 2
END-IF
ELSE
COMPUTE C = 3
END-IF.
- 79 :仕様書無しさん:2018/12/14(金) 20:44:16.23 .net
- むしろこう書いた方がいかにもコボラーっぽいかも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.
- 80 :仕様書無しさん:2018/12/15(土) 01:21:20.76 .net
- C = (A == 1) ? (B == 1 ? 1 : 2) : 3
- 81 :仕様書無しさん:2018/12/15(土) 10:29:32.51 .net
- 小学生の頃はお父さんがコンピュータの会社に勤めてて自慢に思っていた。
だけど高校生になってPCもろくに触れないスマホの使い方を子供に聞く、ITに全く無知なコボラーだったと気付いたとき自分が悲しくなった。
- 82 :仕様書無しさん:2018/12/15(土) 13:49:48.90 .net
- >>80
まあ三項演算子ある言語で三項演算子使うならそうなるわな。
なお、実際のIT系企業ではコーディング規約ニキが三項演算子の使用を阻止してくることも多い模様。
- 83 :仕様書無しさん:2018/12/16(日) 03:22:41.78 .net
- システムエグゼ
苦情申し立てダイレクト窓口
代表取締役社長 酒井 博文
h-sakai@system-exe.co.jp
専務取締役 大場 康次
yohba@system-exe.co.jp
専務取締役 後藤 清孝
kgotou@system-exe.co.jp
取締役 藤林 隆司
rfujiba@system-exe.co.jp
rfujiba2@system-exe.co.jp
取締役 荻野 弘昭
h-ogino@system-exe.co.jp
取締役 新船 幸広
arafune@system-exe.co.jp
arafune_PJ@system-exe.co.jp
監査役 白銀 亨
sirokane@system-exe.co.jp
- 84 :仕様書無しさん:2018/12/18(火) 23:40:34.59 .net
- 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.
- 85 :仕様書無しさん:2018/12/20(木) 10:34:50.30 .net
- COMPUTE C = 1
コボラーとしてはこの書き方にものすごい無駄を感じる。
なぜかというと、アセンブラではこれが
ZAP C,=P'0'
ZAP W1,=P'1’
AP C,
- 86 :なんか勝手に書き込みが動作してしまった・・・:2018/12/20(木) 10:39:18.42 .net
- ZAP C,=P'0'
ZAP W1,=P'1’
AP W2,W1
ZAP C,W2
とコーディングされるのだ。
MOVE 0 TO C ならば、
ZAP C,=P'0'
の1行だけとなる
- 87 :誤動作ついでに1行消えた:2018/12/20(木) 10:45:01.21 .net
- ZAP C,=P'0'
ZAP W1,=P'1’
ZAP W2,=P'0'
AP W2,W1
ZAP C,W2
だな、たぶん・・・
- 88 :仕様書無しさん:2018/12/20(木) 13:14:07.05 .net
- LOW-VALUE= null だけど、では
HIGH-VALUEに相当するのは何?
- 89 :仕様書無しさん:2018/12/20(木) 22:31:59.86 .net
- 例えばHPを30回復するとき、
IF CURRENT-HP + 30 <= MAX-HP
COMPUTE CURRENT-HP = CURRENT-HP + 30
ELSE
MOVE MAX-HP TO CURRENT-HP
END-IF.
よりも
IF CURRENT-HP + 30 <= MAX-HP
COMPUTE CURRENT-HP = CURRENT-HP + 30
ELSE
COMPUTE CURRENT-HP = MAX-HP
END-IF.
とCOMPUTEに統一して書きたい。
COMPUTE CURRENT-HP = FUNCTION MIN((CURRENT-HP + 30) MAX-HP).
と書くのが一番いいかも知れんが。
- 90 :仕様書無しさん:2018/12/21(金) 00:38:35.36 .net
- Rubyだったら
current_hp = (current_hp + 30).clamp(0, max_hp)
みたいなコードですか?
- 91 :仕様書無しさん:2018/12/23(日) 19:00:18.84 .net
- >>90
Ruby触ったことないから調べてみたけど、
同じことをminとmax使ってやろうとすると、
current_hp = [[0, (current_hp + 30)].max, max_hp].min
になるのかな? これだとかなり分かりにくくなるから、clampは便利だね。
HPを回復するときは下限の判定は要らないけど、
ダメージを受けたときと回復するときを共通のロジックにするなら、
Rubyのclampみたいな機能が無い場合はmaxとminの合わせ技にせざるを得ない。
- 92 :仕様書無しさん:2018/12/26(水) 21:23:54.23 .net
- >>88
データ型による
- 93 :仕様書無しさん:2019/04/29(月) 11:27:24.55 .net
- Pythonで、aをbで割った余りだけが必要で商は不要なときに、わざわざ
q, r = divmod(a, b)
と書くことは普通せず、
r = a % b
と書くのが普通だろう。
しかし、COBOLだとAをBで割った余りだけが必要で商は不要なときでも、
DIVIDE A BY B GIVING Q REMAINDER R.
と書くことが多く、
COMPUTE R = FUNCTION MOD(A B). 或いは MOVE FUNCTION MOD(A B) TO R.
と書くことはむしろ少ない。
- 94 :仕様書無しさん:2019/04/29(月) 16:58:16.05 .net
- そもそもの話、商が不要で余りだけが必要なケースはCOBOLのシステムでは無い
だが逆は普通にある
- 95 :仕様書無しさん:2019/04/29(月) 18:02:48.31 .net
- >>94
> 商が不要で余りだけが必要なケースはCOBOLのシステムでは無い
そうかな? そんなこと無いと思うけど。
- 96 :仕様書無しさん:2019/04/29(月) 21:22:07.61 .net
- うるう年判定とか偶数・奇数判定ってCOBOLじゃあんまりやらないのかな。
特に後者は1行当たり2件分表示する形式の帳票を作るときに、
奇数なら左側、偶数なら右側に編集するとかありがちだと思うけど。
IF (-1) ** N = 1
(偶数のときの処理)
ELSE
(奇数のときの処理)
END-IF.
でもいいけどね。
- 97 :仕様書無しさん:2019/04/30(火) 01:25:28.19 .net
- 帳票は書式でそういう設定をするのが普通だし
閏年の処理は自分で作るべきではない
- 98 :仕様書無しさん:2019/04/30(火) 09:25:05.96 .net
- COBOLのコーディングで四捨五入や丸め処理で価を認めるのは見かけるけど、余りだけ求めるのは見たことがないな
どういう想定で必要なんだろうか
- 99 :仕様書無しさん:2019/08/13(火) 19:50:18.57 .net
- >>8
がっ!
- 100 :仕様書無しさん:2019/08/13(火) 19:51:08.52 .net
- 六年越しでついに取ったよ
- 101 :仕様書無しさん:2019/08/13(火) 21:50:35.99 .net
- ヌルポ
- 102 :仕様書無しさん:2019/10/26(土) 16:12:26.09 .net
- うるう年判定は、テーブルかファイル参照してたかな?
- 103 :仕様書無しさん:2019/10/26(土) 16:48:01.79 .net
- EVALUATE TRUE
WHEN FUNCTION MOD(YEAR 4) = ZERO
AND FUNCTION MOD(YEAR 100) NOT = ZERO
WHEN FUNCTION MOD(YEAR 400) = ZERO
(閏年の場合の処理)
WHEN OTHER
(平年の場合の処理)
END-EVALUATE.
でよくない?
- 104 :仕様書無しさん:2019/10/26(土) 17:20:07.32 .net
- まぁ、それをサブルーチンにしても良いけどね
- 105 :仕様書無しさん:2019/10/27(日) 11:12:46.87 .net
- highvalue lowvalueがnull相当だろ?
総レス数 105
22 KB
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver 2014.07.20.01.SC 2014/07/20 D ★