Programming Language 1 (PL/1) スレ
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNGなんつーても「Proglamming Language1」っつー位だから。
関数型、ポインタ、インラインアセンブラ等、マニアを満足
させる言語仕様で、古典言語とはいえ現役時代は結構好きな
言語だった。現在もこの言語は何処かで使われているのだろ
うか？ １は、現役は慣れて久しいので、正直ネタがあまり
ない。あと、よろしく！（えへ。
0002デフォルトの名無しさん
NGNG00031
NGNG0004デフォルトの名無しさん
NGNG0005デフォルトの名無しさん
NGNG扱える数値が -128～127 という。。。
00061
NGNGん？ -128～127と言う事は真性8bitな言語だね。ネタ言語（藁 じゃ
ないよね。
0007デフォルトの名無しさん
NGNG>>1が、それを間違えてはｲｶｰﾝなあ。
0008デフォルトの名無しさん
NGNG0009デフォルトの名無しさん
NGNGローマ数字の1だったよね。
アイと読んでIBM、壱と読んでNo.1見たいな漢字、、、
0010デフォルトの名無しさん
NGNGいや、漢字でなくて感じ。
0011デフォルトの名無しさん
NGNG関連スレ
消えていった言語を懐かしむスレ
http://pc.2ch.net/test/read.cgi/tech/1003649594/192-
00121
NGNGうっ、、やってもた。呼称"ﾋﾟｰｴﾙﾜﾝ"をそのまま表記してもた。
こーゆー間違いは必要以上にﾊｽﾞｶｼｲ。スレ検索にも引っ掛からねーし。
それでは、逝って参ります。
0013デフォルトの名無しさん
NGNG昔まことしやかに語られていたウワサ。
0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNGFORTRANとは結構違う。
Pascalには近いかな。
0016デフォルトの名無しさん
NGNGもう大昔の話になっちゃったね
00171
NGNG金融のアプリを書いてたんだけど、変数名にガチガチ
の命名規約があって面倒だったー。
DCL 1 HOGE-ZDK-TBL BASED(PTR-HOGE-ZDK-TBL), /* ほげ残高テーブル */
2 HOGE-ZDK-KBN PIC'9',
2 HOGE-ZDK-PCD PIC'99',
2 HOGE-ZDK-RRT PIC'99',
2 HOGE-ZDK-SSU-HZK,
3 HOGE-ZDK-SSU-YYY,
3 HOGE-ZDK-SSU-MMM,
3 HOGE-ZDK-SSU-DDD,
・・・
0018デフォルトの名無しさん
NGNGTEST:PROC OPTIONS (MAIN);
DCL B CHAR(10)INIT('0123456789');
DCL R PTR;
DCL P PTR;
DCL Q PTR BASED (P);
DCL 01 C BASED (Q),
03 C1 CHAR (03),
03 C2 ( ? );
DCL ADDR BUILTIN;
R=ADDR (B);
( ? );
PUT EDIT ( ? )
(A);
END TEST;
このプログラムを実行した時の印刷結果が３４５６７８９
になるように ？ の部分をコーディングして完成させてみて。
だれかできますか？
0019デフォルトの名無しさん
NGNG誰もできません。
終了
0020デフォルトの名無しさん
NGNG0021デフォルトの名無しさん
NGNGしかし誰も読めないに1ｱｽﾀﾘｽｸ（ ´Д⊂ヽ
0022デフォルトの名無しさん
NGNG0023デフォルトの名無しさん
NGNG0024３２３
NGNG0025デフォルトの名無しさん
NGNG0026デフォルトの名無しさん
NGNGTEST:PROC OPTIONS (MAIN);
DCL B CHAR(10)INIT('0123456789');
DCL R PTR;
DCL P PTR;
DCL Q PTR BASED (P);
DCL 01 C BASED (Q),
03 C1 CHAR (03),
03 C2 CHAR (07);
DCL ADDR BUILTIN;
R=ADDR (B);
DCL P BASED (R);
PUT EDIT ( C2 )
(A);
END TEST;
どうよ？
■ このスレッドは過去ログ倉庫に格納されています