Pascal の初心者用の質問・相談所

1 名前：デフォルトの名無しさん [02/01/02 01:46] Pascal の初心者用の質問・相談所 コンソールのみ。GUI は扱いません。 「Cをやったけど難しいので、やっぱりPascalからぼちぼちやるぅ」という人向け。 コンパイラダウンロード www.vector.co.jp/vpack/filearea/win95/prog/pascal/index.html ちなみにDelphiは 「モナーの *やさしい* Delphi質問スレ」 pc.2ch.net/test/read.cgi/tech/1003113413/ 441 名前：IP記録実験 mailto:IP記録実験 [03/01/09 02:08] IP記録実験 qb.2ch.net/test/read.cgi/accuse/1042013605/ 1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:??? そんなわけで、qbサーバでIPの記録実験をはじめましたー。 27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc SETTING.TXT管轄でないということは全鯖導入を視野に、か？ 38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l >>27 鋭いです。 73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l ＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？ ・今までより、サーバが重くなる。 ・裁判所や警察からの照会があった場合にはIPを提出することがある。 442 名前：デフォルトの名無しさん mailto:sage [03/01/09 02:08] >>540 逝き遅れの妹発見 443 名前：デフォルトの名無しさん mailto:sage [03/01/09 02:45] >>50 タイプミス ｽﾏｿ 444 名前：デフォルトの名無しさん mailto:sage [03/01/09 18:27] ======2==C==H====================================================== 　　　　　　　　　２ちゃんねるのお勧めな話題と 　　　　　ネットでの面白い出来事を配送したいと思ってます。。。 ===============================読者数： 138720人　発行日：2003/1/9 年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。 そんなわけで、年末に予告したIP記録ですが実験を開始しています。 「２ちゃんねる20030107」 こんな感じで各掲示板の最下部に日付が入ってるんですが、 20030107以降になってるところはログ記録実験中ですー。 んじゃ！ ────────────────────────Age2ch─ ■この書き込みは、Age2chを使って配信されています。 ──────────────────────────── Keep your thread alive ! pc3.2ch.net/test/read.cgi/software/1041952901/l50 ──────────────────────────── 445 名前：デフォルトの名無しさん mailto:sage [03/01/10 00:16] qbだけじゃなかったのか 446 名前：デフォルトの名無しさん mailto:sage [03/01/10 09:04] モルモットにされたのか 447 名前：デフォルトの名無しさん mailto:sage [03/01/10 11:02] もうちょっと電波度下げよう。意味不明になりすぎてる 448 名前：デフォルトの名無しさん mailto:sage [03/01/10 11:32] 厨房板の荒らしは削除されたようだ いつか全板で強制表示になるのだろうか？ スクリプトくめばどこの板だって荒らせるだろうし 449 名前：デフォルトの名無しさん mailto:sage [03/01/10 12:18] 実験のためにトオルに依頼されてコピペやってるって可能性もあるのか・・。 450 名前：デフォルトの名無しさん mailto:sage [03/01/10 12:47] >>936 それは当然考えてはいますが、小ネタやちょっとした意見を書き込むときにもそれを 意識しなくてはならないというのはしんどい 451 名前：デフォルトの名無しさん mailto:age [03/01/10 13:01] FreePascalはマルチプラットフォームであることを忘れているに、1Penis 452 名前：デフォルトの名無しさん mailto:sage [03/01/10 13:45] つーかちょっと北朝鮮や朝鮮総連を批判しただけでログから身元割れたりしないか心配。 奴ら何しでかすかわからない凶悪な連中だからな。 ログってひろゆきしかみれないのか？ 削除人が見れたら問題・・・以前削除に絡んで強請をした奴もいるらしいし 453 名前：デフォルトの名無しさん mailto:sage [03/01/10 14:57] ふむ。 454 名前：デフォルトの名無しさん mailto:sage [03/01/10 16:24] 言いたいことも言えないこんな世の中じゃ 　　　　　　　　ウェー　ハッハッハ 455 名前：デフォルトの名無しさん mailto:sage [03/01/10 22:48] ２ｃｈのＩＤてＩＰを変換してるんだっけ？ だったら、全板強制ＩDにして暗号キーだけ保存しておけばいいんじゃないの？ 456 名前：デフォルトの名無しさん mailto:sage [03/01/10 22:55] >>735 書き方がネタっぽすぎｗ 457 名前：デフォルトの名無しさん mailto:sage [03/01/11 00:12] ex.2ch.net/test/read.cgi/korea/1042022029/ 在日のアサピーが自ら２CHにブラクラ貼ったと自白ｗｗｗ 調子に乗ってアタック開始、しっかりログ取られて通報すました。 祭り中です。 458 名前：デフォルトの名無しさん mailto:sage [03/01/11 00:20] 夜勤 ★さんはなんでふだんはBG ★とかキャップを使い分けてるんですか？ 459 名前：デフォルトの名無しさん mailto:sage [03/01/11 09:42] 削除板に書き込む時いちいち設定し直すのが面倒臭いから 460 名前：デフォルトの名無しさん mailto:sage [03/01/11 09:45] 元々パク(ry 461 名前：デフォルトの名無しさん mailto:sage [03/01/11 10:16] ======2==C==H====================================================== 　　　　　　　　　２ちゃんねるのお勧めな話題と 　　　　　ネットでの面白い出来事を配送したいと思ってます。。。 ===============================読者数： 139038人　発行日：2003/1/10 なにやら、連日メルマガだしてるひろゆきです。 そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、 全部のサーバに入れてみました。 重くなって落ちたりしてもご愛嬌ってことで。。。 んじゃ！ ────────────────────────Age2ch─ ■この書き込みは、Age2chを使って配信されています。 ──────────────────────────── Keep your thread alive ! pc3.2ch.net/test/read.cgi/software/1041952901/l50 ──────────────────────────── 462 名前：デフォルトの名無しさん mailto:sage [03/01/11 11:13] フェミホモ荒らしが来なくなるなら まあいいか。。。 悪いことをする気はなかったど、なんだか 夢がなくなるな。 なんつーか、手口のきれいな銀行破りが 捕まっちゃったみたいな気分。 463 名前：デフォルトの名無しさん mailto:sage [03/01/11 13:15] まあ、匿名じゃなきゃできんような自由な言論なんてたかが知れてるしな。 今までの２ちゃんみてりゃ一目瞭然。 匿名のかさをきて暴言はいてる奴らが減っていいかも。 464 名前：デフォルトの名無しさん mailto:sage [03/01/11 16:02] じゃ、おまえが２ｃｈ来なければ良い。それだけのこと。 465 名前：デフォルトの名無しさん mailto:sage [03/01/11 16:07] ウェー　ハッハッハ 　ＰＡＲＴ　２ live2.2ch.net/test/read.cgi/news/1041867442/ 466 名前：デフォルトの名無しさん mailto:sage [03/01/12 00:09] ネオむぎを超えるわけない 犯人が１７歳以下なら話は別だが 467 名前：デフォルトの名無しさん mailto:sage [03/01/12 00:18] 中国の漬け物ですか？(^_^;) 468 名前：デフォルトの名無しさん mailto:sage [03/01/12 10:32] 231 >判決文にISP責任法への配慮とかいうちゃんちゃらおかしい文面が書いてなけりゃ 253 >>どうも昔から、下級審の裁判官は余計なことを書きたがる。 お前ら判決文を読んだのか？ 被告がISP責任法を根拠に削除義務違反はないと主張したから書いてるんだよ。 courtdomino2.courts.go.jp/kshanrei.nsf/$DefaultView/2075F93E3210745849256BED0030F3EF?OpenDocument 469 名前：デフォルトの名無しさん mailto:sage [03/01/12 21:08] IP取るようになったら些細なことでも訴えられるかもな。 ここまで話題性の在るサイトだし。 IP取ってるんだから今までは『訴えても意味無い』って諦めてた 人たちも訴えるようになるかもね。 基本的に訴えられるのは書き込みした人だろうけど、 その様な場所を提供したって事実に変わりは無いから 今まで以上に2chも訴えられるかも…。 推論ｽﾏｿ 470 名前：デフォルトの名無しさん mailto:sage [03/01/12 21:11] 削除前の手続きの話なんで、発信者の責任の話とはまぜないで欲しいが。 471 名前：デフォルトの名無しさん mailto:sage [03/01/12 21:23] 辞書登録してみた⇒夜勤さん！！ ﾍ(^^ﾍ)(ﾉ^^)ﾉ 472 名前：デフォルトの名無しさん [03/01/13 01:22] 3 6 1 4 2 5 をクイックソートで整列させるにはどうしたらいいですか？ 473 名前：山崎渉 mailto:（＾＾）sage [03/01/13 18:26] （＾＾） 474 名前：デフォルトの名無しさん mailto:sage [03/01/13 19:20] 今GNUパスカルを使って勉強しているんですが freeパスカルとの違いは何かあるんですか？ 使える文法が違う、みたいな 475 名前：デフォルトの名無しさん mailto:sage [03/01/13 22:14] 405 名前：心得をよく読みましょう 投稿日：02/12/31 11:04 ID:ADTGAx9x はぁぁぁ。あと、1週間以内で生理・・・。 何事にもむかついてたまらないっ！ 生理前って、ブルーになったり、いらいらしたり。。。 ほんと勘弁してって感じ。 476 名前：山崎渉 mailto:（＾＾）sage [03/01/15 17:52] （＾＾） 477 名前：デフォルトの名無しさん mailto:sage [03/01/19 02:08] constって何なんですか？ 478 名前：デフォルトの名無しさん mailto:sage [03/01/19 19:22] たしかサリエヌの友人だったと思います 479 名前：デフォルトの名無しさん mailto:sage [03/01/20 12:53] >>477 const {定数} BUF_SIZE = 32768;{ Buffer Size = 32768 (8000h) } Ver: string[3] = '1.0'; 定数の事かと… var {変数} argc: integer; argv: string; i,k,l: integer; 480 名前：山崎渉 mailto:（＾＾）sage [03/01/23 21:53] （＾＾） 481 名前：477 mailto:sage [03/01/26 02:18] >>479 すいません なかなか書き込むひまがありませんでした レスありがとうございました 482 名前：デフォルトの名無しさん mailto:sage [03/01/28 10:04] www.makie.com/ja/makitips/pascalfun.html Mac用だがここで紹介されているThinkPascalってどうよ？ 少しやってみたが、英版なのでエディタで日本語が表示できん・・・ 483 名前：デフォルトの名無しさん [03/01/29 00:31] CarbonLibは使えるんだろうか 484 名前：デフォルトの名無しさん mailto:sage [03/01/30 12:01] 上のリンク見る限りでは無理そうだね。 別途コード戦士が必要みたい。 でもそれだったら最初からコード戦士でやった方が良い罠。 485 名前：デフォルトの名無しさん [03/02/02 04:46] >>484 これでいけるのではないでしょうか。 Carbonized Port of THINK Pascal TCL pascal-central.com/carbon-tcl.html 486 名前：デフォルトの名無しさん mailto:sage [03/02/02 05:03] test 487 名前：デフォルトの名無しさん mailto:sage [03/02/04 11:45] >>298が全然わかんねぇ…（´д｀；） 488 名前：デフォルトの名無しさん mailto:sage [03/02/05 18:31] const hexcode: array[0..15] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'); function HexStrB(num:byte):string; begin hexstrB:=hexcode[lo(num) shr 4 ]+hexcode[lo(num) and $f] ; end; ten := ' '; num := 0; repeat writeln(HexStrB(buf[num]) + ten + HexStrB(buf[num+1]) + ten + HexStrB(buf[num+2]) + ten + HexStrB(buf[num+3]) + ten + HexStrB(buf[num+4]) + ten + HexStrB(buf[num+5]) + ten + HexStrB(buf[num+6]) + ten + HexStrB(buf[num+7]) + ten + HexStrB(buf[num+8]) + ten + HexStrB(buf[num+9]) + ten + HexStrB(buf[num+10]) + ten + HexStrB(buf[num+11]) + ten + HexStrB(buf[num+12]) + ten + HexStrB(buf[num+13]) + ten + HexStrB(buf[num+14]) + ten + HexStrB(buf[num+15]))); inc(num,$10) until (num = $200); 489 名前：デフォルトの名無しさん mailto:sage [03/02/06 10:33] おお、神！（´д｀；）ｱﾘｶﾞ�d 490 名前：デフォルトの名無しさん [03/02/10 20:53] Pascalって実用性無いのに勉強しても平気でしょうか？ 491 名前：デフォルトの名無しさん mailto:sage [03/02/11 03:47] えーと…、まあ、これからやるならやめときなさい。 Eiffelをお薦めしよう。 492 名前：レイホウ＠６歳 mailto:sage [03/02/13 04:49] >>490 C++を勉強しなさい C#はだめだぞ Gnu CppならLinuxでも使用可能だ えいめ〜ん 493 名前：デフォルトの名無しさん [03/03/08 12:55] はげしくホッシュ 494 名前：デフォルトの名無しさん mailto:sage [03/03/08 13:23] >>490 Pascalを勉強する価値がないとしたらそれは 実用的では無いからではなく時代遅れだから｡ 昔は教育用言語として教えられてはいたけど 今ではJavaとSchemeに取って代わられたよ｡ 495 名前：デフォルトの名無しさん mailto:sage [03/03/08 13:23] と､一ヶ月前のレスに混じれ酢してみました｡ 496 名前：デフォルトの名無しさん [03/03/29 11:11] 10年程前にPC-DOS+Turbo Pascal 7で作ったプログラムを動かしたいのですが、困ったことに最近のパソコンはEMSメモリが使えないものが多いのです。 新型パソコンでEMSメモリ使用可能なものがあったら教えてください。 497 名前：デフォルトの名無しさん mailto:sage [03/03/29 11:14] DOS 上で動かすか、エミュレータ上で動かせば。 498 名前：デフォルトの名無しさん mailto:sage [03/03/29 11:21] >>496 DOS5.0の時とかXMSをEMM386でEMSに化けさせてたと記憶してるけど。 499 名前：デフォルトの名無しさん [03/04/01 21:59] 496です。 497さん498さんレスありがとうございます。 >DOS 上で動かすか、エミュレータ上で動かせば。 ハードの問題なのでどちらの方法でも動かないのでは？ システムコマンダーでWinとDosのデュアルブートにするつもりなのですが 500 名前：デフォルトの名無しさん mailto:sage [03/04/01 22:08] >>499 間を取ってWindows3.1とかどうだ？ って言うかVMWareでも使った方が楽ちんな予感。 501 名前：デフォルトの名無しさん mailto:sage [03/04/01 22:21] EMS だけの話なら EMS をエミュればOK! 昔やった記憶があるが具体的には忘れた。 ただ楽するなら、500（おめ！）さんの 言うようにVMWareでも使った方がいい。 502 名前：デフォルトの名無しさん mailto:sage [03/04/02 09:02] 現在Pascal勉強中の初心者です。 Pascalって実用性が無いんですか？ CGIをやるのに適してるって聞いたんだけど・・・ 503 名前：デフォルトの名無しさん mailto:sage [03/04/02 12:48] 趣味でやるぶんにはかまわないでしょ。 504 名前：デフォルトの名無しさん mailto:sage [03/04/02 14:04] 実用性はあるが、CGIってのは多分Perlと混同してる(w Pure Pascalじゃなくて有償版Delphi/Kylixなら高機能なCGIも作れないでもない 505 名前：デフォルトの名無しさん mailto:sage [03/04/02 23:07] ＞Pure Pascalじゃなくて有償版Delphi/Kylixなら高機能なCGIも作れないでもない アホがいます。 506 名前：デフォルトの名無しさん mailto:sage [03/04/02 23:14] WebSnapとかIntraWebとか、まあ知らないなら知らないでいいけどさ 507 名前：デフォルトの名無しさん mailto:sage [03/04/03 06:10] >>506 何でもかんでもライブラリがないと何もできないかわいそうな人がいます。 508 名前：ななしへたぐらま ◆XcB18Bks.Y mailto:sage [03/04/12 16:13] こういう書き込みの後でなんですが， Cのscanfに相当する機能を実現する関するのライブラリって どこかにありませんでしょうか． 以前自作したのですが作りが下手なのか処理が重すぎて…． テキスト解析はちゃんと本を読んで勉強しないとダメかな． 509 名前：デフォルトの名無しさん mailto:sage [03/04/12 20:05] >>508 > Cのscanfに相当する機能を実現する関するのライブラリって > どこかにありませんでしょうか． scanf のソース見てポーティングすればいいとおもうけど。 可変引数の扱いをどうするかが問題かと思うが。 510 名前：デフォルトの名無しさん mailto:sage [03/04/12 20:58] >>509 オープン配列とかで何とかならない？ 511 名前：山崎渉 mailto:（＾＾） [03/04/17 15:47] （＾＾） 512 名前：ななしへたぐらま ◆XcB18Bks.Y mailto:sage [03/04/22 22:42] >>509-510 レスが遅くなってごめんなさい…． scanfのソースは探してみます．ありがとうございます． ちなみに可変引数は前に作ったときは配列型で対応していました． var指定が出来なかったのでポインタを渡す仕様にしていました． 513 名前：デフォルトの名無しさん [03/04/25 04:18] JIS PASCAL水準1準拠の処理系ってありませんか。 またpacked array[0..7] of booleanを1バイトに詰め込んでくれたり、set of 0..256が書けたりするのも…。 どれも実装が面倒なんだろうか… 514 名前：bloom [03/04/25 04:26] homepage.mac.com/ayaya16/ 515 名前：デフォルトの名無しさん mailto:sage [03/04/25 04:40] そういえば規格では set of Charが集合の最大サイズでしたっけ。 ってことはCharがWideCharになるDelphi.NETではset of 0..65535が可能に！？ 516 名前：513 [03/04/25 05:05] そうかset of charが集合の最大サイズなのか… JIS規格書が会社なんで確認できないな。 基底型は任意の順序型だと思っていた。 517 名前：デフォルトの名無しさん [03/04/25 05:17] >>502 実用性がないとかまことしやかに言われていますが、そんなことはないです。 CGI は、言語が標準入力と標準出力をサポートしていれば、どんな言語でも可能です。 518 名前：デフォルトの名無しさん [03/04/25 05:44] www.gnu.org/brave-gnu-world/issue-12.ja.html より: GNU Pascal は Borland Pascal 7.0 という「標準のようなもの (quasi-standard)」だけでなく、ISO 7185 Pascal Standard を完全に サポートしている唯一のコンパイラです。 519 名前：デフォルトの名無しさん [03/04/25 05:46] >>517 適用範囲を限定すればJIS PASCALでも実用性が見いだせるということですね 逆に何らかの拡張を施さないと適用範囲は広がらないと。 520 名前：513. [03/04/25 06:05] >>518 ありがとう。 危うく自前でコンパイラ作りそうだったよ。 GNU PASCAL検討してみます。 521 名前：デフォルトの名無しさん mailto:sage [03/04/25 06:11] CodeWarrior Pascal packed array[0..7] of booleanを1バイトに　→　出来る。 set of 0..256が書けたり　→　set of 0..2047までOK。 (256byte) THINK Pascal packed array[0..7] of booleanを1バイトに　→　不可 set of 0..256が書けたり　→　set of -32768..32767までOK。 522 名前：デフォルトの名無しさん [03/04/25 06:14] >>519 JIS Pascal と厳密にやると、分割コンパイルができないなど不便はありますが、 JIS/ISO 互換でやりたいなら、Turbo Pascal や Delphi のようなものを使って、 分割コンパイルは拡張機能を利用し、コード自体は、できる限り JIS/ISO 標準で 書くということなら、ISO C 言語程度の実用性は出てきます。 Turbo Pascal や Delphi が完全に ISO/JIS に準拠しているわけではありませんが、 かなり標準 Pascal の文法をサポートしています。 この本は、Turbo Pascal や JIS/ISO 標準 Pascal その他の文法に差異があるところに 注釈が入っていてよい本です。 演習PASCALとその応用 www.saiensu.co.jp/books-htm/ISBN4-7819-0507-2.htm 523 名前：デフォルトの名無しさん [03/04/25 06:25] >>513 手元の Linux に入っていた GNU Pascal 2.95.4 でやってみましたらできるようです。 サンプル・ソース: program iso(input, output); var a : packed array[0..7] of boolean; b : set of 0..65535; begin writeln('hello'); end. gpc -o iso iso.p とやったら、 iso.p:5: warning: integer set size limited to 65535 elements from low bound iso.p:5: warning: use `--setlimit=NUMBER' to change the limit at compile time と出たので、 gpc --setlimit=65536 -o iso iso.p としたら、エラーも警告もなくコンパイルできました。 動作は未確認ですが (^^ ちなみに、GNU Pascal は cygwin を使えば Windows でも動きます。 524 名前：動画直リン [03/04/25 06:26] homepage.mac.com/hitomi18/ 525 名前：デフォルトの名無しさん mailto:sage [03/04/25 06:30] こうしてみるとDelphiって基礎部分が貧弱ですねぇ。 確か標準ってオープン配列で procedure A(const B: array[L..H] of Integer); なんて構文も使えませんでしたっけ？ 526 名前：513. [03/04/25 06:44] >>521 ありがとう 最近の処理系は制限が少しずつ取れてきてるのですね packed set of -maxint..maxintはどうだろう。 コンパイル出来ても実行は出来なくて当然だとは思うが… CのビットフィールドとPASCALの詰めあり構造型の性質がそっくりなのは偶然？ 527 名前：デフォルトの名無しさん [03/04/25 06:45] あ、でも packed array[0..7] of boolean は 2 バイトになりました。0..15 まで 2 バイトで、0..31 は 4 バイト。これじゃだめですかね。 オプション指定もあるのかもしれませんが。 528 名前：デフォルトの名無しさん [03/04/25 06:46] >>527 GNU Pascal でのことです。 529 名前：デフォルトの名無しさん [03/04/25 06:55] GNU Pascal マニュアルでつ。 www.gnu-pascal.de/gpc/index.html 530 名前：513. [03/04/25 06:58] >>527 多分それは各要素に不定値を表すビットが含まれているんじゃないかと。 531 名前：デフォルトの名無しさん [03/04/25 07:04] GNU Pascal で c : set of -10..65535; とおりました。 532 名前：デフォルトの名無しさん mailto:sage [03/04/25 07:05] >>530 単に2byte単位でしか割り当て出来ないだけのような 533 名前：513. [03/04/25 07:14] >>530 そういわれればそうだな。はやとちりでした。 実行環境に適切な境界迄余分なバイトが詰められるのは構わないです。 534 名前：デフォルトの名無しさん [03/04/25 07:26] www.k-514.com/ 535 名前：デフォルトの名無しさん [03/04/25 08:09] GNU Pascal で set -65535..65535 は gpc --standard-pascal --setlimit=131071 でとおりました。 536 名前：521 mailto:sage [03/04/25 08:28] 訂正；THINK Pascalでもpacked array[0..7] of booleanは1byteでした。 >>526 >packed set of -maxint..maxintはどうだろう。 >コンパイル出来ても実行は出来なくて当然だとは思うが… maxintが32767なのでTHINK Pascalでコンパイル＆実行できます。 集合はもともと1bit扱いなのでpackedがついてもつかなくても 変数のサイズは同じです。 エラトステネスのふるいで素数を求めるプログラム、 set of 0..maxint (32767)でコンパイル＆実行できました。 最後の3つの素数　＝　32717　32719　32749 537 名前：デフォルトの名無しさん [03/04/25 08:52] >>536 エラトステネスのふるいって、集合型でどうやるんですか？ 0 から n までの配列を用意して、素数なら true、合成数なら false にしていく、 というものだと思うんですが。 538 名前：別人 mailto:sage [03/04/25 08:59] set of Xもarray[X] of Booleanも、言語仕様上はともかく役割としては変わらないよ。 配列で A[i] → 集合で i in A A[i] := True → Include(A, i) A[i] := False → Exclude(A, i) Adaなんか開き直ってBoolean配列に集合演算の能力持たせてるし。 539 名前：デフォルトの名無しさん mailto:sage [03/04/25 09:07] やってることは配列を使うのと大差ない。 はじめに[2,3,4,5,6..maxint]という集合を用意しておいて nの倍数を集合から除去していくだけ。 540 名前：デフォルトの名無しさん [03/04/25 11:12] エラトステネスのふるい、集合型バージョン。こんなんでできました。 コンパイル・コマンド: gpc --standard-pascal --setlimit=65536 -o primenumber primenumber.p program primenumber(input, output); const n = 65535; var prime : set of 0..n; i : integer; j : integer; begin prime := [0..n]; for i := 2 to n do if prime >= [i] then begin j := i + i; while j <= n do begin prime := prime - [j]; j := j + i; end end; for i := 2 to n do begin if prime >= [i] then writeln(i); end end. 541 名前：デフォルトの名無しさん [03/04/25 11:16] 空白が崩れた。スマソ。 program primenumber(input, output); const    n = 65535; var    prime : set of 0..n;    i     : integer;    j     : integer; begin    prime := [0..n];    for i := 2 to n do       if prime >= [i] then       begin          j := i + i;          while j <= n do          begin             prime := prime - [j];             j := j + i;          end       end;    for i := 2 to n do    begin       if prime >= [i] then          writeln(i);    end end.

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef