トップページ⇒tech
38コメント8KB

Programming Language 1 (PL/1) スレ

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
無いから建ててみた。
なんつーても「Proglamming Language1」っつー位だから。
関数型、ポインタ、インラインアセンブラ等、マニアを満足
させる言語仕様で、古典言語とはいえ現役時代は結構好きな
言語だった。現在もこの言語は何処かで使われているのだろ
うか？　１は、現役は慣れて久しいので、正直ネタがあまり
ない。あと、よろしく！（えへ。
0002デフォルトの名無しさんNGNG
2ｹﾞﾄｽﾞｻ
00031NGNG
いいぞ！その調子だ。3 or 4
0004デフォルトの名無しさんNGNG
終良？
0005デフォルトの名無しさんNGNG
Tiny Language 1 (TL/1) なら使ったことあります。
扱える数値が -128～127 という。。。
00061NGNG
>>5
ん？　-128～127と言う事は真性8bitな言語だね。ネタ言語（藁　じゃ
ないよね。
0007デフォルトの名無しさんNGNG
「1」じゃなくて「I」だぞ。
>>1が、それを間違えてはｲｶｰﾝなあ。
0008デフォルトの名無しさんNGNG
PL/Mってのなら見た事あるんだが...
0009デフォルトの名無しさんNGNG
>>7
ローマ数字の1だったよね。
アイと読んでIBM、壱と読んでNo.1見たいな漢字、、、
0010デフォルトの名無しさんNGNG
>>9
いや、漢字でなくて感じ。
0011デフォルトの名無しさんNGNG
予想どおり盛り上がらないな 藁

関連スレ
消えていった言語を懐かしむスレ
http://pc.2ch.net/test/read.cgi/tech/1003649594/192-
00121NGNG
>>7
うっ、、やってもた。呼称"ﾋﾟｰｴﾙﾜﾝ"をそのまま表記してもた。
こーゆー間違いは必要以上にﾊｽﾞｶｼｲ。スレ検索にも引っ掛からねーし。

それでは、逝って参ります。
0013デフォルトの名無しさんNGNG
ＩＢＭはPL/99まで商標登録してるらしい、PL/1 がすでに取得されていたからPL/I にした、というのが動機。
昔まことしやかに語られていたウワサ。
0014デフォルトの名無しさんNGNG
コメントに/* */が使えるFORTRANだっけ?
0015デフォルトの名無しさんNGNG
>>14
FORTRANとは結構違う。
Pascalには近いかな。
0016デフォルトの名無しさんNGNG
大学でプログラミングの単位を取ったときの言語がPL/Ⅰだったな～
もう大昔の話になっちゃったね
00171NGNG
コメントは仰る通りの/* ～ */だったよ・・たしか。
金融のアプリを書いてたんだけど、変数名にガチガチ
の命名規約があって面倒だったー。

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デフォルトの名無しさんNGNG
あげるよん。

TEST: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
>>18
誰もできません。
終了
0020デフォルトの名無しさんNGNG
あきらめるな
0021デフォルトの名無しさんNGNG
ピーエルワン北（ﾟ∀ﾟ）━━━ｧ!!!
しかし誰も読めないに1ｱｽﾀﾘｽｸ（ ´Д⊂ヽ
0022デフォルトの名無しさんNGNG
あきらめるな・・・
0023デフォルトの名無しさん NGNG
そうだ、あきらめてはだめだ…
0024３２３NGNG
あきらめるな・・・・・・・・・・
0025デフォルトの名無しさんNGNG
だめだ…あきらめよう…
0026デフォルトの名無しさんNGNG
>>18
TEST: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;

どうよ？
002718NGNG
>>26
う～ん、微妙だな～。
考え方としては合ってると思う。
問題はDCL P BASED (R); の部分。
Ｐをポインター属性で一回定義してて
またＰを再定義してるのはいいのかな・・？
漏れはここらへんについては少しあいまいです。
正しくはそこの部分をP=ADDR (R); にするのが正解でしょう。
Ｒのアドレスをポインター属性のＰに割り当てて
変数Ｃで参照する。ということです。
ほかの？の部分は正解ですな。
ただ、この回答でも正しいのかもしれません。
だれか正しい解答求む。


0028デフォルトの名無しさんNGNG
懐かしすぎて完全に忘れてるぞｺﾞﾙｧ
0029デフォルトの名無しさんNGNG
あきらめるなｺﾞﾙｧ
003018NGNG
誰か解かりませぬか？？？
003118NGNG
漏れので正しいのでしょうか？
誰か返答を･･・
PL/Iって解かる人少ないのかな？
003218NGNG
うぉ～～～～～い！
0033わかりません。NGNG
えへへ
0034デフォルトの名無しさんNGNG
age
0035デフォルトの名無しさんNGNG
あげ
0036デフォルトの名無しさんNGNG
つーかいいかげん誰か答えて
0037デフォルトの名無しさんNGNG
>>6
ネタじゃないよ。ASCII かなんかに載ってたはず。Pascal/Algol 系のコンパイ
ラ言語だよ。扱える変数は基本的に 8 bit だけという割り切りで作られている
ので、それで収まる用途ならそれなりに高速なオブジェクトを生成できた。
(特に M6800 版は、アドレシングモードがプアだったので自己変更コードまで
駆使していた。)

>>8
PL/M は、PL/I のサブセットみたい (と言っても PL/I は結構大掛かりな言語
仕様なので、相当はしょってるけど...。) な言語。組み込みではそれなりに使
われていたよ。
0038デフォルトの名無しさんNGNG
最近世間を騒がせた某銀オンラインのホストはPL/I。
他にもいくつかデスマーチ進行中？
■ このスレッドは過去ログ倉庫に格納されています