米国国防省の標準高等言語エイダ（Ａｄａ）を語れ！

[1 名無しさんは伊達じゃない NG NG]

どうよ？

[246 デフォルトの名無しさん NG NG]

うんだ、Ada はええだ。
恩を Ada で返すだ。

[247 デフォルトの名無しさん NG NG]

ええ、２秒くらいは笑えましたよ

[248 あっちの621 NG NG]

プログラミングの為の数学と算数
http://pc2.2ch.net/test/r.i/tech/997150743/607
＞[607]デフォルトの名無しさん04/02 11:12
＞Ｎ＋Ｎ＝ＮＮ

[607]の意図はよくわからないんだが
1+1=11
2+2=22
みたいなものがあるか、という問題と解釈し
10進数以外ならあるやも、と作ったプログラム。
2進、3進、4進．．．16進までやってみたけどないね。

with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;

procedure nn is
begin
for i in 2..16 loop
　　for j in 1..i-1 loop
　　　put(j, 6, i); -- jをi進数で表記
　　　put(" + ");
　　　put(j, 6, i);
　　　put(" = ");
　　　put(j + j, 6 ,i); -- j+jをi進数で表記
　　　new_line;
　　end loop;
end loop;
end nn;

[249 山崎渉 NG NG]

（＾＾）

[250 デフォルトの名無しさん NG NG]

[251 山崎渉 NG NG]

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

[252 デフォルトの名無しさん NG NG]

めざせ深層水

[253 デフォルトの名無しさん NG NG]

残り12スレッド、潜れ潜れ

[254 デフォルトの名無しさん NG NG]

あと10

[255 デフォルトの名無しさん NG NG]

あと6

[256 デフォルトの名無しさん NG NG]

PC8001版持ってる人は？

[257 デフォルトの名無しさん NG NG]

ho

[258 デフォルトの名無しさん NG NG]

syu

[259 デフォルトの名無しさん NG NG]

http://www12.brinkster.com/brianr/languages.aspx
A#存在記念age

[260 デフォルトの名無しさん NG NG]

