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/ 412 名前：ああ mailto:sage [02/11/26 07:33] ｽﾝﾏｿ、スレ違いでした。。。 413 名前：デフォルトの名無しさん mailto:sage [02/11/26 08:09] >>410さんが言っているように、 pはいわゆるイテレータというやつで、 S1はリストの先頭を保持するという役割があるので たとえS1でpを代用できてもするべきじゃないです。 414 名前：デフォルトの名無しさん [02/11/27 21:52] Error: Incompatible type for arg no. 2: Got SHORTSTRING, expected LONGINT どなたかこのエラーメッセージのわかる方いらっしゃいますか? 415 名前：デフォルトの名無しさん mailto:sage [02/11/27 22:59] 引数の2個目はLONGINTが来るはずなのにSHORTSTRINGだよボケが 416 名前：デフォルトの名無しさん [02/12/03 23:46] 落ち阻止。 417 名前：デフォルトの名無しさん [02/12/07 17:08] リスト構造をもつ、ポインタ（pointer）型の変数を使用してデータ入力後絶対値に関して昇順に並べ替えたいのですがどうしてもうまくいきません。どうプログラムを書いたらいいでしょうか？ 418 名前：デフォルトの名無しさん mailto:sage [02/12/07 17:13] >>417 よくわかりません。 419 名前：デフォルトの名無しさん [02/12/07 17:18] 簡単に言うとポインタを使って昇順の連結リストをつくりたいのですが。 420 名前：デフォルトの名無しさん [02/12/07 17:51] >419 中身を比較したのちポインタを書き換える。それだけ…… 基本情報処理の本のリストに関する部分を読めば直に分かる。 421 名前：デフォルトの名無しさん mailto:sage [02/12/08 01:09] >>419 対象をポインタで持っているのなら、ヒープソートなんかで木構造を一時作って、 それを再度リスト構造に戻すのが良いかも。 汎用的に作るのなら、ソート関数は作り込まず、外部のソート関数を呼び出すよ うにすればよいし。 422 名前： [02/12/08 20:48] コンソールアプリケーションである値を入力したら窓を閉じるにはどうしたらいいですか? 423 名前：デフォルトの名無しさん mailto:sage [02/12/08 20:56] コンソールアプリケーションに窓なぞない。 424 名前： [02/12/08 21:04] >>423 窓って言うか…何て言ったらいいんだろう? Delphiでコンソールアプリケーションを作って実行したらコマンドプロンプトが起動するじゃないですか。 それを閉じたいのですが無理なんでしょうか? 425 名前：デフォルトの名無しさん mailto:sage [02/12/08 21:12] exit(return) 426 名前：422 mailto:sage [02/12/08 21:21] >>425 exit(return)だったら実行できませんでしたがちょっと削ってexitにしたら閉じることができました。 ありがとうございました。 427 名前：デフォルトの名無しさん mailto:sage [02/12/08 22:29] >>462 ごめん、(return) はなんとなくノリで。 DOS 窓の終了と同じ雰囲気で。 428 名前：デフォルトの名無しさん [02/12/09 00:28] >424 DelphiはDelphi板で聞くのが良いよ。 429 名前：デフォルトの名無しさん mailto:sage [02/12/09 03:00] >>425-426 Exitは関数や手続きを抜けるだけじゃない？ もちろんprogram .. begin .. end のレベルで実行すればプログラム自体を 抜けるけど。 どこでも即座に終了させたかったらHaltを使うべし。 430 名前：425 mailto:sage [02/12/09 18:03] >>429 ご指摘ありがとう。しばらくDelphi使ってないのでかなり忘れてました。 431 名前：デフォルトの名無しさん [02/12/31 17:01] 逆ポーランド記法をスタックをよういて実現したいのですが、プログラムがうまくかけません。 どなたか教えていただけないでしょうか？ 432 名前：デフォルトの名無しさん [02/12/31 18:15] よういて？ 433 名前：431 [02/12/31 18:23] もちいてだっての　バカ 434 名前：デフォルトの名無しさん [02/12/31 18:45] 用いる。 餅炒る。 モチ要る。 435 名前：デフォルトの名無しさん [02/12/31 18:46] >>431 if (数字) {  スタックにpush; } eles if(演算子) {  スタックから二つpopして演算;  結果をスタックにpush; } else {  error; } 436 名前：IP記録実験 mailto:IP記録実験 [03/01/08 22:23] 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を提出することがある。 437 名前：デフォルトの名無しさん mailto:sage [03/01/09 00:41] >>1 全板IP記録に追い込まれた今の気持ちをどうぞ。 438 名前：デフォルトの名無しさん mailto:sage [03/01/09 01:01] 記念カキコ 439 名前：デフォルトの名無しさん mailto:sage [03/01/09 01:21] ひろゆきは架空の人物ですよ。 440 名前：デフォルトの名無しさん mailto:sage [03/01/09 01:33] (´皿｀;)邪穂でごめん 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指定が出来なかったのでポインタを渡す仕様にしていました．

---

---

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

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