Pascalの宿題は俺にやらせろ！！Part2

1 名前：デフォルトの名無しさん mailto:sage [2006/01/12(木) 00:45:25 ] 教育用（？）プログラムPascalの宿題をやって頂くスレ ■丸投げOK ■全く分かってない阿呆も放置しないで優しく対応 ■他言語はよそ逝け( ﾟДﾟ)ｺﾞﾙｧ ■DelphiもTurbo Pascalも完全対応 【本家】 www.borland.co.jp/delphi/ 【前スレ】 pc8.2ch.net/test/read.cgi/tech/1089719714 【関連スレ】 くだすれDelphi（超初心者用）その１5 pc5.2ch.net/test/read.cgi/tech/1087823906/l50 Pascal の初心者用の質問・相談所 pc5.2ch.net/test/read.cgi/tech/1009903617/l50 【Delphi初心者】今から始めるDelphi Part01 pc5.2ch.net/test/read.cgi/tech/1062422335/l50 357 名前：デフォルトの名無しさん mailto:sage [2006/07/10(月) 06:41:46 ] >>354 >>348 を改良すれば作れるよ。 358 名前：デフォルトの名無しさん [2006/07/14(金) 01:40:21 ] 課題内容： 新幹線に乗るために阪急電鉄・石橋駅から梅田経由で地下鉄御堂筋線・新大 阪駅まで行きたいとする．新大阪駅に到着したい時刻を入力すると，石橋駅 で何時何分発の列車に乗ればよいかを教えてくれるプログラムを以下の３段 階に分けて作成せよ．ただし，以下の２つの条件を満たすこと． 条件： (1) 手続きもしくは関数を用いること． （プログラムを分かりやすくするため） (2) 少なくとも以下の情報を出力すること． （ユーザが使いやすいように，出力を工夫すること） ・阪急電鉄・石橋駅の発車時刻 ・阪急電鉄・梅田駅への到着時刻 ・地下鉄御堂筋線・梅田駅の発車時刻 ・地下鉄御堂筋線・新大阪駅への到着時刻 ． 359 名前：デフォルトの名無しさん [2006/07/14(金) 01:41:18 ] 段階： (1) 平日ダイヤのみに対応する．阪急は急行しか利用しない（普通列車な ど，急行以外の列車は無視する）． (2) 段階 (1) に加えて，阪急の全列車（特急，特急日生エクスプレス， 通勤特急，急行，準急，庄内・曽根通過待ちなしの普通，庄内・曽根 通過待ちありの普通）を利用可能にする．ただし，普通列車が後発の 特急などに追い越される可能性は無視する（追い越される普通列車を 出力してよい）．さらに，土曜・休日ダイヤに対応する． (3) 段階 (2) に加えて，後発の特急などに追い越される普通列車でなく， 後発の特急を出力するようにする 360 名前：デフォルトの名無しさん [2006/07/14(金) 01:52:31 ] 358、359の者なんですが、PASCALの課題で下のような時刻表を与えられていてこれ以外にもたくさんあって、 配列に一つ一つ打ち込むにはあまりに多すぎるんで、どうにかファイルを呼び出したいんですが、 教科書のようなものを読んでみていじってみても上手くいきません。 どなたか少しわかりやすく説明していただけたら嬉しいんですが… 361 名前：デフォルトの名無しさん [2006/07/14(金) 01:53:44 ] 急行 6 4 22 33 44 51 7 1 829 49 56 9 7 16 27 39 49 59 10 9 19 1558 16 8 18 28 38 48 58 17 7 16 26 36 46 56 18 6 17 26 36 48 57 19 8 17 28 37 48 57 20 8 17 28 38 48 58 21 8 18 28 38 48 58 22 8 18 28 38 48 23 2 14 362 名前：デフォルトの名無しさん mailto:sage [2006/07/14(金) 03:55:01 ] >>318 リストだけに超絶に難しい。 >>360 >>228-232 あたりに載ってる。 実用的な問題ですね。 363 名前：デフォルトの名無しさん mailto:sage [2006/07/14(金) 12:47:24 ] 1行ずつスキャンして、ansiナントカで解析していけばよい 364 名前：デフォルトの名無しさん [2006/07/14(金) 23:49:29 ] 二分探索法を手続き宣言して使用する場合、 procedureとfunctionのどちらを使えば良いでしょうか？ また、それらに処理に必要なデータを引数として渡すようにする場合、 どういった形式が望ましいのでしょうか？ いろいろ試してみましたが、うまくいかないので… 応えて頂けると幸いです。 365 名前：デフォルトの名無しさん mailto:sage [2006/07/15(土) 00:53:39 ] とりあえずCとかのサンプルコードを移植したら? それからDelphiスタイルに変えればいいかと。 366 名前：デフォルトの名無しさん mailto:sage [2006/07/15(土) 08:25:12 ] Pascal過疎ってるなぁ。 367 名前：デフォルトの名無しさん mailto:sage [2006/07/15(土) 15:01:00 ] >>364 procedure（手続き）とfunction（関数）は値を返すか返さないか の違いだけしかないから、値を返したいんだったらfunctionにして 値が要らないんだったらprocedureにすればいいのでは。 処理に必要なデータは渡さなきゃならないけど、どうやって渡す かは実装する人の自由だから、好きにすればいいと思う。 368 名前：デフォルトの名無しさん [2006/07/15(土) 22:06:51 ] 長文で失礼します。 (1) 配列にしまわれたいくつかの整数をデータとして， 棒グラフを作成するプログラムをかけ。 （入力データ x は 0<= x <=100 をみたすとする。） Hint: 以下の作業を，i=1 から i=n まで， n 回繰り返す （ for 文や repeat 文を用いる） 作業： x 方向に位置をずらしながら， a[i] に応じた高さの細長い長方形を n 個描く 50 未満のデータに対する「棒」は赤色で表示し， 50 以上のデータに対する「棒」は青色で表示するようにせよ。 という課題なのですが 369 名前：デフォルトの名無しさん [2006/07/15(土) 22:07:29 ] var n : integer; a : array[1..20] of integer; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(Edit1.Text); n := n + 1; a[n] := StrToInt(Edit1.Text); Edit1.Clear; Edit1.SetFocus; end; procedure TForm1.Button2Click(Sender: TObject); var i : integer; begin with PaintBox1.Canvas do begin for i= 1 to n do //棒グラフ作成？ 370 名前：３６８　３６９ [2006/07/15(土) 22:08:25 ] end; procedure TForm1.Button3Click(Sender: TObject); begin Memo1.Clear; Edit1.Clear; Edit1.SetFocus; end; end. という状態です。 ここまでに誤りがあるのか、また、肝心の空欄部分はどうすればいいか 教えていただけたら幸いです。 371 名前：デフォルトの名無しさん mailto:sage [2006/07/15(土) 22:17:31 ] 垢と阿保はどうすれば出ますか？ 372 名前：デフォルトの名無しさん mailto:sage [2006/07/15(土) 22:50:27 ] >>368-370 nは初期化されている? PaintBox1.Canvasはクリアされている? 棒グラフを書く前に座標軸を書かなきゃ。 棒グラフはまず「グラフ用紙に自分出てで書いて」みれば、どう 書けばいいか分かると思う。その書く手順そのままCanvasに 書けばいいだけ。 手で書く時に位置情報（ピクセル単位）を意識しながら書けば 簡単に出来ると思う。 373 名前：３６４ mailto:sage [2006/07/16(日) 10:18:47 ] いくつかのご指摘ありがとうございます。 なんとかがんばってみます。 374 名前：デフォルトの名無しさん [2006/07/17(月) 01:53:46 ] C言語で書かれたプログラムをpascalに変換する何かってないですか？ 375 名前：デフォルトの名無しさん mailto:sage [2006/07/17(月) 02:53:35 ] Cを読む事が出来、pascalを書く事が出来る人間の脳と手 376 名前：デフォルトの名無しさん mailto:sage [2006/07/17(月) 10:13:21 ] 簡単だから自分で覚えた方がいいよ Pascalがいかに面倒かってよく分かる 377 名前：デフォルトの名無しさん [2006/07/17(月) 11:21:48 ] すごく間抜けた質問かもしれませんが pascalのプログラムを家で作成したいのですがどこか置いてるサイトとかありますか？ 378 名前：デフォルトの名無しさん mailto:sage [2006/07/17(月) 11:32:06 ] Pascalコンパイラがどこにあるかってこと？ 379 名前：デフォルトの名無しさん mailto:sage [2006/07/17(月) 11:36:13 ] www.jp.freepascal.org/download.html 16bit だったような気がするけど 380 名前：デフォルトの名無しさん mailto:sage [2006/07/17(月) 11:39:35 ] 純正 pascal にこだわらないなら Delphi / kylix あたりでいいんじゃない？ 381 名前：377 [2006/07/17(月) 11:53:57 ] >>379>>380 どうもありがとう。 >>379のはなんか落とせないから>>380のやつみてみます。 382 名前：デフォルトの名無しさん mailto:sage [2006/07/17(月) 11:55:10 ] pascalのコンパイラで有名なのは １、Delphi 6 www.vector.co.jp/soft/win95/prog/se205882.html 　　登録が必要　www.borland.com/downloads/download_delphi.html ２、FreePascal 　www.jp.freepascal.org/ 　IDEで有名なのはlazarus　www.lazarus.freepascal.org/ ３、HelloPascal 　members.jcom.home.ne.jp/yurizaka/soft/ ４、カベソン www.tokumaru.org/plang/cabezon/cabezon.htm ５、gpc 　GNU Pascal Compiler 383 名前：377 [2006/07/17(月) 12:22:37 ] >>382 すごく参考になりました。どうもありがとう。 384 名前：デフォルトの名無しさん mailto:sage [2006/07/18(火) 08:53:43 ] うわーカベソンで今もあったんだ。 なつかしー 385 名前：デフォルトの名無しさん mailto:sage [2006/07/18(火) 20:58:22 ] Pascalとか、わけわかないっすお 386 名前：デフォルトの名無しさん [2006/07/18(火) 22:08:05 ] for文くらいまでしか理解してません、もうﾀﾞﾒﾎﾟorz 誰か助けてください。。。○投げですいませんOTL (i)　自然数(整数)で表記される「キー」、および、8文字までの文字列で表現される「データ」を、2分木の構造で管理するプログラムであること。 *常に左右のバランスを保つAVL木であること。 (ii)　プログラムの実行開始直後に、可能な操作のメニューが表示され、自在に選択でき、1つの操作が実行された後、そのメニューが再表示され、入力待ち状態になること。 (iii)　「キー」「データ」の値を入力することによりデータの登録ができること。 (iv)　二重登録を防止し、その際警告メッセージを出すこと。 (v)　「キー」の値の入力することにより、データの削除ができること。 (vi)　登録されていないデータを削除しようとすると、メニューに戻る前に警告メッセージを出すこと。 (vii)　「キー」の値を入力することにより、そのキーの値をもつデータを参照できること。 (viii)　2分木の構造(頂点間の接続関係)を表示できること。 (ix)　登録されている全データを、キーの小さい順に列挙できること。 (x)　2分木内の各頂点の(木の根からの)深さを表示できること。 --------------------------------------- *はできるとボーナス点 要解説書。手続きの処理内容、変数の説明など 解説書〆7/24 プログラムソース〆7/21 orz 387 名前：デフォルトの名無しさん [2006/07/18(火) 22:11:39 ] ↑ Pascalです。。。 388 名前：デフォルトの名無しさん mailto:sage [2006/07/18(火) 22:15:41 ] recordを使う 389 名前：デフォルトの名無しさん mailto:sage [2006/07/18(火) 22:21:03 ] 俺もレポートやんないと 390 名前：デフォルトの名無しさん [2006/07/22(土) 13:26:54 ] これpascalにしてください。 ime.st/zetubou.mine.nu/itoshiki/nozomu/zetubou26032.txt 391 名前：デフォルトの名無しさん mailto:sage [2006/07/23(日) 07:33:13 ] ime.st のまま貼るなよ 392 名前：デフォルトの名無しさん mailto:sage [2006/07/26(水) 12:25:21 ] Pascalでプログラムの実行実時間を調べるコマンドがわからないのですが、 誰かご存知でしょうか？ 393 名前：デフォルトの名無しさん mailto:sage [2006/07/26(水) 20:23:22 ] 開始時と終了時に時間を取得して差を求める 394 名前：デフォルトの名無しさん mailto:sage [2006/07/31(月) 05:26:56 ] WindowsならtimeGetTimeがms単位で測定できる。 395 名前：774RR [2006/08/31(木) 20:25:00 ] やっとXcodeでFPC走るようにしたよん。記念にたまにはあげよう。 >394 それが信頼できるかはまた別物。リアルタイム処理を今のビジネス／ホビー用パソコンでやるのは かなり無理があるよ。 DOSでTurbo Pascal使った方がいいくらい。 396 名前：デフォルトの名無しさん mailto:sage [2006/08/31(木) 20:27:43 ] で？ 397 名前：デフォルトの名無しさん mailto:sage [2006/09/13(水) 15:24:53 ] Turbo Delphi で Pascal のコンパイルは出来ますか？ 398 名前：デフォルトの名無しさん mailto:sage [2006/09/16(土) 00:17:39 ] できます 399 名前：デフォルトの名無しさん [2006/10/06(金) 04:12:13 ] integerで扱える範囲を越えた数値を代入すると、 誤った値を返したりすることってありますか？ また、そういうことを防ぐ、というかせめて 間違った値が出るということを予測できるといいなあと思うのですが どういう文献を調べればよいのかも教えていただけると助かります！ 400 名前：デフォルトの名無しさん mailto:sage [2006/10/06(金) 15:33:01 ] integerの範囲を超えないように注意することで防げます。 401 名前：デフォルトの名無しさん mailto:sage [2006/10/06(金) 15:49:03 ] ふつうは例外が出ると思う 402 名前：デフォルトの名無しさん [2006/10/06(金) 17:51:51 ] >>400 integerの範囲? 403 名前：デフォルトの名無しさん mailto:sage [2006/10/06(金) 23:07:14 ] low(integer)..high(integer) 404 名前：デフォルトの名無しさん mailto:sage [2006/10/08(日) 03:38:29 ] 引数のパラメータにconstを付けるのは、どういう意味（違い）があるのですか。 varなら分かりますが。 405 名前：デフォルトの名無しさん mailto:sage [2006/10/08(日) 12:49:14 ] const も var も参照渡しだが、constは値の変更ができない。 406 名前：デフォルトの名無しさん [2006/10/15(日) 21:14:10 ] すんません 手元にパスカルないんですけど パスカルにおける論理式が真の時の返り値って １でしょうか、それともー１でしょうか？ 407 名前：デフォルトの名無しさん mailto:sage [2006/10/15(日) 21:47:39 ] 実装によりますが-1が多いです。 408 名前：デフォルトの名無しさん mailto:sage [2006/10/15(日) 21:51:18 ] True です。 409 名前：デフォルトの名無しさん mailto:sage [2006/10/15(日) 22:26:48 ] >>407 いやdelphiでもfpcでもord(true)は1だろ。 410 名前：デフォルトの名無しさん mailto:sage [2006/10/15(日) 23:30:28 ] PInteger(@b)^ だと $FFFFFFFF 411 名前：デフォルトの名無しさん mailto:sage [2006/10/15(日) 23:42:31 ] BooleanとIntegerではバイト長が異なるのでそのキャストは無意味 412 名前：デフォルトの名無しさん mailto:sage [2006/10/15(日) 23:57:14 ] PByte(@b)^ だと $FF 413 名前：デフォルトの名無しさん mailto:sage [2006/10/16(月) 00:18:18 ] >>408が正しいと思う。論理式は論理値しか返さないから、true もしくはfalseしかない。1か-1かで比較すると「型が違います」と 怒られる。 414 名前：デフォルトの名無しさん mailto:sage [2006/10/16(月) 00:47:39 ] Booleanは順序型だよ 415 名前：デフォルトの名無しさん [2006/10/16(月) 00:56:54 ] だから何？ 416 名前：デフォルトの名無しさん mailto:sage [2006/10/16(月) 01:21:44 ] 全ての順序型は数値とと互換性がある 417 名前：デフォルトの名無しさん [2006/10/16(月) 01:24:20 ] そう。良かったね。 418 名前：デフォルトの名無しさん mailto:sage [2006/10/16(月) 01:28:51 ] >>413 ord使えよ 419 名前：デフォルトの名無しさん mailto:sage [2006/10/16(月) 01:33:50 ] それで？ 420 名前：デフォルトの名無しさん mailto:sage [2006/10/16(月) 09:04:17 ] >>406 0以外としか定義されてないよ。だからどっちかは風任せ 421 名前：774RR mailto:sage [2006/10/16(月) 18:02:05 ] 言語としては>408が正解だろう。 実装としては>420の言う通り取説嫁としかいいようがない。 fpcだと boolean - false : 0 / true : 1 bytebool, wordbook, longbool - false : 0 / true : 0以外のなんでも となっている。 422 名前：デフォルトの名無しさん [2006/10/17(火) 00:16:06 ] ふーん、それが何か？ 423 名前：デフォルトの名無しさん [2006/10/26(木) 17:14:30 ] ユーグリッド互除法のプログラムを変更することにより正整数x、yを読み取りux+vy=gcd(x,y) を満たす整数の組(u,v)を一つ出力するプログラムを作れ。ただし配列は用いない。 わからないのでお願いします! 424 名前：423 [2006/10/26(木) 17:42:23 ] program gcd(input, output); var x0, y0, x, y, w, a1, b1, a, b, q1, u, v : integer; begin readln(x0, y0); if (x0 > 0) and (y0 > 0) then begin x := x0; y := y0; a := 1; b := 0; while x <> 0 do begin w := y mod x; y := x; x :=w; q1 := y0 div x0; a1 := b - q1 * a; b := a; a := a1 end; u := b; v := ( y - u * x0 ) div y0; writeln('gcd(', x0:1, ', ', y0:1, ') = ', y:1); writeln('(u,v)=(', u:1, ',', v:1, ')') end end. こう作ったんですけど、x、yの値が大きくなると正しく動きません。 添削してください。 425 名前：デフォルトの名無しさん [2006/11/14(火) 02:20:00 ] ポインタを使った2つの線形リストにそれぞれアルファベットを入れて、 その2つの共通部分を別の線形リストに入れて出力するプログラム を書きたいのですが、よくわかりません。 まず、線形リストに文字を入力して、それを出力するだけのプログラムを 書いたのですが、コンパイルはできるものの実行すると無限ループになります。 何がいけないのかご指摘いただけると助かります。 ↓↓つづく↓↓ 426 名前：デフォルトの名無しさん [2006/11/14(火) 02:20:58 ] program intersection(input,output); type pointer = ^celltype; celltype = record element : char; next : pointer; end; var listA,listB,listC : pointer; x : char; 427 名前：デフォルトの名無しさん [2006/11/14(火) 02:22:42 ] procedure insert(var p : pointer; a : char); var q : pointer; begin new(q); q^.element:=a; q^.next:=p; p:=q; end; { insert } procedure print(p : pointer); begin while p<>nil do begin write(p^.element,' '); print(p^.next) end end; { print } 428 名前：デフォルトの名無しさん [2006/11/14(火) 02:24:02 ] begin readln(x); while x<>'.' do begin insert(listA,x); readln(x) end; if listA^.element<>'.' then begin print(listA) end; writeln(); dispose(listA) end. 429 名前：デフォルトの名無しさん mailto:sage [2006/11/14(火) 02:45:11 ] >while p<>nil do begin >write(p^.element,' '); >print(p^.next) >end pが変化してないようだが。while→ifじゃ無いか？ 430 名前：デフォルトの名無しさん [2006/11/14(火) 02:57:57 ] >>429 ifにしたらうまくいきました！！ 逆順に出力されるけど・・・ 共通要素を探す手続きのほうもがんばって作ってみます。 ありがとうございました。 431 名前：デフォルトの名無しさん [2006/11/14(火) 22:31:52 ] で、その共通要素を探す手続きなのですが・・・ これのどこがだめなのかご指摘願います。 procedure search(var p,q,r : pointer); var found : boolean; begin while p<>nil do begin found:=false; while q<>nil do begin if p^.element=q^.element then found:=true else q:=q^.next end; if found then begin new(r); insert(r,p^.element) end; p:=p^.next end end; { search } 432 名前：デフォルトの名無しさん [2006/11/14(火) 22:35:54 ] あと、メインプログラムで if listA^.element<>'.' then begin print(listA) end; とありますが、このif文て必要ないですよね？ それから、listA,Bについてnewしてないのですが、これって問題あります、よね？ なぜか値が格納されてるみたいなのですけど・・・ 433 名前：デフォルトの名無しさん [2006/11/15(水) 01:20:23 ] age 434 名前：デフォルトの名無しさん mailto:sage [2006/11/15(水) 13:37:51 ] リストに要素の重複は無いんだな。 >procedure search(var p,q,r : pointer);  p,qは呼び出し元の値を変えんな。var取れ。 >if p^.element=q^.element then found:=true  >else q:=q^.next  ifが真の時、q:=q^.nextは実行されない（無限ループ）。 >new(r); 不要。 >とありますが、このif文て必要ないですよね？  無い。 >listA,Bについてnewしてないのですが、これって問題あります、よね？ 無い。むしろdispose(listA)しかしてないのが気になる。 435 名前：デフォルトの名無しさん [2006/11/21(火) 12:46:41 ] >>434 大変遅ればせながらありがとうございます。 無限ループはどうすれば回避できるのでしょうか？ それから、なぜlistA,Bをnewしなくてもよいのでしょうか？ 質問ばかりですいません 436 名前：デフォルトの名無しさん mailto:sage [2006/11/22(水) 01:04:41 ] >>431 ある文字がリストにあるかどうかを調べる関数を作れば 解りやすくなると思う。 437 名前：デフォルトの名無しさん [2006/11/24(金) 22:39:39 ] 実数が格納されている配列があって、その実数を配列の最初から順に 足し合わせていく関数を作りたいのですが、以下の関数だとうまくいきません。 ご教授願います。 function wa(f:hairetu):real;{hairetuは100項ある実数型の配列} var i:integer; begin for i:=1 to 100 do begin wa:=wa+f[i]; i:=i+1 end end 438 名前：デフォルトの名無しさん mailto:sage [2006/11/24(金) 22:45:05 ] wa　は何？ 439 名前：デフォルトの名無しさん [2006/11/24(金) 23:25:39 ] 関数の名前です 440 名前：デフォルトの名無しさん mailto:sage [2006/11/24(金) 23:33:39 ] function wa(f: hairetu): Real; var i: Integer; sum: Real; begin sum := 0.0; for i := 1 to 100 do sum := sum + f[i]; result := sum; end; こんなのはどうですか。 441 名前：デフォルトの名無しさん [2006/11/24(金) 23:37:47 ] waに直接足し合わせていくのはだめなんですかね？ sumみたいな変数を用意しないとだめなんでしょうか？ 442 名前：デフォルトの名無しさん mailto:sage [2006/11/25(土) 00:38:40 ] じゃこれ。 function wa(f: hairetu): Real; var i: Integer; begin for i := 2 to 100 do f[1] := f[1] + f[i]; wa := f[1]; end; wa := wa + f[i] とやると、右辺の wa はDelphiでは関数呼び出しと解釈されるから、無理。 443 名前：デフォルトの名無しさん [2006/12/03(日) 00:36:41 ] 配列に入れた値をヒープソートで絶対値とった小さい順にするプログラム教えてください。 444 名前：デフォルトの名無しさん mailto:sage [2006/12/03(日) 04:23:41 ] ヒープソート難しいよ。 445 名前：某TA mailto:sage [2006/12/04(月) 22:36:21 ] >>443 Wikipedia逝け アルゴリズム載ってるから 446 名前：デフォルトの名無しさん mailto:sage [2006/12/05(火) 00:08:56 ] >>445 そんなのもう見ました。 447 名前：デフォルトの名無しさん mailto:sage [2006/12/05(火) 03:55:22 ] 私もよく解らないけど、 配列を二分木のように解釈するみたい。 配列の先頭＝二分木の根っこで、ここに一番大きい値を持ってくるみたい。 ここまではＯＫ？ ttp://www.ics.kagoshima-u.ac.jp/~fuchida/edu/algorithm/sort-algorithm/heap-sort.html ttp://su10.sgu.ac.jp/~morita/Seminar/6thStudent/entani/sort/heap/heap.html 448 名前：デフォルトの名無しさん [2006/12/11(月) 01:00:08 ] 実行時に０〜９以外のキーを入力した場合、 自動的に消えるようにしたいんだけどどうしたらいいかな？ わかる人いますか？ 449 名前：デフォルトの名無しさん mailto:Ｔage [2006/12/11(月) 16:18:07 ] 何が消えるようにしたいの？ 450 名前：デフォルトの名無しさん mailto:sage [2006/12/11(月) 23:30:37 ] Editへの入力からじゃないかな。 ようは数値入力専用Editを作りたいのかと。 OnKeyDownイベントで、いらないキー入力は Key := 0; で無効に出来る。 451 名前：デフォルトの名無しさん [2006/12/13(水) 00:32:15 ] 448　ですけど、質問下手ですいません。 具体的に言うと、 program Keisan(input,output); var a,b,wa:integer; begin a:=30; writeln('数字を入力してください'); readln(b); wa:=a+b; writeln('a=',a,' b=',b); writeln('a+b=',wa) end. で実行して、間違ってアルファベットとか打つとエラーになるでしょ？ そうじゃなくって「再度入力してくれ」と表示してもう一回って感じに 自動的に持ってきたいんです。 charでどのキーも入力OKにしてから０〜９を数値型に変換するのかなと 考えたんだけど、いまいちやり方わかりません 452 名前：デフォルトの名無しさん mailto:sage [2006/12/13(水) 00:51:47 ] function ReadInt: Integer; var 　S: strting; begin 　repeat 　　WriteLn('数字を入力してください'); 　　ReadLn(S); 　until TryStrToInt(S, Result); end; 453 名前：初心者 [2006/12/16(土) 11:06:08 ] すみません。学校でパスカルにちょこっとふれただけなのですが、課題がでて、もうどうしてよいか分かりません。 助けてください。 入力されたｎ個の数を大きい順に並び替えるプログラムを作れ。 お願いします。 454 名前：デフォルトの名無しさん mailto:sage [2006/12/16(土) 13:48:36 ] n個の配列を用意して二重ループで大きい順に入れればいい。 455 名前：デフォルトの名無しさん mailto:sage [2006/12/17(日) 04:10:08 ] こんなんどうだ？ function FindMax(A: array of Integer; Start: Integer): Integer; var 　Max, I: Integer; begin 　Max := Start; 　for I := Start + 1 to High(A) do 　　if A[I] > A[Max] then 　　　Max := I; 　FindMax := Max; end; procedure Swap(var A, B: Integer); var 　Temp: Integer; begin 　Temp := A; 　A := B; 　B := Temp; end; procedure Sort(var A: array of Integer); var 　I: Integer; begin 　for I := 0 to High(A) do 　　Swap(A[I], A[FindMax(A, I)]); end; 456 名前：デフォルトの名無しさん mailto:sage [2006/12/19(火) 01:21:31 ] GNU PascalをOS X上のXcodeで使ってます。 時間の計算をしたいと思いますが、如何すればいいですか？ 457 名前：デフォルトの名無しさん mailto:sage [2006/12/19(火) 01:36:32 ] 求むエスパー

---

---

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

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