独立型プログラミング支援ユニットADAです。
￣￣￣￣￣￣￣￣￣￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　　　 ＿＿＿＿＿＿＿
　　　　　　　　　　　／＼ ⌒ヽ≡≡≡≡＼
　　　　　　　　 　／　((　　 A D A ;;;;;∵. ... ＼
　　　　　　　　／◇＼／￣￣￣￣￣＼／◇.＼
　　　　　　 ／ 　　＼ ＼____|| | | ||____／ ／　　　＼
　　　　　／　 //／￣／￣￣V￣￣ ＼￣＼// 　 .＼
　　　　　￣￣￣　 　 ＼ ≡||□||≡　／

[261 デフォルトの名無しさん NG NG]

A#拡張構文

・「変数名 . 関数名」形式の「メソッド」呼びだしがサポートされてる(pragma Extensions_Allowed(On);時のみ)
・with 型名 is access; で参照型インポート
・with 型名 is tagged; で値型インポート
・pragma MSIL_Constructorで普通の関数をコンストラクタ扱いに
・Adaの文字列に+演算子を適用すると.NETの文字列に、逆もあり

他になんか無いかな？

[262 デフォルトの名無しさん NG NG]

A#の使い方

ダウンロードして展開して
・binにPATHを通す
・ADA_INCLUDE_PATHを...\lib\mgnat\adainclude; ...\include
・ADA_OBJECTS_PATHを...\lib\mgnat\adalib; ...\include
・register_mgnat.batを走らせる
・古いものが混じってるのでinclude中の*.aliの上書き禁止属性を解除しておく

[263 261-262 NG NG]

とりあえずWindows.Formsとか使えるっぽいので、
Ada@WindowsでGUIやる場合の選択肢がGtk以外にもうひとつできたことになります。
起動遅いけどなァー。
(Pentium�Vで.NET動かすってのが間違いかも知れないが…)

ひとりでやってると寂しいので誰か一緒にやりましょうよぉ

[264 山崎渉 NG NG]

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

[265 デフォルトの名無しさん NG NG]

あげてやる

[266 動画直リン NG NG]

http://homepage.mac.com/hitomi18/

[267 デフォルトの名無しさん NG NG]

【PC版】Ever17-the out of infinity【大失敗作】 　　 　　
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
【PC版】Ever17-the out of infinity【大失敗作】
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
【PC版】Ever17-the out of infinity【大失敗作】
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
【PC版】Ever17-the out of infinity【大失敗作】 　　
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
【PC版】Ever17-the out of infinity【大失敗作】
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
【PC版】Ever17-the out of infinity【大失敗作】
http://www2.bbspink.com/test/read.cgi/erog/1053601941/

[268 デフォルトの名無しさん NG NG]

あげてやるあげてやるぅ

[269 デフォルトの名無しさん NG NG]

mingwの最新版スナップショットにはAdaが含まれて無いですよ。なんでかなー？

[270 デフォルトの名無しさん NG NG]

ho

[271 デフォルトの名無しさん NG NG]

話は変わるけど，国防総省の総って何．

[272 デフォルトの名無しさん NG NG]

陸軍　海軍　空軍

[273 ごるごるもあ ◆753Z/RLFiY NG NG]

　　　　　　　 　 　 ､　
　　　　　　　 　 　) |　
　　　　　　　　 ( ﾉノ　
　　　　　　　, --" - ､　
ｽﾁｬ　　　　/ 〃.,､　　 ヽ　
　 ∧､　　　l ﾉ ﾉハヽ､　 i　
／⌒ヽ＼　i | l'┃　┃〈ﾘ　　我々の要求は、沖縄県に対する皇民政策の廃止だ
|( ● )|　i＼从|l､ _ヮ／从　　明日米軍基地を爆破する。
＼＿ノ　^i |ハ 　∀　＼　
　|＿|,-''iつl/　　†/￣￣￣￣/
　　[__|_|／〉 .＿_/　魔　法　/＿＿
　　　[ニニ〉＼/＿＿＿＿/　http://darkelf.dip.jp/doubt/okinawa.html

我々はこれ以上の共産主義化をすることはできない。
よって、我々の民主主義奪還を行うために政府に対し次の通り要求する。
１.沖縄県に対する皇民政策の廃止
２.思いやり予算の撤廃
３.軍事基地の撤去交渉を米国と進める。
４.復興予算案の盛り込み
５.沖縄の議席数を現在の４倍以上に増やす。

[274 ごるごるもあ ◆753Z/RLFiY NG NG]

　　　　　　　 　 　 ､　
　　　　　　　 　 　) |　
　　　　　　　　 ( ﾉノ　
　　　　　　　, --" - ､　
ｽﾁｬ　　　　/ 〃.,､　　 ヽ　
　 ∧､　　　l ﾉ ﾉハヽ､　 i　
／⌒ヽ＼　i | l'┃　┃〈ﾘ　　我々の要求は、沖縄県に対する皇民政策の処分だ
|( ● )|　i＼从|l､ _ヮ／从　　明日米軍基地を爆破する。
＼＿ノ　^i |ハ 　∀　＼　
　|＿|,-''iつl/　　†/￣￣￣￣/
　　[__|_|／〉 .＿_/　魔　法　/＿＿
　　　[ニニ〉＼/＿＿＿＿/　http://darkelf.dip.jp/doubt/okinawa.html

我々はこれ以上の共産主義化をすることはできない。
よって、我々の民主主義奪還を行うために政府に対し次の通り要求する。
１.沖縄県に対する皇民政策の処分
２.思いやり予算の撤廃
３.軍事基地の撤去交渉を米国と進める。
４.復興予算案の盛り込み
５.沖縄の議席数を現在の４倍以上に増やす。

[275 デフォルトの名無しさん NG NG]

ho

[276 デフォルトの名無しさん NG NG]

上へ参ります

[277 デフォルトの名無しさん NG NG]

エイダバベッジの階差機関か？

[278 デフォルトの名無しさん NG NG]

定期保守

[279 山崎 渉 NG NG]

（＾＾）

[280 デフォルトの名無しさん NG NG]

（＾＾）

[281 山崎 渉 NG NG]

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

[282 デフォルトの名無しさん NG NG]

hoi

[283 デフォルトの名無しさん NG NG]

PascalもPL/SQLもAdaから派生したと聞いたが。
ＰＣ最強言語とデータベース最強プロシジャの親が両方ともＡｄａ
であると思ってたが。
DelphiもOracleも萌え萌え

[284 デフォルトの名無しさん NG NG]

>>283
最強のクソ言語と、最強のクソデータベースのプロシージャの
間違いじゃネーノ？ｗ

[285 デフォルトの名無しさん NG NG]

×クソ言語
○クソ会社のツール
ではだめかね？
あと、
○クソ会社の最強データベース（製品はよいよ）

[286 デフォルトの名無しさん NG NG]

逆だろ？PascalからAda。

[287 デフォルトの名無しさん NG NG]

クローンオブエイダの話でないね
あんまり関係ないけど

[288 デフォルトの名無しさん NG NG]

すまん、Ａｄａがあとだった
ALGOL58 1958年
↓
Pascal 1970年
↓
Ada 1980年

[289 デフォルトの名無しさん NG NG]

hooo

[290 デフォルトの名無しさん NG NG]

shuuu

[291 デフォルトの名無しさん NG NG]

このスレ、おやじギャグ多すぎません？
もしかしてホントにオヤジが多（ｒ

[292 デフォルトの名無しさん NG NG]

地道に保守

[293 デフォルトの名無しさん NG NG]

新参者ですが、Ada勉強してみようかな。

[294 デフォルトの名無しさん NG NG]

sage

[295 デフォルトの名無しさん NG NG]

700

[296 デフォルトの名無しさん NG NG]

616

[297 デフォルトの名無しさん NG NG]

このスレが賑わう日は来るのかなあ…

[298 デフォルトの名無しさん NG NG]

adaってなんかPascalに似てるな

[299 デフォルトの名無しさん NG NG]

Delphiユーザは知らず知らずのうちにAdaの恩恵を受けていると思う。

[300 バイオハザード２ NG NG]

レオン「エイダー！！」

[301 デフォルトの名無しさん NG NG]

　 　 / 　 　 　＼ノｋ 　　　,r 　 ｔ、 f ノ 　 ヽ ﾉ 　 　 　 　 　 ／ 丶'　　ヽ　 ￣
　 　 { 　 　 . ⌒ヽ'⌒ヽ _7ﾄ,ﾆtK　|`ﾍ 　 　 ﾉ 　 　 　 　 　 / ヽ　　　 /　/:
　　 ヽ､ 　 　 　 　　 〉ヽ〉二〈ﾉ│　｀ヽ;;ノ ＾ 　 　 　 　 　 /　/へ ヘ/　/:
　　　　 `ー-､;;;;;;;;ノ 　 ´￣｀ 　〉 　 　 　 　 　 　 　 　　 ＼_＼ ヾミ　 /|:
　 　 　 　 　 　 ﾊ二二ﾆﾆﾆ=─ヘ、 　 　 　 　 　 　 　 　 　ヽ　､vWwｧ_
　 　 　 　 V ヽ 　ﾄ 　 　 　 　 　 　＼ 　 　 　　 　 　 　　 　y'{ j,__;＿;ノ
　 　 . . ﾝ 　ミﾐ巛　ﾉ ノ ヽ ヽ 　 　 　 ＼_ 　　　　　　　　　　ヽ!!_,'´" ,,　f
　　　 ノ ／ﾉ/　 `ヽﾄ､＼＼─t、 ミ　　　}　　　　　　　 　　_ｨ´ __　i　 ___　〔
　 　　.,_||` ;;;×　　×ヾ　 '| |_ ￣／　　ヽ|　　　　　 　 　y　　 　_ ,|　　　　`　 、
　 　　|ヽ|　　.　▲　 　|り|　　 ｜　　　ノ　　　　　 　 ノ　　　　　_;-ー'--tｰ' 　 　｀'＼
チョ、　　! ` 　'"-Д-　/ / 　 ヽﾆﾆイ　　　　　 　 ,ｰ' ヽ　 _;　― 　 　 　 　`ヽ、　　 ヾ,
タンマ 　　＼　　　　　／　　　 | 　 | 　　　　　　　｛／　 　 r ´ 　 　 　 　 　 　 ｝ 　　　|
　　ミ' )ー─「　｀レ￣　　 ￣^ 〈　 ´ `ｰ--r､　　 ｛ _　　 _ ¨ 　 　 　 　 　 　　 /|’　　 /|
　　⌒'￣￣└─┤　 i＿_8　 |　　＼:n〉0jﾉノ 　 {　　_y' 　 　 　 　 　 　 　 　 |/　　　/
　　　　　_　 _,. -- _ゝ_／ ノ⌒/　　ﾉ┴､一　ﾐミ７_ｰr'ーj 　 　 　 　 　 　 　 　 {　 　 ｿ
_,, -‐　´　　　　　Ｌ__j-´ 　 　ゝ､__＿_ﾉ＿二_巛７ﾉ============ 　 　 　 　 { 　-; |
　　　　　　　　　　 　　　 　　　　　　　　　　ミﾐl_/ l_　 　　　　　 　　　　　　　　'ｰ-;､ ｀j

[302 デフォルトの名無しさん NG NG]

仕事でAdaを使ってる人いる？

[303 デフォルトの名無しさん NG NG]

Anubis zoeで出てた奴？

[304 デフォルトの名無しさん NG NG]

>>303
何それ？

[305 デフォルトの名無しさん NG NG]

GWindowsを使ってWindowを表示してみました。(Win2000)
GWindows url: http://www.adapower.com/gwindows/

--
-- wintest.adb
--

with GWindows.Windows.Main;
with GWindows.Application;

procedure WinTest is
use GWindows.Windows.Main;
Top: GWindows.Windows.Main.Main_Window_Type;

begin
Create (Top, "Hello World");
Size (Top, 300, 100);
visible (Top);
Gwindows.Application.Message_Loop;
end;

[306 デフォルトの名無しさん NG NG]

>>305
おーっ(拍手

なんかすごそうだ。もっと使ってみた感想とか聞きたいかも

[307 デフォルトの名無しさん NG NG]

>>306
まず使えるようになるまでが大変でした。
MinGWのgnatだとうまく動かなかったので、
ftp://cs.nyu.edu/pub/gnat/3.15p/winnt/
から、改めてダウンロードしてインストール。
で、環境変数を設定。（gnatはc:\gnatにインストールしたとする）
PATHにc:\gnat\binを追加。
ADA_INCLUDE_PATH=c:\gnat\lib\gcc-lib\pentium-mingw32msv\2.8.1\adainclude
ADA_OBJECTS_PATH=c:\gnat\lib\gcc-lib\pentium-mingw32msv\2.8.1\adalib
C_INCLUDE_PATH=c:\gnat\pentium-mingw32msv\include
LIBRARY_PATH=c:\gnat\lib\gcc-lib\pentium-mingw32msv\2.8.1

ここで、サンプルをコンパイルしようとすると、
なぜか、collect2が見つからないとかしかられるので、
c:\gnat\binにあるld.exeをcollect2.exeという名前でコピー。
（これに気づくまで、かなり悩みました。。。）

つぎに、gnatcom（http://www.adapower.com/gnatcom/）をインストール。
make install

そして最後にGWindowsをインストール。
make UNICODE=1 install

ってな感じで、疲れました。。。（インストールするまでに三日ぐらい悩んだ）
まだ、サンプルをコンパイルする程度なので、詳しい感想はのちほど。

[308 305 NG NG]

マウスクリックイベントを取得してみました。
--
-- mousetest.adb
-- compile: gnatmake mousetest.adb
--
with GWindows.Message_Boxes;
with GWindows.Windows; use GWindows.Windows;
with GWindows.Windows.Main; use GWindows.Windows.Main;
with GWindows.Base;
with GWindows.Types;
with GWindows.Application;
procedure MouseTest is
Top: GWindows.Windows.Main.Main_Window_Type;

procedure OnMouseClick
(Window: in out GWindows.Base.Base_Window_Type'Class;
X : in Integer;
Y : in Integer;
Keys : in GWindows.Windows.Mouse_Key_States)
is
New_Point : GWindows.Types.Point_Type := (X, Y);
begin
GWindows.Message_Boxes.Message_Box ("on mouse click", "Clicked!");
end;

begin
Create (Top, "Hello World");
Size (Top, 300, 100);
On_Left_Mouse_Button_Down_Handler (Top, OnMouseClick'Unrestricted_Access);
visible (Top);
Gwindows.Application.Message_Loop;
end;

[309 デフォルトの名無しさん NG NG]

Delphiより、いいところってある？

[310 305 NG NG]

>>309
Delphiと比べて考えたことはなかったですが、
並行プログラミングが言語の文法に組み込まれている
あたりが個人的には気になっています。

[311 デフォルトの名無しさん NG NG]

ゲーム製作技術板より転載

AdaSDL
　http://adasdl.sourceforge.net/
NeHe new base code with Ada
　http://www.abyss2.demon.co.uk/projects/ada/index.html

[312 デフォルトの名無しさん NG NG]

今でも使ってるのかな？

[313 デフォルトの名無しさん NG NG]

>>312
今でも使っているし、多分１００年後も使っているだろう。

軍隊という所はそういう所です。

[314 デフォルトの名無しさん NG NG]

Delphiのそっくりじゃん！
妹？

[315 デフォルトの名無しさん NG NG]

>>314
C++とDが違う程度には違う

[316 デフォルトの名無しさん NG NG]

10歳違いの妹？

[317 デフォルトの名無しさん NG NG]

頑固でかたくなにゆずらない親父 ada
若くてすぐにつっぱしる Delphi

[318 デフォルトの名無しさん NG NG]

日本語の参考サイトがあんまりないね…

[319 デフォルトの名無しさん NG NG]

>>318
確かにあまりみかけないな

[320 デフォルトの名無しさん NG NG]

ちょっと使ってみようっと。

[321 デフォルトの名無しさん NG NG]

レス数が少ないけど、あまり使われてないのか

[322 デフォルトの名無しさん NG NG]

>>321
多分そうだろうな。

[323 デフォルトの名無しさん NG NG]

Adaの構文がCよりだったらなぁ…。で、Ada使ってるﾔｼのOSって何？
漏れはﾃﾞﾋﾞｱｿだけど。

[324 デフォルトの名無しさん NG NG]

点呼2！…って解釈でいいのかな？

Windows2000
上の方でA#いじってた奴です

[325 デフォルトの名無しさん NG NG]

>>324
Linuxだと、Adaの独自のﾏﾆｭｱﾙがあったり、cursesっていう端末制御ﾗｲﾌﾞﾗﾘが使えたりで、
他にもGNATとか色々ありますよ。Linuxは低燃費だからいらなくなったPCで試してみると面白いよ。

[326 デフォルトの名無しさん NG NG]

>>325
「いらなくなったPC」欲しいなあ…
WindowsでもgnatはありますしAPIは呼べますよん

…まさか、ふたりしかこのスレに残って無いなんてことは…！？

[327 デフォルトの名無しさん NG NG]

え？　点呼とってたんですか？
じゃ、３。

Win2000 & gnat & gwindows

[328 デフォルトの名無しさん NG NG]

4
redhat

[329 323,325 NG NG]

WindowsにもGNATとかあるんだ。ｽﾏｿ。ところで「ﾌﾟﾛｸﾞﾗﾐﾝｸﾞの壷　III技術編」なる本に
Adaについて少し語ってある。数頁にわたって他の言語と比較してた。
ちなみに著者はﾌﾟﾛｰｶﾞさんでつ。他には「ﾊｯｶｰｽﾞ大事典」にもあった。話は変わるけどさ
(また重複してたらｽﾏｿ)Linuxには開発者(ﾕｰｻﾞではなく)向けのﾊﾟｯｹｰｼﾞが別にあって
開発者達が内部構造を解説した文書とかあって、そういうのが全ての処理系に
あるからﾕｰｻﾞには開発者ﾚﾍﾞﾙの自由もあるんだよね。よく「Have Fun！」とか書いてある。
で、ﾃﾞｭｱﾙﾌﾞｰﾄしてLinux使ってるWindowserはいる？

[330 323,325 NG NG]

WindowsにもGNATとかあるんだ。ｽﾏｿ。ところで「ﾌﾟﾛｸﾞﾗﾐﾝｸﾞの壷　III技術編」なる本に
Adaについて少し語ってある。数頁にわたって他の言語と比較してた。
ちなみに著者はﾌﾟﾛｰｶﾞさんでつ。他には「ﾊｯｶｰｽﾞ大事典」にもあった。話は変わるけどさ
(また重複してたらｽﾏｿ)Linuxには開発者(ﾕｰｻﾞではなく)向けのﾊﾟｯｹｰｼﾞが別にあって
開発者達が内部構造を解説した文書とかあって、そういうのが全ての処理系に
あるからﾕｰｻﾞには開発者ﾚﾍﾞﾙの自由もあるんだよね。よく「Have Fun！」とか書いてある。
で、ﾃﾞｭｱﾙﾌﾞｰﾄしてLinux使ってるWindowserはいる？

[331 デフォルトの名無しさん NG NG]

sage忘れを阻止しようとした末の二重ｶｷｺ。ｽﾚ汚してｽﾏｿ(´･ω･｀)

[332 デフォルトの名無しさん NG NG]

>>329
デュアルブートじゃないけど、
Win2000で、Virtual PCにLinux入れて遊んでる。

[333 デフォルトの名無しさん NG NG]

記述量がめちゃくちゃ多いだろ？

[334 デフォルトの名無しさん NG NG]

うん。

[335 デフォルトの名無しさん NG NG]

>>333
もう少し少なくなればいいのにね。

[336 デフォルトの名無しさん NG NG]

Ada は、Panic に成らないような、エラー処理がふんだんにできると
聞きましたが、そうなんでしょうか｡

[337 デフォルトの名無しさん NG NG]

>>336
むかしのイメージだねえ。

[338 デフォルトの名無しさん NG NG]

>>336

冷戦前はね、といってみる…。

[339 デフォルトの名無しさん NG NG]

商業ﾍﾞｰｽのAdaはものすごく枯れてるらしいねぇ。そして、このｽﾚは別の意味で
枯れてきてるような気がw。「2ch流らくらくAda学習術」みたいな、Ada版K&Rでも作って
みたいなぁ。ちなみに、Adaで有名なTutorialみたいな物はあるのでしょうか ＞詳しい人

[340 デフォルトの名無しさん NG NG]

>>336
いまや、C++, Java, C#にも例外処理はあるし、
オブジェクト指向だから協力。

[341 デフォルトの名無しさん NG NG]

>>339
昔のbitの別冊。

[342 デフォルトの名無しさん NG NG]

今現在で、他の言語と比べたAdaの利点ってなんだろう？

[343 デフォルトの名無しさん NG NG]

ランデブーという圧倒的利点が・・・ｗ

ボーランドがコンパイラを出してれば、Adaもメジャーになれてたかもな

[344 デフォルトの名無しさん NG NG]

Ada0Yになると、また色々面白いことができそうなんだが、
正直Ada95時点では、強力過ぎて迷惑な型チェックとランデブー等組み込みの同期メカニズムぐらいしか無いな

いや、マルチスレッドプログラムで、構文故にケアレスミスを弾いてくれるのはありがたい筈なんだけど

[345 デフォルトの名無しさん NG NG]

Ada0Yが登場するのはいつなんだ？