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 263 名前：デフォルトの名無しさん [2006/05/13(土) 22:59:34 ] 偽者はだまれ！自分独り占めにするな！ 本物ならここに書き込まず裏で減点しているわ! 264 名前：デフォルトの名無しさん mailto:sage [2006/05/13(土) 23:22:26 ] でも、単にメモリ確保の為にわざわざ再帰してるようなコードは、ちょっと目立つぞ 265 名前：デフォルトの名無しさん mailto:sage [2006/05/14(日) 01:01:30 ] だれかエラトステネス篩について、具体例を交えながら分かりやすく解説してくれませんか？ もう訳が分かりません… 266 名前：ミ,,ﾟДﾟﾐノ ◆A6VzDeLphI mailto:sage [2006/05/14(日) 01:24:54 ] エラトステネスの篩の概念は、次のようになります。 1　 2　 3　 4　 5　 6　 7　 8　 9　 10　11　12　13　... このような数値列を用意して まず最初の2は素数としてチェックして 2の倍数は素数じゃないから、フラグを立てます。 1　 2　 3　 4　 5　 6　 7　 8　 9　 10　11　12　13　... 　　O　　　 X　　　 X　　　 X　　　 X　　　 X　　　 次に素数の可能性のある3は素数としてチェックして、 3の倍数はやはり素数じゃないから、フラグを立てます 1　 2　 3　 4　 5　 6　 7　 8　 9　 10　11　12　13　... 　　O　　　 X　　　 X　　　 X　　　 X　　　 X　　　 　　　　O　　　　　 X　　　　　 X　　　　　 X 4にはすでに×がついているので、素数ではなく 次に素数だと思われる5は素数としてチェック。 5の倍数は素数ではないフラグを立てて… 1　 2　 3　 4　 5　 6　 7　 8　 9　 10　11　12　13　... 　　O　　　 X　　　 X　　　 X　　　 X　　　 X　　　 　　　　O　　　　　 X　　　　　 X　　　　　 X 　　　　　　　　O　　　　　　　　　 X と続けていくとチェックされていない所に 〇がつき、素数列が求まるという手法です。 267 名前：ミ,,ﾟДﾟﾐノ ◆A6VzDeLphI mailto:sage [2006/05/14(日) 01:29:05 ] 具体例を交えながらわかりやすく解説するほど 労力をかけたくないから、適当に勉強汁 www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=%E3%82%A8%E3%83%A9%E3%83%88%E3%82%B9%E3%83%86%E3%83%8D%E3%82%B9%E3%81%AE%E3%81%B5%E3%82%8B%E3%81%84&num=50 上記例では、1〜13の箱を用意するために Booleanの配列を定義して 1〜13全部をTrueにしてから 4,6,8,10,12の箱をFalseにして、 6,9,12の箱をFalseにして、 という処理をする方法よ。 268 名前：265 mailto:sage [2006/05/14(日) 13:48:56 ] どうもありがとうございました。 プログラムで読んだ時、なにがtrueやfalseなのかがよく分からなかったんですが、 やっとなんとかわかりました。ありがとうございました。 269 名前：269 mailto:sage [2006/05/20(土) 16:27:59 ] キーボードからいくつもの「文字」を入力した時、 各文字が何回入力されたかを結果として返すプログラムを、 入力データの記憶に２分木を利用して作れ。 なお、入力の終了は '.' (ピリオド) で示すものとし、 結果はアルファベット順に出力するものとする。 を program bi( input , output ); type tree = ^node; node = record moji : char; kaisu : integer; left , right : tree; end; var p , head : tree; a : char; procedure append(var t : tree; x : char ); begin if t = nil then begin new( t ); t^.moji := x; t^.kaisu := 1; t^.left := nil; t^.right := nil end else if t^.moji = x then t^.kaisu := t^.kaisu + 1 else if ord( t^.moji ) > ord( x ) then append( t^.left , x ) else append( t^.right , x ) end; { append } 270 名前：269 mailto:sage [2006/05/20(土) 16:28:56 ] procedure printl(t : tree ); begin if t <> nil then begin writeln( t^.moji , t^.kaisu ); printl( t^.left ); end end; { printl } procedure printr(t : tree ); begin if t <> nil then begin writeln( t^.moji , t^.kaisu ); printr( t^.right ); end end; { printr } begin new( head ); new( p ); head := nil; p := head; repeat write( '文字： '); readln( a ); append( p , a ) until a = '.'; printl( head ); write( p^.moji , p^.kaisu ); printr( head ); dispose( head ); dispose( p ) end. 271 名前：269 mailto:sage [2006/05/20(土) 16:35:39 ] キーボードから「整数」を読込み、 入力データを２分探索木に書込め。 書き込んだ結果を出力せよ。 なお、整数は正または負のデータとし、入力の終了は '０' (ゼロ) で 示すものとする。同じ値が入力されることはないものとせよ。 を program kadai5no2( input , output ); type tree = ^node;　　　node = record　 kazu : integer;　left , right : tree;　end; var p , root : tree;　a : integer; procedure data(var t : tree; x : integer ); begin if t = nil then begin new( t ); t^.kazu := x; t^.left := nil; t^.right := nil end else if t^.kazu > x then data( t^.left , x ) else data( t^.right , x ) end; { data } procedure printl(t : tree ); begin if t <> nil then begin if t^.right <> nil then begin write( t^.right ); printl( t^.right ) end else begin write( t^.kazu ); printl( t^.left ) end end end; { print } 272 名前：269 mailto:sage [2006/05/20(土) 16:36:48 ] begin new( root ); new( p ); root := nil; p := root; repeat write( ' 数： '); readln( a ); data( p , a); until a = 0; printl( p ); dispose( p ); dispose( root ) end. としたのですがどちらも出力をどうすればいいか分かりません。出力の他にも変なところがあれば指摘してくれると嬉しいです。 273 名前：デフォルトの名無しさん mailto:sage [2006/05/21(日) 18:28:02 ] とりあえず上はそれだと白丸のところが出力されないはず 　　　● 　　 ／＼ 　　●　● 　／|　　|＼ ● ○　○ ● 火曜提出でしょ？ もう少し悩んでみてもいいと思われ。 あと線形リストや二分木の先頭だけdisposeすると、 2番目以降は解放じゃなくて参照不可になるんじゃなかったっけ？ 274 名前：273 mailto:sage [2006/05/21(日) 18:28:57 ] ウホッ、ずれまくったorz 275 名前：デフォルトの名無しさん [2006/05/23(火) 18:55:46 ] キーボードから「英文」を読込み、空白（スペース）を英単語の 区切りと見做して、英単語辞書を整順リストの形式で作成するプログラム を作りなさい。 なお、入力の終了は '.' (ピリオド) で示すものとし、 同じ英単語が入力される場合は辞書に登録してはいけない。 a. 英文はアルファベット小文字のみの単語、スペース、ピリオドだけで 作られている場合を、まず考えよ。各単語の文字数は２０文字以内とせよ。 b. 次に、大文字が含まれる場合には、その文字を小文字に変換するよう に拡張せよ。 c. 最後に、数字、疑問符？、感嘆符！、クオート’、ダブルクオート"、 ハイフン-、コロン:、セミコロン；などの特殊文字が含まれている文 などを処理できれば完全である。 276 名前：デフォルトの名無しさん [2006/05/23(火) 18:56:56 ] 英単語辞書の問題において、 整順リストを２分木表現とするプログラムを作成せよ。 ポーランド記法で入力した四則演算式を２分木で表現し、 演算式の係数値を入力したときに、その計算結果を出力する プログラムを作れ。但し、演算式はアルファベット一文字の 変数と四則演算子のみで表現されている。 a.演算式が定数は含まない場合を考えよ。 b.整数の定数を含む場合に拡張せよ。 277 名前：デフォルトの名無しさん mailto:sage [2006/05/24(水) 02:38:31 ] 課題丸投げ早すぎｗ 278 名前：デフォルトの名無しさん [2006/05/24(水) 22:20:26 ] >>277 そんな突っ込みより 答えキボンヌ。 279 名前：デフォルトの名無しさん [2006/05/25(木) 20:51:54 ] 電通大Ｃ科乙ｗ 280 名前：デフォルトの名無しさん mailto:sage [2006/05/25(木) 22:08:22 ] >>279 去年につづきまたあそこか 馬鹿しかいないのか？ 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ナントカで解析していけばよい

---

---

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

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