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 281 名前：デフォルトの名無しさん [2006/05/25(木) 22:36:28 ] 馬鹿が教えてるからしょうがない。 282 名前：デフォルトの名無しさん mailto:sage [2006/05/25(木) 22:46:23 ] >>281 言えてる…。 283 名前：デフォルトの名無しさん mailto:sage [2006/05/26(金) 02:25:45 ] >>278 ヒント program database( input , output ); type a = ^b ; b = record c : packed array [1..20] of char ; d : a ; var e, f : packed array [1..20] of char ; bagin readln(e); readln(f); if e < f then begin writeln( e , f ); end else begin writeln( f , e ); end; end. ２単語入力のみ対応 284 名前：デフォルトの名無しさん mailto:sage [2006/05/26(金) 03:29:15 ] 電通大生なんだが・・評判落とすような事はやめてくれ！ 少しは考えろよ！！ 言っておくが、これくらい普通に出来ないと後々の課題なんて出来ないぞ！ その時はまた写すのか？ お前それでいいのか？ 285 名前：デフォルトの名無しさん mailto:sage [2006/05/26(金) 03:39:15 ] >>284 　　　　　　　､--‐冖'⌒￣￣`ｰ-､ 　　　　 ／⌒`　　　　　　　　　三ミヽｰ-ﾍ,_ 　　　__,{　;;,, 　　 　 　　　　　　 ミミ　　　ｉ　´Z, 　　 ゝ　　　''〃//,,, 　　　 　,,..｀ミﾐ､_ノリ}j;　f彡 　　_)　　　 　 　 〃///,　,;彡'rffｯ､ｨ彡'ﾉ从iﾉ彡 　　>';;,, 　 　　　 ノ丿川j !川｜;　 :.`7ﾗ公 '>了 　_く彡川fﾞノ'ノﾉ ノ_ノノﾉイシﾉ｜ }.:　'〈八ﾐ､､;.) 　 ヽ.:.:.:.:.:.;=､彡／‐-ニ''_ｰ＜、{_,ﾉ -一ヾ`~;.;.;） 　 く .:.:.:.:.:!ﾊ.Yイ　　ぇ'无ﾃ,`ヽ｝｝}ィt于 ｀|ィ"~ 　　 ):.:.:.:.:|.Y }: :!　 　 ｀二´/'　;　|丶ﾆ　 ﾉﾉ 　 　 ） :.: ﾄ､リ: :!ヾ:、　　　丶　;　|　ﾞ　　ｲ:}　　　　逆に考えるんだ 　　 ｛ .:.: ｌ　｛: : }　 ｀　　　　,.__(__,}　　　/ﾉ 　　　 ヽ !　　`'ﾞ! 　 　　　 ,.,,.`三'ﾞ､,_ 　/´　　　「電通大の課題が 2ch ねらーのヒマ潰しになっている」と 　 　 ,/´{　　ﾐ　l　　　　/ﾞ,:-…-〜､ ） | 　　,r{ 　 ＼ ﾐ 　＼　　 `'　'≡≡'　" ﾉ　　　　　　　　考えるんだ __ノ 　ヽ 　　＼　 ヽ＼　　　　彡 　,ｲ_ 　　 　 　＼ 　　＼ ヽ 丶. 　　　　ノ!|ヽ｀ヽ、 　　 　 　 　 ＼ 　　＼ヽ ｀¨¨¨¨´/ |ｌ　ト､　｀'ｰ-､__ 　 　 　 　 　 　 ＼　　｀'ｰ-､　　/／　/:.:.}　 　　 　 ｀'ｰ､_ 　　　　　　　 　 ｀､＼　　　／⌒ヽ　 /!:.:.| 　　　　　　　　　　｀､ ＼ /ヽLｆ___ハ/　　{ 　　　　　　　　　　　　　 ′ /　! ヽ 286 名前：デフォルトの名無しさん [2006/05/26(金) 08:48:45 ] >>283 b a g i n 287 名前：デフォルトの名無しさん [2006/05/26(金) 08:50:54 ] >>283 ほとんどヒントになってないし。 リスト構造も木構造も実装されてないし。 読み込み部分にしたって、 空白区切りをまったく無視してくれちゃってるし。 まったく、なにやってるんだか。 288 名前：デフォルトの名無しさん mailto:sage [2006/05/26(金) 20:00:58 ] >>287 丸写しするお馬鹿さんには関係ないこと。成績表を見て泣くだけ。 289 名前：デフォルトの名無しさん mailto:sage [2006/05/27(土) 10:12:38 ] up.nm78.com/data/up080235.jpg 290 名前：デフォルトの名無しさん [2006/05/28(日) 21:18:58 ] 答えまーだ？ 291 名前：デフォルトの名無しさん mailto:sage [2006/06/02(金) 02:07:04 ] やっと落ち着いたか 292 名前：デフォルトの名無しさん [2006/06/04(日) 09:06:23 ] Javaなどの新しい言語がある中で、電通大が未だにPascalを使ってプログラミングの講義をしているのは一種の男気の現れですか？ 293 名前：デフォルトの名無しさん mailto:sage [2006/06/04(日) 09:31:21 ] 教えるヒトがそれ以外の言語を知らないので仕方がないのです。 294 名前：デフォルトの名無しさん mailto:sage [2006/06/04(日) 17:23:42 ] 今まさにPascal習ってる電通大生ですよっと Pascal習う理由として、 �@複数の言語を学んだほうが体系的に（で言葉あってるのか？）文法を理解できる。 �APascalは教育用言語としてはふさわしい とか言ってた気がする。 ただ、俺は大学入って初めてプログラミングに触れるようになったため、 教授の考えがきちんと伝わっていないかも知れない。 要は公式見解ではないということ 295 名前：デフォルトの名無しさん [2006/06/04(日) 17:24:00 ] >>293 男気の正反対ですね。 296 名前：デフォルトの名無しさん mailto:sage [2006/06/04(日) 17:25:52 ] 今プログラミング教育用として主流になってる言語って何ですかね？ 297 名前：デフォルトの名無しさん mailto:sage [2006/06/04(日) 19:11:57 ] 授業で使われている数はc/c++とJavaが圧倒的でしょう。 298 名前：デフォルトの名無しさん [2006/06/06(火) 08:27:39 ] Javaはまだいいとして、C/C++って教育用途には向いてるんでしょうかね？ 299 名前：デフォルトの名無しさん mailto:sage [2006/06/06(火) 10:22:47 ] Javaが向いてる？ご冗談を JavaよりC/C++の方が向いてるに決まってるじゃないか 300 名前：デフォルトの名無しさん mailto:sage [2006/06/06(火) 18:17:03 ] C++がプログラミング入門用として最適の言語。 とかのたまうメルマガ鵜呑みにして強引にC++から入った俺が来ましたよ。 301 名前：デフォルトの名無しさん mailto:sage [2006/06/08(木) 08:24:55 ] Cは良いけどC++は教育用としてはどうかとおもう 302 名前：デフォルトの名無しさん [2006/06/10(土) 23:49:37 ] C++の方が明らかにCより使いやすいし。 教育用としても オブジェクト指向のC++の方がいいに決まってるし。 303 名前：デフォルトの名無しさん mailto:sage [2006/06/11(日) 05:55:38 ] PerlほどじゃないけどC++のオブジェクト指向もひどいぞ 「オブジェクト指向の教育」という観点からは薦められない 304 名前：774RR mailto:sage [2006/06/12(月) 19:47:05 ] 本物のプログラマはPascalを使わない。真の漢は黙ってFORTRAN77。 305 名前：デフォルトの名無しさん mailto:sage [2006/06/12(月) 20:57:38 ] 来年から電通はCになるらしいけどな まじで頭おかしいだろあそこ 306 名前：デフォルトの名無しさん mailto:sage [2006/06/13(火) 07:31:40 ] Rubyにすればいいのに 307 名前：デフォルトの名無しさん [2006/06/13(火) 17:53:09 ] HSPにすればいいのに 308 名前：デフォルトの名無しさん [2006/06/15(木) 12:12:15 ] pascalの文法には、変数名とか関数名の非終端記号があるらしんだけど これはすべて名前（識別子）であって文法を簡単にするものであると。 原始プログラム中のその名前をみただけではどの名前であるか 判別できない。これの解決策はなにですか？ 309 名前：デフォルトの名無しさん mailto:sage [2006/06/15(木) 13:35:24 ] 俺のESPを試す時がきたようだ。 例えば次のようなソースがあるとします。 if (0 < hoge) then ... このhogeが変数なのか関数なのかはここから判別する事はできないと思います。 コンパイラはどうやっているんでしょうか？ こんな感じか？ 310 名前：デフォルトの名無しさん mailto:sage [2006/06/15(木) 18:01:22 ] ネストしたスコープの話なのかな？ 311 名前：デフォルトの名無しさん mailto:sage [2006/06/16(金) 00:50:41 ] pascalは事前に変数も関数も宣言する必要があるので問題無い。 312 名前：デフォルトの名無しさん [2006/06/26(月) 15:11:34 ] モンテカルロ法を用いて1/3を求めよ。 そのときモンテカルロ法を試行する回数を、プログラム実行時に選択できるようにせよ。 313 名前：デフォルトの名無しさん mailto:sage [2006/06/26(月) 18:50:02 ] いやです。 314 名前：デフォルトの名無しさん mailto:sage [2006/06/26(月) 19:28:36 ] やってやらんこともないが なぜ 1/3 なんだ？ 315 名前：デフォルトの名無しさん [2006/06/27(火) 14:23:43 ] パスカルの問題でわからないので教えて下さい。 問１ 任意の人数に対してBMI（肥満度を判定する指標）を計算し、その平均値を出力させる。ここで，BMIとは 体重／身長／身長 で定義されるため，体重および身長を人数分だけ標準入力せよ。ここで，人数の最大は10名としてよい。なお，関数あるいは手続きを用いること。 問２ １０名分のクラスの学生名前（アルファベット）を配列に保存せよ。また、最後にそれを標準出力せよ。 また、ファイル出力の場合も考えよ。 ＊stringを使いなさい。 316 名前：デフォルトの名無しさん [2006/06/27(火) 14:25:35 ] パスカルの問題でわからないので教えて下さい。 問１ 任意の人数に対してBMI（肥満度を判定する指標）を計算し、その平均値を出力させる。ここで，BMIとは 体重／身長／身長 で定義されるため，体重および身長を人数分だけ標準入力せよ。ここで，人数の最大は10名としてよい。なお，関数あるいは手続きを用いること。 問２ １０名分のクラスの学生名前（アルファベット）を配列に保存せよ。また、最後にそれを標準出力せよ。 また、ファイル出力の場合も考えよ。 ＊stringを使いなさい。 317 名前：デフォルトの名無しさん mailto:sage [2006/06/27(火) 23:08:41 ] このスレまだあったのか 318 名前：デフォルトの名無しさん [2006/07/01(土) 08:42:13 ] リスト構造ってむずい部類？ 319 名前：デフォルトの名無しさん mailto:sage [2006/07/01(土) 17:20:31 ] >>318 リストによっては。 単純な線形ならそんなに難しくないけど、双方向になると少し難しくなって、 ツリー構造とかになると結構難しくなって。バランス木くらいになると相当 難しくなる。 320 名前：デフォルトの名無しさん mailto:sage [2006/07/02(日) 01:05:23 ] どうむずかしいの 321 名前：319 mailto:sage [2006/07/02(日) 10:29:29 ] >>320 自分で実装してみれば分かる。 322 名前：デフォルトの名無しさん mailto:sage [2006/07/03(月) 02:05:51 ] なんで？ 323 名前：デフォルトの名無しさん [2006/07/04(火) 01:23:08 ] Delphiの課題なのですが 乱数を生成して 正方形 と 円（四分円）の面積を比較することにより， 　　　　円周率 π の近似値を求める方法がある。 　　　　以下は，この方法に関する問いである。 (1)　乱数によって定まる点の分布の状況を PaintBox 上に図示せよ。 (2)　円周率 π の近似値を計算せよ。 という問題が出されました 取っ掛かりからわからないという初心者ぶりです ご教授願えませんでしょうか 324 名前：デフォルトの名無しさん mailto:sage [2006/07/04(火) 01:38:04 ] > 乱数を生成して 正方形 と 円（四分円）の面積を比較することにより， > 円周率 π の近似値を求める方法がある。 この方法については理解してる？ 325 名前：デフォルトの名無しさん mailto:sage [2006/07/04(火) 01:42:41 ] ランダムに点を打ってくんじゃなかったか? まずアルゴリズムをはっきりさせること。 326 名前：デフォルトの名無しさん mailto:sage [2006/07/04(火) 01:49:15 ] ｒを半径とすると、 円の面積は Pi*r*r 正方形の面積 r*r 円の公式 x*x + y*y <= r*4 を使うんじゃないの？ 327 名前：デフォルトの名無しさん mailto:sage [2006/07/04(火) 01:52:04 ] １辺の長さがRの正方形とそれに内接する四分円とを描画する。 正方形内にランダムに点を打ち、打った点の総数と、 そのうち四分円の中に入った点の数をそれぞれカウントする。 あとはその比率から円周率を近似するくらいはわかるだろう。 328 名前：デフォルトの名無しさん mailto:sage [2006/07/04(火) 17:21:07 ] もんてかるろ法だわな 329 名前：デフォルトの名無しさん mailto:sage [2006/07/04(火) 23:09:09 ] 円の公式は x*x + y*y <= r*r でした。 330 名前：323 mailto:sage [2006/07/05(水) 00:34:12 ] ご教授レスありがとうございました。 自宅にDelphiがないのですが（学校にある）、 取り敢えずモンテカルロ法について調べてみました。 結果イメージとしては理解できたのですが 点を打つ方法、点を数える方法がともにわかりませんでした。 （乱数関係から検索したのですが） 何もしてないと言われても仕方ない有様ですが、 どうかその二つの作業の方法だけでも教えていただけませんでしょうか。 331 名前：デフォルトの名無しさん mailto:sage [2006/07/05(水) 00:37:35 ] >>330 ttp://www.wikihouse.com/DelphiVIP/index.php?%A5%B3%A5%E9%A5%E0%2F%A5%D1%A5%A4%A5%D1%A5%A4%A5%E2%A5%F3%A5%C6%A5%AB%A5%EB%A5%ED%A4%BF%A4%F3 332 名前：デフォルトの名無しさん mailto:sage [2006/07/05(水) 01:37:50 ] >>330 >>331にほとんど答えが載っているが せっかく文章練ったので。 sylphys.ddo.jp/upld2nd/pc2/src/1152029914998.png 乱数 x, y を別々に発生させ、>>329の式で 4半円(図の白い部分)の中にあるか判定する。 4半円の中に入った点の数・外になった点の数をそれぞれ 変数にもって、判定結果に従ってカウントアップ。 ある程度の数の点を計算したら、点の数の比を計算すれば、面積比が出てくる。 後は、既知の円の面積の公式 4πr^2 からπを求める。 PaintBoxは自分でやってください。 333 名前：デフォルトの名無しさん mailto:sage [2006/07/05(水) 07:30:25 ] 自分で考えないと馬鹿になるぉ 334 名前：デフォルトの名無しさん mailto:sage [2006/07/05(水) 21:57:17 ] >既知の円の面積の公式 これがクセモノ トートロジー 335 名前：デフォルトの名無しさん mailto:sage [2006/07/05(水) 22:44:29 ] 円の面積の公式も分からないとはいくらゆとり世代でも酷すぎる 336 名前：デフォルトの名無しさん mailto:sage [2006/07/05(水) 23:01:56 ] >>335 というか、「Piを求めるのにPiを使った円の面積の公式を使う」 というのは問題じゃないのかと>>334は言いたいんだろう。 337 名前：デフォルトの名無しさん mailto:sage [2006/07/05(水) 23:05:04 ] >>329 338 名前：332 mailto:sage [2006/07/05(水) 23:20:13 ] いや、式がおかしいです。 モロゆとり世代ですんません 339 名前：デフォルトの名無しさん mailto:sage [2006/07/05(水) 23:36:31 ] 4πr^2って球の話なの^^ 340 名前：デフォルトの名無しさん mailto:sage [2006/07/06(木) 18:01:24 ] >>339 >>332 のは 1/4 だから 点の数の比を計算するのに 4πr^2 になるってだけの話だと思う 341 名前：323 mailto:sage [2006/07/06(木) 21:05:51 ] おかげさまで課題できました。 皆さんお世話になりました。 342 名前：デフォルトの名無しさん [2006/07/06(木) 22:07:28 ] パスカルの問題でわからないのですが、教えてください。 ・学籍番号と点をデータとして入力し、これを得点の高い順に並べ替え、 　順位をつけて表示する。 高い順に並べ替えるまではできるのですが、それを点じゃなくて学籍番号 で表示することができません。 343 名前：デフォルトの名無しさん mailto:sage [2006/07/06(木) 22:14:41 ] 配列2個用意して、両方並べ替える。 Delphi的に正しいのは record 使う。 344 名前：デフォルトの名無しさん mailto:sage [2006/07/06(木) 22:15:12 ] 学籍番号と得点を組にして持って、並べ替えるときに一緒に動かすんだ。 345 名前：デフォルトの名無しさん [2006/07/06(木) 22:15:53 ] ﾜｰｫ 346 名前：デフォルトの名無しさん [2006/07/06(木) 22:36:50 ] すいません。よくわかりません。 347 名前：デフォルトの名無しさん mailto:sage [2006/07/06(木) 22:37:41 ] とりあえずコード書いて晒してみれ。 348 名前：デフォルトの名無しさん [2006/07/07(金) 17:20:06 ] これであと学籍番号を一緒に表示したいにですが、どうすればいいですか？ SysUtils; type rec=record name:String; ten:integer; end;var stud:array[1..5]of rec; i,j,w:integer; begin { TODO -oUser -cConsole Main : この下にコードを記述してください } for i:=1 to 5 do begin write('no.',i,' 学籍番号：'); readln(stud[i].name); write('no.',i,' 点数：'); readln(stud[i].ten) end; for i:=1 to 5-1 do for j:= i+1 to 5 do if stud[j].ten>stud[i].ten then begin w:=stud[i].ten; stud[i].ten:=stud[j].ten; stud[j].ten:=w end; writeln; for i:=1 to 5 do writeln(stud[i].ten); writeln; readln; end. 349 名前：デフォルトの名無しさん mailto:sage [2006/07/07(金) 19:50:11 ] ここまで出来ててなんでそれが出来ないんだｗ 350 名前：デフォルトの名無しさん mailto:sage [2006/07/07(金) 20:24:19 ] 分からんままコピペしただけかな? 最後の for i:=1 to 5 do writeln(stud[i].ten); に、点数を出力する文を加えればいい。 351 名前：デフォルトの名無しさん [2006/07/07(金) 22:12:36 ] みなさんのおかげで何とかできました。 ありがとうございました。 352 名前：デフォルトの名無しさん [2006/07/08(土) 01:52:57 ] 手続きや関数での変数宣言で、varをつけるのとつけないのの違いがよくわからないです。 誰か教えてください。 353 名前：デフォルトの名無しさん mailto:sage [2006/07/08(土) 01:56:06 ] 参照渡しと値渡し 354 名前：デフォルトの名無しさん mailto:sage [2006/07/10(月) 01:44:09 ] アホですみませんがこの2つの問題がわかりません ぜひ教えてください ５教科のテストを行いました。それぞれのテストの点数を入力してもらい、 それぞれの点数と５教科の合計と平均をわかりやすく表示するプログラムを作成しなさい。 プログラムを作成していて、次のような関数"printAns()"が必要となりました。 printAns()は第一引数としてint型を受け、受け取った整数に50をかけて ”答えは○○です”と表示してから、その答えをint型で返します。 このような関数printAns()を製作してください。 メインとなるプログラムは次のものを流用するように。 var a,b:Integer; begin Write(Output,'n ? |'); Read(Input,a); Writeln(Output,'ここから関数'); b :=Culculate(a); Writeln(Output,'ここまで関数'); Writeln(Output,'戻り値は　',b); end. 355 名前：デフォルトの名無しさん mailto:sage [2006/07/10(月) 02:30:58 ] いくらなんでも丸投げ過ぎ 356 名前：デフォルトの名無しさん mailto:sage [2006/07/10(月) 02:57:04 ] 解答者がやりたくなるような質問の仕方を研究して来い 話はそれからだ 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のやつみてみます。

---

---

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

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