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/
401 名前:399 mailto:sage [02/11/25 20:03] 同じ文字なんだけど、キーボード上に↑は無いので^を使ってるし、 印刷して^は見にくいので↑になっていると思ふ Pascalが生まれた頃は2バイト文字なんて一般的じゃ無かった筈だし
402 名前:398 [02/11/25 20:24] 普通のPascalの↑は、かな変換でのを使用していいってことですよね?
403 名前:デフォルトの名無しさん mailto:sage [02/11/25 21:22] アフ?
404 名前:デフォルトの名無しさん [02/11/25 21:23]
405 名前:387 [02/11/25 23:08] 皆さん解説蟻が鯛です。 とても分かりやすくて感謝してます。 function intersection(S1,S2:list):list; var s,p:list; begin interlist(S);p:=S1↑.next; while p≠nil do begin if search(p↑.item,S2)≠nil then insert(S,p↑.item); p:=p↑.next; end intersection:=S end において、pの必要性がわかりません。 p:=S1↑.next;の部分を消して、以下pをS1としても駄目なんでしょうか?
406 名前:デフォルトの名無しさん [02/11/26 00:01] >>405 言ってることよく分からんよ。
407 名前:デフォルトの名無しさん mailto:sage [02/11/26 00:09] S1, S2は引数にvarが指定されていないので、変更不能だと思いますが、それはさておき、 線形リストはリスト全体を保持しておくために先頭のレコードを指すポインタが必ず必要です。 この値を変更して途中のレコードを指すようにしてしまうと それ以前のレコードを参照する手段が完全に失われてしまいます。 S1 これなら全て参照可能 ↓ 【データ|next】→【データ|next】→【データ|next】→【データ|nil=終端】 S1を変更した場合 S1 ↓ 【データ|next】→【データ|next】→【データ|next】→【データ|nil=終端】 ↑ このレコードが参照不能になる disposeしない限りレコードはメモリ上に残っていますから 参照不能なメモリブロックがメモリ上に残るという まずい事態になります。(メモリリーク?) 線形リストの処理は 先頭を示すポインタはそのままに、 別なポインタ変数を用意して その値を変更して順次リストをたどっていきます。 で、405のような処理を書いた場合は 一度きりなら動くかも知れないが 以降、このリストを参照することができなくなる、というのが結論かな。
408 名前:補足 mailto:sage [02/11/26 00:11] 線形リストはレコードの追加、削除ができますが その場合でも常に全体を参照できる様、 例えば先頭にレコードを追加する場合は 変更後の先頭のレコードをさすようにポインタを変更します。 先頭のレコードを削除する場合は 次のレコードをさすようにポインタの値を変更します。 ところでプログラム中の4行目のp:=S1↑.next; は もしかしたら p := S1 ではないのかと。 S1の一番はじめのレコードが無視されているような気がします。
409 名前:デフォルトの名無しさん [02/11/26 00:38] >>408 つまり、pはS1の値を保持するためにあると言うことかな? >もしかしたら p := S1 ではないのかと。 確かにそんな気がします。 S1の先頭にダミーセルがあることにしてるのかなあ?
410 名前:407 & 408 mailto:sage [02/11/26 00:59] Pの役割はイメージ的には配列の要素を参照する時のインデックスみたいなものかと。 for i:=1 to 10 do if a[i] <= then xxxx; のiがP、aがS1とか。(かなり違うが) 価を自在に変えながらリスト中のレコードを次々と指し示していく役割をするポインタ(P)と 全体を保持しておくために常に先頭を指すポインタ(S1)は 役割が違うと考えた方がいいかも。(追加、削除を伴わない処理の場合)
411 名前:ああ [02/11/26 07:32] 恐らくばりばり既出ネタで恐縮なんですが、 今私は数学系の学部に在籍しておりまして、研究上アルゴリズムや素因数分解 等をコンピュータ上で行わなければならない必要性が出てきました。 時間の関係上、手っ取り早くそのような計算が自在にできるようになりたいのですが、 当方、残念ながらコンピュータはネットする程度でプログラムやC言語、UNIX等の知識は 限りなく0に近いです。。何からはじめればよろしいでしょうか。御指導願います。
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====================================================== 2ちゃんねるのお勧めな話題と ネットでの面白い出来事を配送したいと思ってます。。。 ===============================読者数: 138720人 発行日:2003/1/9 年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。 そんなわけで、年末に予告したIP記録ですが実験を開始しています。 「2ちゃんねる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] 2chのIDてIPを変換してるんだっけ? だったら、全板強制IDにして暗号キーだけ保存しておけばいいんじゃないの?
456 名前:デフォルトの名無しさん mailto:sage [03/01/10 22:55] >>735 書き方がネタっぽすぎw
457 名前:デフォルトの名無しさん mailto:sage [03/01/11 00:12] ex.2ch.net/test/read.cgi/korea/1042022029/ 在日のアサピーが自ら2CHにブラクラ貼ったと自白www 調子に乗ってアタック開始、しっかりログ取られて通報すました。 祭り中です。
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====================================================== 2ちゃんねるのお勧めな話題と ネットでの面白い出来事を配送したいと思ってます。。。 ===============================読者数: 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] まあ、匿名じゃなきゃできんような自由な言論なんてたかが知れてるしな。 今までの2ちゃんみてりゃ一目瞭然。 匿名のかさをきて暴言はいてる奴らが減っていいかも。
464 名前:デフォルトの名無しさん mailto:sage [03/01/11 16:02] じゃ、おまえが2ch来なければ良い。それだけのこと。
465 名前:デフォルトの名無しさん mailto:sage [03/01/11 16:07] ウェー ハッハッハ PART 2 live2.2ch.net/test/read.cgi/news/1041867442/
466 名前:デフォルトの名無しさん mailto:sage [03/01/12 00:09] ネオむぎを超えるわけない 犯人が17歳以下なら話は別だが
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 名前:レイホウ@6歳 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でも使った方が楽ちんな予感。