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

1 名前：デフォルトの名無しさん mailto:sage [2009/12/16(水) 09:13:12 ] 教育用（？）プログラムPascalの宿題をやって頂くスレ ■丸投げOK ■全く分かってない阿呆も放置しないで優しく対応 ■他言語はよそ逝け( ﾟДﾟ)ｺﾞﾙｧ ■DelphiもTurbo PascalもFreePascalも完全対応 ■ Delphi ■ www.borland.co.jp/delphi/ ■ FreePascal ■ freepascal.org/ ■ Lazarus ■ www.lazarus.freepascal.org/ ■ 過去スレ ■ Pascalの宿題は俺にやらせろ！！Part2 pc12.2ch.net/test/read.cgi/tech/1136994325/ Pascalの宿題は俺にやらせろ！！Part1 pc8.2ch.net/test/read.cgi/tech/1089719714/ ■ 関連スレ ■ くだすれDelphi(超初心者用)その51 pc12.2ch.net/test/read.cgi/tech/1259667697/ 【Delphi互換!?】FreePascal【GPL】 pc12.2ch.net/test/read.cgi/tech/1137051510/ Delphi初心者のための寺子屋 pc12.2ch.net/test/read.cgi/tech/1132756268/ 2 名前：1 mailto:sage [2009/12/16(水) 09:14:43 ] わざわざ無視することもないだろうと思うので FreePascalとLazarusもテンプレに追加しました。 MAC系PascalとかUCSDとかはよう知らんので 詳しい人が居たら補完よろ。 3 名前：デフォルトの名無しさん [2009/12/16(水) 17:50:36 ] >>1乙 そしてどなたかこれお願いします･･･ ターミナル上でテキストを編集するプログラムを作成せよ 以下のコマンドも使えるようにする事 i ＝テキスト挿入 p ＝単語の手前にポインタ移動 d ＝入力した数だけポインタの後ろの文字を消す c ＝入力した文字列をポインタの後の文字列に置き換える s ＝ポインタの後に空白挿入 h ＝ヘルプ q ＝終了 4 名前：デフォルトの名無しさん mailto:sage [2009/12/16(水) 22:06:52 ] 丸投げすぎて笑っちまった 5 名前：デフォルトの名無しさん mailto:sage [2009/12/16(水) 22:11:50 ] ﾋﾄﾞｽｗ 6 名前：デフォルトの名無しさん mailto:sage [2009/12/17(木) 01:12:53 ] >>3 今からやってもいいけどもう少し詳細くれ 7 名前：デフォルトの名無しさん mailto:sage [2009/12/19(土) 05:56:47 ] h 8 名前：>>3 [2009/12/19(土) 13:07:55 ] copy文を使って書くように言われました 一応友達のヒント写し program imim(output,input) var i, n, ptr : integer; command, text, new, pform : string[1000]; pform := ''; command := ''; ptr := 1; while command <> 'q' do begin new := ''; write('Input command : ');readln(command); if command = 's' then begin readln(n); for i := 1 to n do new := new + ' '; text:= copy(text,1,ptr-1) + new +copy(text,ptr,length(new)+length(text)-ptr+1); end; i ＝テキスト挿入 p ＝単語の手前にポインタ移動 d ＝入力した数だけポインタの後ろの文字を消す c ＝入力した文字列をポインタの後の文字列に置き換える s ＝ポインタの後に空白挿入 q ＝終了 pform :=copy(text,1,ptr-1)+ '*' +copy(text,ptr,length(text)); writeln(pform); 9 名前：>>3 [2009/12/19(土) 13:08:57 ] 他になにか足りない所があれば言ってください 10 名前：デフォルトの名無しさん mailto:sage [2009/12/19(土) 15:28:24 ] 仕様を詳しくという意味なんだがｗ こりゃダメかもな 11 名前：デフォルトの名無しさん [2009/12/19(土) 16:28:19 ] >>10 申し訳ない 月曜まで待ってくだされ 12 名前：デフォルトの名無しさん mailto:sage [2009/12/19(土) 22:45:58 ] >>11 誰かは名乗りませんが、ここは一応監視してますので、そのまま提出したらどうなるか想像してくださいね 13 名前：デフォルトの名無しさん mailto:sage [2009/12/20(日) 10:29:34 ] >>3の指導教官ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!! 14 名前：デフォルトの名無しさん mailto:sage [2009/12/20(日) 22:53:35 ] 他の言語ならともかくPascalの質問ができるところなんて限られてるから、 確かに監視はしやすいだろうなｗ 15 名前：デフォルトの名無しさん mailto:sage [2009/12/20(日) 23:10:04 ] この板のPascal/Delphi関連スレと Delphi MLあたりだけで充分だろうな。　　＞監視対象 16 名前：>>3 [2009/12/21(月) 23:43:24 ] abcdefgh 例えばこのeの直前にbbbを挿入したい場合、挿入コマンドを使いbbbと入力する。 コンピュータはコマンドを受けると、ポインタを合わせる文字の直前に*印をつけてポインタの位置を示す。 コンピュータ　command: ユーザー　i　(「挿入せよ」と言う意味) コンピュュータ　Insert what? ユーザー　abcdefgh コンピュータ　*abcdefgh コンピュータ　command: ユーザー p　（「ポインタを合わせよ」という意味） コンピュータ　Point to what? ユーザー def　（ポインタは入力された文字列の最初の文字に*印を付ける） コンピュータ　　abc*defgh コンピュータ　command : ... 必要な動作は繰り返し行う 入力コマンド 実行コマンド 入力コマンド 実行コマンド 入力コマンド ・ ・ ・ など 17 名前：デフォルトの名無しさん mailto:sage [2009/12/22(火) 14:29:07 ] で？ 18 名前：デフォルトの名無しさん mailto:sage [2009/12/26(土) 05:59:38 ] ho 19 名前：デフォルトの名無しさん [2009/12/29(火) 21:54:02 ] シロツメクサの花が咲いたらさあ行こうPascal 六月の風が渡る道をロックリバーへ遠乗りしよう(キンコンカーン) 神様ありがとう僕に友達をくれて Pascalに会わせてくれて Pascalに会わせてくれて ありがとう僕の友達 Pascalに会わせてくれて 20 名前：デフォルトの名無しさん mailto:sage [2009/12/29(火) 23:08:05 ] 　　　　 ,へ､　　　　　　　　／＾i 　　　　 | \〉｀ヽ-―ー--<　〈\ | 　　　　 7 　 , -- 、, ---　、　 ヽ 　　　 /　 / 　＼､i, ,ノ　 　 ヽ　 ヽ 　　　 |　 （-=・=- 　-=・=- 　）　　| 　　　/　 <　　/ ▼　ヽ　　　 >　　　、 　　く彡彡　　 ﾄｪｪｪｪｲ　　　ミミミ　ヽ 　　　｀＜　　 ﾍｪｪｪｪﾉ　　 　ミミ彳ﾍ 　　　　 　＞　 　　　　　__＿／　　　＼ 　　　　　/　　　　　　　　　7　　　　　　＼ 　　　　　|　　　　　　　　／ 21 名前：デフォルトの名無しさん mailto:sage [2009/12/31(木) 17:26:48 ] あらいぎまパスカル 22 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 01:32:34 ] 次のゲームを考える ・二人のプレイヤーA、Bにそれぞれ持ち点ｍ点を与える ・コイントスをして表が出たらAからBへ、裏が出たらBからAへ、１点渡す ・コイントスをくりかえして先に持ち点がなくなったほうが負け 一個の自然数ｍをキーボード入力から読み取ってこのゲームをたとえば１０００ゲーム繰り返して、 平均何回のコイントスで勝負がつくか、シュミレーションして求めるプログラムを作成してください。 ただしコイントスを10000回繰り返しても勝負がつかない場合があるかもしれないので、それは回数オーバーとして別にカウントしてください。 お願いします。 23 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 13:06:41 ] シミュレーションならできるんだけどシュミレーションはちょっと分からないです すみません 24 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 14:38:00 ] 俺はレーションを食うのが趣味だが何か？ 25 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 16:48:45 ] >>22 Free　PASCAL用 ttp://tomiya.bne.jp/cgi-bin/upup/src/myg_l2945.txt 26 名前：デフォルトの名無しさん mailto:sage [2010/01/26(火) 13:48:29 ] >>25 ありがとうございました。 27 名前：ゆみこ [2010/02/04(木) 16:09:33 ] 学校で宿題が出たんですけど、私の力では解けなくて・・・ 微分方程式の境界値問題 y''(x) = f(y(x)), 0<x<1, y(0)=y(1)=0 の解を数値的に求める方法のひとつとして、射的法（shooting method） があります。自然数ｎを与えて、区間[0,1]をｎ等分して、ykをy(k/n) の近似式として、漸化式（ここから下のyの後ろのカッコの中身は添え字と思え） y(0) = 0, y(1)= t, y(k+1) = 2y(k) - y(k-1) + 1/n²f(y(k)), k=1,2,…,2n-1, の解の数値的y(n)=0 を満たすものを、上の問題の近似解として求める方法です。yn=0となる数列を求めるために、ynを未知パラメータtの関数とみなして、tに関する二分法を使います。 正の実数aを適当に定めて、 f(y) = ay(1 - y) の場合の近似解y(k)を、誤差10-6の範囲で求めるプログラムを作成してください。 自然数nは適当に決めてください。（２のベキ乗にするのが無難です） 実数あの値は、とりあえず２０にしてみてください。 （注意：a≧10でないと…） お前ら解ける？ｗ 28 名前：デフォルトの名無しさん mailto:sage [2010/02/04(木) 16:18:18 ] >>27 ゆみこという名前と >お前ら解ける？ｗ この文が矛盾し過ぎるんだが 29 名前：ゆみこ [2010/02/05(金) 12:22:34 ] やっぱり解けない馬鹿だらけだなｗ 30 名前：ゆみこ [2010/02/05(金) 12:23:14 ] 釣りだと気付かないとかあわれすぎるｗ 31 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 12:30:28 ] 自分で解けるんなら自分で解けやカス 32 名前：デフォルトの名無しさん [2010/02/07(日) 18:14:06 ] hou 33 名前：デフォルトの名無しさん [2010/02/22(月) 15:20:38 ] 問題 楕円内の定点Aより光が出て楕円にぶつかり反射する。 反射した光はまた楕円にぶつかり反射する。 この操作を繰り返すとき、光の通った跡を直線として描くと 楕円の内部を埋め尽くすか否かシミュレーションせよ。 お願いします 出発点Aの位置を変え実験せよ。（光のはじめの方向は適当でよい） 34 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 15:24:17 ] >>33 結果をどうやって示すの？ 埋め尽くすかどうかを何を基準に判定するの？ 35 名前：デフォルトの名無しさん [2010/02/22(月) 16:23:28 ] >>34 分かりにくくてすいません。 適当にいくつかの数値を代入して、図示されればいいです。 埋め尽くすかどうか、というのはやらなくていいみたいです。 36 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 16:39:53 ] >>35 図示するツールは何にするの？ 線分の頂点をテキストファイルに吐き出せば、そっちで処理できる？ 37 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 17:20:25 ] ごちゃごちゃうるさいなあ・・・ まず適当に作ってから聞いて下さいよ 38 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 18:12:40 ] だめだこりゃ(´･ω･`) 自分で勝手にやれ 39 名前：デフォルトの名無しさん mailto:sage [2010/02/26(金) 20:49:17 ] 可変長文字列リストから任意のものを、変数を使わず取り出すにはどうすればいいですか？ たとえば writeln(("January__February_March____April____（略）October__November_December_")[10..18]); とすれば固定長としては取り出せますが・・・ 40 名前：デフォルトの名無しさん mailto:sage [2010/02/26(金) 23:32:39 ] 本当に取り出せた？ 41 名前：デフォルトの名無しさん [2010/05/23(日) 23:39:18 ] ちょっと見てみたけどパスカルわかんねーので。 なんかendが多すぎね？ ttp://anchorage.2ch.net/test/read.cgi/siberia/1235319741/680 > プログラミング初心者です。以下の課題が出されたのですが、まったくわかりません。助言おねがいします。 42 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 01:39:53 ] >>41 なぜにシベリア、それにperlじゃないのかそれ？ 43 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 01:44:21 ] >>42 begin endがあったからパスカルかとおもた。すまんかった。 44 名前：デフォルトの名無しさん mailto:sage [2010/06/01(火) 01:09:14 ] >>42 perlじゃないよねRubyかな？ 45 名前：デフォルトの名無しさん [2010/07/01(木) 21:57:27 ] 以下の条件(仕様)を満たすプログラムを作成し， そのプログラム(Pascalプログラムソースファイル)とともに その解説書を提出すること． 逆ポーランド記法で入力された論理式の充足可能性を判定し， その式の値をtrueにする変数値を，通常の表記とともに出力すること． 可能な演算は論理積(and)， 論理和(or)， 否定(not)， の3種類として， それぞれ 'a'，'o'，'n' で表現すること． 使用可能な論理変数は x0, x1, ..., x9 の10種類とし， それぞれ '0'，'1'，...，'9' で表現すること． 例) (x1∧x2)∨(¬x1∧x3)　⇒　 12a1n3ao 使用できない文字が含まれる入力に対してエラーの旨を出力すること． 入力された論理式の充足可能性を判定， 式の値を true にする変数値を出力した後， 再度入力待ち状態になり， 空の文字列を入力するとプログラムが終了すること． これお願いします。解説も出来たらお願いします。 46 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 22:15:03 ] すいません便乗して [1] 授業単元：2分探索法 [2] 問題文： uploader.sakura.ne.jp/src/up10962.jpg [3] 環境 　[3.1] OS： Windows 　[3.2] バージョン：pascal 　[3.3] 言語： pascal [4] 7月2日の3時まで [5] 特になし リンク先に問題文をおきました。 問題が２つあるので、b1.rb b2.rb　というふうにしてください。 よろしくお願いします。 47 名前：デフォルトの名無しさん [2010/07/13(火) 14:59:33 ] １個の自然数ｎを適当決めて、ｎチームが参加する リーグ戦の全試合日程を表示するプログラムを書きなさい お願いします！

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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