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/ 684 名前：662 mailto:sage [03/10/31 18:34] >>682 実数型を使っていないけど、いいのか? それとトレース表の人数のあとに改行が入っているけど それも問題無し? 685 名前：でたらめ mailto:sage [03/10/31 19:10] >>684 そやな、ごもっとも。(w でも、例とは違ってもええんちゃう？ それ言い始めると、「最低」の数字の 表示位置がずれてる気がするけど。 686 名前：でたらめ mailto:sage [03/10/31 21:16] ところで。私も詳しく知らないんだが。 実数型って比較が難しいの？ 687 名前：662 mailto:sage [03/11/01 09:12] >>685 おお、表示位置のずれは気づかなかった。という ことで、そこも直す必要があるぞ。>>682 >>686 10進と2進の変換誤差（浮動小数点の場合）と計 算誤差があるから、等号比較だと偽になる場合 が考えられる。あと、有効桁数の問題も気にとめ ておく必要が出る場合もあるし。 まあ、今回みたいに変数に入れた物を代入する 場合なんかは等号比較が出来る場合が多いけ ど、代入を計算と見なした場合は一度倍精度に してから単精度に戻すなどの処理が入って値が 変わる可能性があることを頭に入れておいた方 が破綻しづらくなります。 と言うことで私は整数型で実装出来るものは整数 型で実装するようにしています。 688 名前：でたらめ mailto:sage [03/11/01 10:59] >>687 そうか。誤差か。普段そこまでシビアな計算って したことないんで、気にしなかった。 うちも整数型がほとんどです。 今回の場合、まさか身長で小数点以下２桁以上が 必要になることはないので。入力した数値を ×10して整数型で保存・計算。表示の時に ÷10して実数型（例だと下一桁）っぽく 表示するのではあかんのやろか。 この処理、逆に面倒？誤差が大きくなる？ 689 名前：662 mailto:sage [03/11/01 11:44] >>688 私もその方が良いと思ったので「実数型にする必要があ るんだ?」と聞いたんだけど... でも「問題が実数型で入力 せよ」という事らしいから、実数型にする必要があるみた いですね。 それとも「入力が実数型」を受け付けると言うことだけで 良いのなら内部は整数で扱う方がプログラム的には楽 ですね。 計算することを考えるのなら、小数点以下2桁くらい取っ ておいた方が安全かも。 690 名前：でたらめ mailto:sage [03/11/01 13:19] 実数型で入力し・・・そうか！！やっぱり 入力さえ実数型なら、ええんちゃう？ 処理まで実数型とは書いてないもんな。 >>682 考えることは同じやね。うちも最初は小数点以下 ２桁と思ったけど、例が下１桁だったので、表示 するときの手間を考えて下１桁って書いてた。 そんなわけで。>682は、課題完了だな。 691 名前：682 [03/11/01 23:35] レス有難うございます！！ あとですね、>>676のwhile文のほうがあって身長に０を入力した場合に入力が終わるプログラムなんだけど、 そうすると出力のときに身長に０が出てしまうんですよ。どうすればいいですか？ 692 名前：でたらめ mailto:sage [03/11/02 00:30] >>691 forとwhileの基本的な違いではないか。 それを考えるのが課題のポイントじゃ。 693 名前：でたらめ mailto:sage [03/11/02 11:26] for １〜２回 　入力　１〜２回繰り返し 戻る repeat 　入力　１〜２回繰り返し、３回目に０を入力 ０以外は戻る 最後の入力は無効 で、ええんちゃうか。 そうすると問題は、のっけから０を入力された 場合のエラーセーフだけど。ま、やってみそ。 694 名前：デフォルトの名無しさん mailto:sage [03/11/02 23:35] if文は使ったらいけないのヵ begin 一つ目を入力; while i>0 do begin 出力; 入力; end; end. たぶん不合格。 ん？0を「入力した」場合に「入力が」終わる？ 695 名前：でたらめ mailto:sage [03/11/03 00:44] あ。すまぬ。>693は何か勘違いして書いてるかもしれん。 そか。repeatはuntilで、whileは違うか。 ま、気にするな。(w 696 名前：でたらめ mailto:sage [03/11/03 00:51] 罪滅ぼしに、ちょっとヒントを。 var next:boolean; ... next:=true; while next do begin 入力 if a=0 then next:=false; その他のチェック end; 697 名前：デフォルトの名無しさん mailto:sage [03/11/03 01:44] なんだその変なコード。 698 名前：でたらめ mailto:sage [03/11/03 02:31] >>697 まあ、でたらめっちゅー事で。気にするな。 よかったら、すばらしいサンプルを提示して やってくだされ。 699 名前：デフォルトの名無しさん mailto:sage [03/11/03 17:26] >>696 while true do　で　if 〜then break すればいいんじゃ？ 700 名前：でたらめ mailto:sage [03/11/03 18:13] >>699 前にも似たような話があったけど、 標準Pascalではbreakが使えないのよん。 701 名前：でたらめ mailto:sage [03/11/03 18:13] と、思って>700を書いたが。私の勘違い？ 702 名前：デフォルトの名無しさん mailto:sage [03/11/03 19:01] 1周目を必ず通すならrepeat使いなよ。 703 名前：でたらめ mailto:sage [03/11/03 19:11] >>702 >676 704 名前：デフォルトの名無しさん mailto:sage [03/11/03 20:04] ちょっくら問題作った奴に山嵐決めてくる。 705 名前：662 mailto:sage [03/11/03 23:08] ほんとだ、これは問題を作ったやつがバカ。 repeat - until を使った方が素直に組めるのに。 どうしてもwhileでやらなきゃならないのなら、入力 関数でも作って以下のようにするか... function 身長入力関数(var 身長) : boolean; begin 入力処理 end; while 身長入力関数(身長) do 　　身長追加処理; >>701 その通り、breakは無いです。元が教育用言語 だから、抜け道は作らないような構文になって いるんですよね（caseのelse、otherwiseも無い）。 706 名前：でたらめ mailto:sage [03/11/03 23:15] >>705 「課題」なんだから仕方ないよ。 Cだと、入力しつつ比較が出来るから、 関数を作る必要はないんだよね？確か。 breakが無いのはまだいいけど、 caseのotherwiseも標準にはないの？ これないと辛い。つーか、無理。 THINK Pascalはある。 707 名前：662 mailto:sage [03/11/04 00:21] >>706 いや、課題だからこそ変な制約を付けることなく作ら せるのがよい。まあ、一定の方向に仕向けるためだ ろうけど、それでプログラミング嫌いになったら教育 の価値無し。 otherwise（Delphiではelse）は無い。と言うかcase を使う時点で出てくる要素は判っているはずだから、 全て列挙しろと言うことでしょう。otherwiseに入れら れた処理を「あとで分類し直す」なんて事になったら 結構大変だというのは想像が付きそうだけど。 708 名前：６７６ [03/11/04 12:17] こんな強引な感じになりましたが一応例どおり動きました。 Program en9a(input,output); var i,n :integer; max,min :real; sin:array[1..100] of integer; begin write('人数は？'); readln(n); for i:=1 to n do begin writeln(i,'人目の身長を入力してください'); readln(sin[i]); end; max:=sin[1]; min:=sin[1]; writeln('人数 制御変数 身長 最高 最低 '); writeln(n); 709 名前：６７６ [03/11/04 12:18] i:=1; repeat IF sin[i]>max then max:=sin[i]; IF sin[i]<min then min:=sin[i]; write(' ',i,' ', sin[i]); IF sin[i]=max then write(' ',max:3:1); IF sin[i]=min then write(' ',min:3:1); writeln; i:=i+1; until i<>1; for i:=2 to n do begin IF sin[i]>max then max:=sin[i]; IF sin[i]<min then min:=sin[i]; write(' ',i,' ', sin[i]); IF sin[i]=max then write(' ',max:3:1); IF sin[i]=min then write(' ',min:3:1); writeln; end; end. 710 名前：６７６ Ｂのほう [03/11/04 12:19] Program en9b(input,output); var i,n :integer; max,min :real; sin:array[1..100] of integer; begin n:=1; i:=1; writeln(i,'人目の身長を入力してください'); readln(sin[i]); while sin[i]<>0 do begin i:=i+1; writeln(i,'人目の身長を入力してください'); readln(sin[i]); n:=n+1; end; max:=sin[1]; min:=sin[1]; writeln('人数 制御変数 身長 最高 最低 '); writeln(n-1); 711 名前：６７６ Ｂのほう２ [03/11/04 12:20] i:=1; repeat IF sin[i]>max then max:=sin[i]; IF sin[i]<min then min:=sin[i]; write(' ',i,' ', sin[i]); IF sin[i]=max then write(' ',max:3:1); IF sin[i]=min then write(' ',min:3:1); writeln; i:=i+1; until i<>1; for i:=2 to n-1 do begin IF sin[i]>max then max:=sin[i]; IF sin[i]<min then min:=sin[i]; write(' ',i,' ', sin[i]); IF sin[i]=max then write(' ',max:3:1); IF sin[i]=min then write(' ',min:3:1); writeln; end; end. 712 名前：でたらめ mailto:sage [03/11/04 13:11] あのー、sinの宣言を見ていると、 整数型なんですけど・・・ 小数入力しても、小数点以下が 切られてない？ （試してないので分からんけど） 713 名前：デフォルトの名無しさん mailto:sage [03/11/04 13:35] sinってのは正弦みたいでやだな。 714 名前：デフォルトの名無しさん mailto:sage [03/11/04 17:40] 右シフトさせるプログラムがどーしても 出来ない・・・・ 715 名前：デフォルトの名無しさん mailto:sage [03/11/04 18:13] 表示位置のずれはまだ直っていないようだが... あと ちゃんとコンパイルして実行して動くかどうか確認し て（もしくは不明点が見つかって）からアップしてくれ。 おまえのソースを全てチェックするほど暇じゃないん だ。そっちのソースを直すより自分で全て書いた方 が早そうだし。 >>714 環境（対象コンパイラ、機種、OS等）の必要情報が 判らないとコメント付けようがないぞ。 716 名前：デフォルトの名無しさん mailto:sage [03/11/05 00:46] >>715 例どうりに動いたと書いてあるよ。 717 名前：デフォルトの名無しさん mailto:sage [03/11/05 09:21] >>715 フリーパスカル　CPAD　win2K 718 名前：デフォルトの名無しさん mailto:sage [03/11/05 18:37] >>716 とても例どうりに動くとは思えんが、本人がそう言っている のならそれでいいや。 >>717 確かFreePascalはTurboPascalの構文が使えるんじゃな かったでしたっけ?それならshrで行けます。下記参考。ち なみに左シフトはshl。 var 　　a, b : byte; begin 　　a := 8; 　　b := a shr 1;　　(* シフトしたいビット数 *) 　　writeln(a, ' ', b); end. 719 名前：デフォルトの名無しさん mailto:sage [03/11/05 20:02] >>718 なんか配列使えって 言われちゃったので配列で無理やり作ってみた。 program sifuto(input,uotput); type suuji = array[1..10] of char; var a : suuji; x,y,n : integer; begin begin write('１０文字入力'); readln(a); end; write('いくつずらす？'); readln(x); for y:= 11-x to 10 do write(a[y]); for n:=1 to 10-x do write(a[n]); writeln() end. 720 名前：デフォルトの名無しさん mailto:sage [03/11/05 20:11] 今日配列使って作ったもう一個のﾔﾂ program sinnsuu(input,output); type suuji = array[1..4] of integer; var a : suuji; c, ans : integer; d : integer; begin Write('Decimal : '); Read(d); c := 0; while d <> 0 do begin c := c + 1; ans := d mod 2; d := d div 2; a[c]:=ans end; for c:= 4 downto 1 do write(a[c]); writeln() end. 配列ﾒﾝﾄﾞｲ なんか中途半端に理解した。 721 名前：デフォルトの名無しさん mailto:sage [03/11/05 20:20] >>720 0〜15の10進数しか変換できない。 722 名前：718 mailto:sage [03/11/05 22:26] >>719 俺、配列使えなんて一言も言ってないんだけど。 何か良く分かんない（理解出来ないやり取りの） 所に来てしまったようなので、落ち着くまでしばら く黙っていることにする。 723 名前：でたらめ mailto:sage [03/11/05 22:53] 学校の課題なんでないかい？ 配列使え、っていう。 724 名前：718 mailto:sage [03/11/05 23:51] >>723 課題は課題で良いんだけど、「他の人に分かって もらう書き方」ってのがあると思うんだ。特にこうい う場では。それと「自分で出来るだけ努力する」っ てのも大事だし。 それをしないでソース垂れ流し（それもちょっと?の） されるんで、もう私には理解不能。だからこの件 （と思われるもの）には黙ることにしました。 725 名前：でたらめ mailto:sage [03/11/06 01:21] ところで。右シフトって何？ ２で割ればいいんじゃないの？ 726 名前：デフォルトの名無しさん mailto:sage [03/11/06 21:54] >>725 マイナスの値を右シフトと2で割ることをしてみれば、 違いが分かると思う。それと、算術計算とビット操作 はやっぱり別の話だから。 727 名前：でたらめ mailto:sage [03/11/06 23:03] マイナスか。それは考えなかった。 でも、ビット操作なんてアセンブラでも使わない 限り必要ないんじゃないかと思うけど。 Cならいざしらず、Pacalでは意味ないよねぇ。 課題じゃしょうがないけど。 728 名前：デフォルトの名無しさん mailto:sage [03/11/06 23:16] >>727 だってグラフィックフォーマットとか通信プロトコルなんかで 「ビットで状態を表す」物って結構多いから、ビット操作がで きないと辛い場合って結構あるよん。 そういう時までアセンブラを持ち出すのはちょっと大仰だと 思う。高級言語でサクサク組めた方が何倍もカンタン。 729 名前：でたらめ mailto:sage [03/11/07 00:00] >>728 そうか。なるほど。 ビット操作はマックならtoolboxにあるので、 THINK Pascalでもコマンド一発。 730 名前：デフォルトの名無しさん [03/11/11 16:54] a<>b<>c みたいなことをやらせるには どうしたらいいのでしょう… 配列を使った課題がT-T 731 名前：デフォルトの名無しさん mailto:sage [03/11/11 19:50] a <> b and a <> c 732 名前：デフォルトの名無しさん mailto:sage [03/11/11 19:59] >>730 a=cでもええのか？ >>731 b=cの可能性はあるな そういう意味じゃない？ 733 名前：デフォルトの名無しさん mailto:sage [03/11/11 20:04] a <> b and a <> c and b <> c 等しくはならんが気休めにどうぞ。 734 名前：デフォルトの名無しさん mailto:sage [03/11/11 22:03] andの方が優先度高い罠 735 名前：デフォルトの名無しさん mailto:sage [03/11/12 02:04] そもそも、>730の課題は何がさせたいのだ？ aとbとcがいずれも異なる値であることを 確認すればいいの？ にしては、配列を使うって・・・意味不明。 736 名前：デフォルトの名無しさん mailto:sage [03/11/12 23:39] >>735 意味を取ろうとするから意味不明。気にしなければOK。 課題を出している方はまともな課題を出していて、ここで 聞いているのの頭が「意味不明」なだけのような気がする （もしくは本気で訊いていないのか）。今までの経緯から すると。 意味が通る訊き方をすれば、それなりに答える気になる のに。 737 名前：デフォルトの名無しさん mailto:sage [03/11/14 16:34] 配列を使ったプログラムの途中にa<>b<>cという判定が必要な部分があるとか 738 名前：デフォルトの名無しさん [03/11/15 22:16] すいませんご教授おねがいします。 画面を再構成させる方法は存在するのでしょうか？ 存在するのでしたら教えてください。 学校の宿題を作ってるとき、再構成しないと見栄えが悪いもので… 739 名前：デフォルトの名無しさん mailto:sage [03/11/15 23:50] >>738 再構成ってどんなこと? 宿題と言われてもこっちは何も 分かっていないんだと言うことを理解して、詳しく説明し てくれないと何の手助けも出来ないんだが。課題の内 容をこと細かく説明する必要は無いんだけど、「どんな ことをやろうとして、どうなってしまったから、こうしたい」 くらいの説明がないと何とも。 あと、コンパイラ依存? それとも汎用? OSに関わりのあ る（と思われる）場所は無いのかな? 見栄えを求めるとしたらどのレベル? 事によると宿題の 域を大幅に超えるかもしれないので、どれくらいの事を したいのか分からないと答え辛いかも。 740 名前：デフォルトの名無しさん mailto:sage [03/11/16 00:16] >>738 まるで 「僕のお小遣いで買いに行ける一番美味しいケーキはどれ？」 っていう質問に答えるようなものだな。 741 名前：738 [03/11/16 03:27] すいません、プログラミング初心者なので、 質問の仕方すらよくわかってません(/_<。) delphi6のコンソールで、文字列がずらずらと繰り返えされ 見難くなるので、画面の文字をいったん全部消去する 方法を教えてもらいたいのですが… 正直どう説明すればいいのかすら分かりません(-_-;) 742 名前：デフォルトの名無しさん mailto:sage [03/11/16 13:22] >>741 Delphi6と言うことはWin32コンソールもしくはDOS窓に なるのか。OSによって対応は違いますね。 16ビット系（Win95からMEまで）なら「ANSIエスケープ シーケンス」が使えると思うのですが、32ビット系（NT から2000,XPまで）はこれが使えないので「いちいちコ ンソールと文字モードのサポートにあるAPIで制御」す るか、改行で区切って綺麗に見せて出力するかしか 無いですね。 743 名前：738 [03/11/16 15:35] >>742 そうですか…きっぱりあきらめることにします。 初心者の馬鹿な質問に答えて下さいまして本当にありがとうございました 744 名前：デフォルトの名無しさん mailto:sage [03/11/17 19:13] >>738-743 pageコマンドは？ (A)コンソールに対して 　writeln('abc'); 　page; 　writeln('xyz'); こうすると（THINK Pascalの場合） （abcが表示された後、画面消去するので） コンソールにxyzだけが表示される。 (B)ファイルに対して 　var f:text; .. 　writeln(f, 'abc'); 　page(f); 　writeln(f, 'xyz'); こうするとabcとxyzの間に（改ページ）が挿入される。 一般的なPascalの教科書に出ているコマンドだよ。 745 名前：デフォルトの名無しさん [03/11/17 22:23] >>744 delphiのコンソールじゃ出来ないんじゃない？ 746 名前：デフォルトの名無しさん mailto:sage [03/11/17 22:40] >>744 残念ながらBorlandのPascal言語系（Delphiだけで なくTurboPascalから）はPageはサポートしていな かったりする。 747 名前：744 mailto:sage [03/11/17 23:42] そうなんだ。 748 名前：デフォルトの名無しさん mailto:sage [03/11/18 01:51] 全く紛らわしいことしやがって。 749 名前：デフォルトの名無しさん mailto:sage [03/11/18 03:17] TurboPascal風のコンソールユニット www.slis.keio.ac.jp/~anakata/filearea/filearea.html から Win32Crt.pas (w32crt03.lzh) を落として、解凍後、Win32Crt.pasを Libフォルダにコピーする。 古いユニットなので、Delphi6では未定義の識別子 : 'KeyEvent' という エラーが出るから、KeyEventという文字列を全てEvent.KeyEventに 置き換える。 これで、TurboPascalのCRTユニット風の関数が使えるようになる。 GotoXY, WhereX, WhereYがゼロオリジンなので、互換性を考えれば ソースをいじったほうがいいかもしれない。 750 名前：749 mailto:sage [03/11/18 03:18] とりあえず、簡単なサンプル(Delphi6で確認）。 何かキーを押すと終了する。 program Project2; {$APPTYPE CONSOLE} uses Windows, SysUtils, Win32Crt; var   f, b: Integer; begin   for b := 0 to 15 do   begin     ClrScr;     for f := 0 to 15 do     begin       TextColor(f);       TextBackground(b);       gotoXY(f * 2, f);       Writeln('Test String [', WhereX, ',', WhereY, ']');       Sleep(1000);       if KeyPressed then         Exit     end   end end. 751 名前：デフォルトの名無しさん [03/11/18 23:36] ｎ個の値 a[0] , a[1] , ・・・ , a[n-1] が与えられているとき、 a[i]の順位 r を求めるプログラムを書いてください。 ただし、順位＝（自分より大きいものの個数＋１）です。 また、プログラム中に使用する名前の型、属性、意味内容を明示し、 実際の実行例もお願いします。 752 名前：デフォルトの名無しさん mailto:sage [03/11/19 00:00] 順番に調べればいいんじゃない。 x := 1; for i := 0 to n-1 do if a[i] > a[r] then x := x + 1; 753 名前：デフォルトの名無しさん mailto:sage [03/11/19 00:39] >また、プログラム中に使用する名前の型、属性、意味内容を明示し、 >実際の実行例もお願いします。 それくらいは自分で考えた方が良いぞ。属性ってそもそも何? 754 名前：デフォルトの名無しさん mailto:sage [03/11/19 10:04] とても素朴な疑問なんだが。 ＞ｎ個の値 a[0] , a[1] , ・・・ , a[n-1] が与えられているとき この「与えられているとき」ってのを見る度に悩むんだな。 サンプルをどうしよう？って。 programなら、入力ルーチンを作るか、ファイルから読み込むか、 constで適当な値を作るか。 procedureやfunctionだけ作るとしても、pascalでは配列を 関数には渡せないよね？ それとも、a[0]...っていうグローバル変数があるものと してもいいけど、それも美しくないし。 755 名前：デフォルトの名無しさん [03/11/19 11:17] >>754 ポインタで渡せば？ 756 名前：デフォルトの名無しさん mailto:sage [03/11/19 11:37] >pascalでは配列を関数には渡せないよね？ いや…渡せるけど procedure A(B: array[C..D] of Integer); みたいな。 Delphiならprocedure A(B: array of Integer); で範囲はLow/Highで取る。 757 名前：デフォルトの名無しさん mailto:sage [03/11/19 12:46] いや、勘違いだったら失礼。 >>756 そのC..Dが変数でもできたっけ？ >>755 ポインタで渡すのが確実か。確かに。 758 名前：デフォルトの名無しさん mailto:sage [03/11/19 18:31] >>754 渡せるぞ。ちゃんと宣言すれば。以下参照。 Type 　　TIntArray = array[LO..HI] of integer; var 　　A : TSomeArray; procedure DoSomething(B : TIntArray); として（LOとHIは定数で適当に宣言されているとする）、 　　DoSomething(A); とすればちゃんと呼び出せるぞ。 >>756 手続き宣言の場所で直接配列を宣言すると、処理系に よっては「違う型と見なされて配列を渡せない」事態にな る可能性があるぞ。これは実装依存らしいから、絶対大 丈夫だとか絶対ダメだとか言えないのが面倒。 >>757 変数はダメです（処理系によっては大丈夫かも）。標準で は定数しか受け付けません（というか実行時に大きさが 決まる配列自体が使えないはず）。 759 名前：756 mailto:sage [03/11/20 07:38] >>758 いや、私が言いたかったのはオープン配列。 規格はよく知らないけど、ものの教科書では procedure A(B: array[C..D] of Integer); で、任意の長さの配列を渡せるらしい。C..Dには実引数の添え字範囲が入る、らしい。 (もっとも、対応しているコンパイラは知らないけどね) 追記しているようにTP系(FreePascal/Delphi)では同じ機能はあっても構文が違う。 760 名前：デフォルトの名無しさん mailto:sage [03/11/20 08:44] たぶん、環境に依存しないやり方としては、>758が 正しいと思う。見て、おぼろに思い出した。 だけど、わざわざ型を指定するのって、面倒なんだよね。 761 名前：デフォルトの名無しさん mailto:sage [03/11/20 18:20] >>759 あー、オープン配列は使ったことがなかったので、完全に 忘れていました。書かれて初めて「そういうのがあったっけ なぁ」という感じ。 私はオープン配列を使うような場面ではTListを使うので使っ たことがありません。オープン配列を使わなきゃならないよ うな手続きなんかも書かないし。 762 名前：デフォルトの名無しさん [03/11/20 22:44] Why Pascal is Not My Favorite Programming Language www.lysator.liu.se/c/bwk-on-pascal.html 誰か Why Pascal is My Favorite Programming Language を書いてください。 763 名前：デフォルトの名無しさん mailto:sage [03/11/21 00:07] >>762 いいじゃん、放っておけば。大体用途の違う言語を 比較して「こっちが好きだ」って書いているような人 にろくなのはいないから。 分かっている人は「その言語はそういう用途には向 かない」とか「そういうことを目的として設計された言 語ではない」と書くと思う。 764 名前：デフォルトの名無しさん mailto:sage [03/11/21 11:38] 俺はタイプ量が多くなっても if (hoge)と括弧を書くよりは if hoge thenと書くほうが好きだ。 好きなところってそこしか思い浮かばなかった。 嫌いなところばっかり浮かんで来る・・・。 765 名前：デフォルトの名無しさん mailto:sage [03/11/21 12:19] 部分範囲型、集合型、配列の関係が好きだ… C系の言語でこれらの概念を持ってるのがサッパリ無いのはどういうことか 766 名前：デフォルトの名無しさん mailto:sage [03/11/21 14:40] ビットで済ましているんだろ。 767 名前：デフォルトの名無しさん [03/11/22 11:26] お願いします 英単語を入力して、そのつづりを逆順にした文字列を作りなさい。 実行例 　　　　英単語は？　　beautiful 　　　　逆順にしたつづりは　　lufituaeb できそうだと思ったんだけど挫折・・・ 768 名前：デフォルトの名無しさん mailto:sage [03/11/22 13:48] function ReverseString( S : String ) : string; var I, J : Integer; begin J:=Length(S); SetLength( Result, J); for I:=1 to J do Result[i]:=S[J+1-I]; end; 実行してないんで動くかどうかはシラネ 769 名前：デフォルトの名無しさん mailto:sage [03/11/22 15:47] program rev; var st : string; i : integer; procedure swap(var a, b : char); var t : char; begin 　　t := a; a := b; b := t; end; begin 　　readln(st); 　　for i := 1 to length(st) div 2 do 　　　　swap(st[i], st[length(st) - i + 1]); 　　writeln(st); end. こんな感じ? 770 名前：デフォルトの名無しさん [03/11/22 17:51] 回すのは、半分くらいでいいのでは？ 771 名前：デフォルトの名無しさん mailto:sage [03/11/22 17:52] あっ、半分になってるよね。スレ汚しすまん。 772 名前：デフォルトの名無しさん mailto:sage [03/11/22 18:20] ■フォーマット xx xx xx xx -- -- ----- Ａ Ｂ　Ｃ Ａ... アイテムコード Ｂ... 強化パラメータ ( 9C < 0 < 64 ) Ｃ... 使用回数 ( 00 01 < E8 03 < 00 00 ) ※00 00 : 無制限 これどういういみでつか?? 773 名前：デフォルトの名無しさん mailto:sage [03/11/22 19:12] >>768 funciton ReverseString(S : String) : string; var i : integer; begin 　　for i := length(S) downto 1 do 　　　　result := concat(result, S[i]); end; これで良い気がする。 774 名前：768 mailto:sage [03/11/23 23:25] ほぉ。concat関数ですか。知りませんでした。 でも >function Concat(s1 [, s2,..., sn]: string): string; >説明 >Concat 関数を使うと，任意の数の文字列を結合できます。各パラメータは文字列型の式です。結果はすべての文字列型パラメータ>の結合です。 >次に示すように，正符号演算子（+）を使っても Concat 関数と同じ結果が得られます。 >S := 'ABC' + 'DEF'; >参考正符号演算子の方が Concat よりも処理が速くなります。 正符号演算子では文字列の加算の「度に」文字列分のメモリの確保と開放が行われてる(と思う)ので 前もってメモリを確保してある>>768のほうが速いと思われます。 (文字列が長くなるに従って差は大きくなると思います。 つまり、 速度を求めるなら>>773氏の方法より>>768のほうがよろしいかと。 実際に試してないんで知らないけど。 添字の計算部分の差で負けたりして(w 775 名前：デフォルトの名無しさん mailto:sage [03/11/24 00:19] >>774 うーん、確かに速度的には遅くなるかもしれないけど、 この関数をそんなに頻繁に使うとは思わないので、な るべく単純な形の方が分かりやすいような気がする。 あと、以下の形にすると、日本語に対応するのも楽。 function ReverseString(S : string) : string; var 776 名前：775 mailto:sage [03/11/24 00:23] 途中で書き込んでしまった。 function ReverseString(S : string) : string; var i : integer; begin 　　for i := 1 to length(S) do 　　　　result := concat(S[i], result); end; 777 名前：デフォルトの名無しさん mailto:sage [03/11/24 17:04] 再帰バージョン 　function reverseString (a: string): string; 　begin 　　if length(a) <= 1 then 　　　reverseString := a 　　else 　　　reverseString := concat(reverseString(omit(a, 1, 1)), a[1]); 　end; omitは　omit(文字列,位置,文字数)　で指定した部分を削除した文字列を返す， THINK Pascal の組み込み関数。 778 名前：デフォルトの名無しさん mailto:sage [03/11/24 18:09] >>775 単純さを求めるとなると手っ取り早い日本語対応は function ReverseString(S : widestring) : widestring; では?(w >>776 >result := concat(S[i], result); result := S[i] + result; むしろこちらのほうが単純(直感的)かと。 ただconcat関数に慣れてないだけかも知れんが… 779 名前：デフォルトの名無しさん mailto:sage [03/11/24 18:34] >ただconcat関数に慣れてないだけかも知れんが… 文字列連結に「+」が使える事にかえって驚く。 resultというのもDelphi独自の規格だよね。 780 名前：デフォルトの名無しさん mailto:sage [03/11/24 23:12] >>778 widestringを使うのは環境にだいぶ依存しそう ですけど（確かに単純と言えば単純だけど）。 concatを使うのはあくまで私のやり方ですので、 +の方が分かりやすければそちらで問題ありま せん。 781 名前：デフォルトの名無しさん [03/11/25 00:22] >>779 Turbo Pascalからの仕様ですね。 782 名前：デフォルトの名無しさん [03/11/25 08:07] おながいします 問 正の整数を読み込み、30桁の数になるまでそれを2倍、2倍にしていき、 30桁の数になったら出力する。 桁数ってどうだっけ・・・ 783 名前：デフォルトの名無しさん mailto:sage [03/11/25 09:34] program Hoge; {$APPTYPE CONSOLE} var bignum : array [1..30] of Integer; function keta: Integer; var i : Integer; begin i := 30; while (bignum[i] = 0) and (i > 1) do i := i - 1; keta := i; end; { keta } procedure nibai; var i : Integer; begin for i := 1 to 30 do bignum[i] := bignum[i] * 2; for i := 1 to 29 do begin bignum[i+1] := bignum[i+1] + bignum[i] div 10; bignum[i] := bignum[i] mod 10; end;end; { nibai } procedure print; var i : Integer; begin for i := 30 downto 1 do Write(bignum[i]);end; { print } procedure init; var i : Integer; begin for i := 2 to 30 do bignum[i] := 0; bignum[1] := 1;end; { init } begin init; while keta < 30 do nibai; print; end. 784 名前：デフォルトの名無しさん mailto:sage [03/11/25 09:49] procedure init; var i : Integer; begin Read(i); bignum[1] := i; for i := 1 to 29 do begin bignum[i+1] := bignum[i] div 10; bignum[i] := bignum[i] mod 10; end; end; { init }

---

---

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

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