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

1 ：09/12/16 〜 最終レス ：12/01/10

教育用（？）プログラムPascalの宿題をやって頂くスレ
■丸投げOK
■全く分かってない阿呆も放置しないで優しく対応
■他言語はよそけ( ﾟДﾟ)ｺﾞﾙｧ
■DelphiもTurbo PascalもFreePascalも完全対応
■ Delphi ■
http://www.borland.co.jp/delphi/
■ FreePascal ■
http://freepascal.org/
■ Lazarus ■
http://www.lazarus.freepascal.org/
■ 過去スレ ■
Pascalの宿題は俺にやらせろ！！Part2
http://pc12.2ch.net/test/read.cgi/tech/1136994325/
Pascalの宿題は俺にやらせろ！！Part1
http://pc8.2ch.net/test/read.cgi/tech/1089719714/
■ 関連スレ ■
くだすれDelphi(超初心者用)その51
http://pc12.2ch.net/test/read.cgi/tech/1259667697/
【Delphi互換!?】FreePascal【GPL】
http://pc12.2ch.net/test/read.cgi/tech/1137051510/
Delphi初心者のための寺子屋
http://pc12.2ch.net/test/read.cgi/tech/1132756268/

2 ：

わざわざ無視することもないだろうと思うので
FreePascalとLazarusもテンプレに追加しました。
MAC系PascalとかUCSDとかはよう知らんので
詳しい人が居たら補完よろ。

3 ：

>>1乙
そしてどなたかこれお願いします･･･
ターミナル上でテキストを編集するプログラムを作成せよ
以下のコマンドも使えるようにする事
i ＝テキスト挿入
p ＝単語の手前にポインタ移動
d ＝入力した数だけポインタの後ろの文字を消す
c ＝入力した文字列をポインタの後の文字列に置き換える
s ＝ポインタの後に空白挿入
h ＝ヘルプ
q ＝終了

4 ：

丸投げすぎて笑っちまった

5 ：

ﾋﾄﾞｽｗ

6 ：

>>3
今からやってもいいけどもう少し詳細くれ

7 ：

h

8 ：

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 ：

他になにか足りない所があれば言ってください

10 ：

仕様を詳しくという意味なんだがｗ
こりゃダメかもな

11 ：

>>10
申し訳ない
月曜まで待ってくだされ

12 ：

>>11
誰かは名乗りませんが、ここは一応監視してますので、そのまま提出したらどうなるか想像してくださいね

13 ：

>>3の指導教官ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!

14 ：

他の言語ならともかくPascalの質問ができるところなんて限られてるから、
確かに監視はしやすいだろうなｗ

15 ：

この板のPascal/Delphi関連スレと
Delphi MLあたりだけで充分だろうな。　　＞監視対象

16 ：

abcdefgh
例えばこのeの直前にbbbを挿入したい場合、挿入コマンドを使いbbbと入力する。
コンピュータはコマンドを受けると、ポインタを合わせる文字の直前に*印をつけてポインタの位置を示す。
コンピュータ　command:
ユーザー　i　(「挿入せよ」と言う意味)
コンピュュータ　Insert what?
ユーザー　abcdefgh
コンピュータ　*abcdefgh
コンピュータ　command:
ユーザー p　（「ポインタを合わせよ」という意味）
コンピュータ　Point to what?
ユーザー def　（ポインタは入力された文字列の最初の文字に*印を付ける）
コンピュータ　　abc*defgh
コンピュータ　command :
...
必要な動作は繰り返し行う
入力コマンド
実行コマンド
入力コマンド
実行コマンド
入力コマンド
・
・
・
など

17 ：

で？

18 ：

ho

19 ：

シロツメクサの花が咲いたらさあ行こうPascal
六月の風が渡る道をロックリバーへ遠乗りしよう(キンコンカーン)
神様ありがとう僕に友達をくれて
Pascalに会わせてくれて
Pascalに会わせてくれて
ありがとう僕の友達
Pascalに会わせてくれて

20 ：

　　　　 ,へ､　　　　　　　　／＾i
　　　　 | \〉｀ヽ-―ー--<　〈\ |
　　　　 7 　 , -- 、, ---　、　 ヽ
　　　 /　 / 　＼､i, ,ノ　 　 ヽ　 ヽ
　　　 |　 （-=・=- 　-=・=- 　）　　|
　　　/　 <　　/ ▼　ヽ　　　 >　　　、
　　く彡彡　　 ﾄｪｪｪｪｲ　　　ミミミ　ヽ
　　　｀＜　　 ﾍｪｪｪｪﾉ　　 　ミミ彳ﾍ
　　　　 　＞　 　　　　　__＿／　　　＼
　　　　　/　　　　　　　　　7　　　　　　＼
　　　　　|　　　　　　　　／

21 ：

あらいぎまパスカル

22 ：

次のゲームを考える
・二人のプレイヤーA、Bにそれぞれ持ち点ｍ点を与える
・コイントスをして表が出たらAからBへ、裏が出たらBからAへ、１点渡す
・コイントスをくりかえして先に持ち点がなくなったほうが負け
一個の自然数ｍをキーボード入力から読み取ってこのゲームをたとえば１０００ゲーム繰り返して、
平均何回のコイントスで勝負がつくか、シュミレーションして求めるプログラムを作成してください。
ただしコイントスを10000回繰り返しても勝負がつかない場合があるかもしれないので、それは回数オーバーとして別にカウントしてください。
お願いします。

23 ：

シミュレーションならできるんだけどシュミレーションはちょっと分からないです
すみません

24 ：

俺はレーションを食うのが趣味だが何か？

25 ：

>>22
Free　PASCAL用
ttp://tomiya.bne.jp/cgi-bin/upup/src/myg_l2945.txt

26 ：

>>25
ありがとうございました。

27 ：

学校で宿題が出たんですけど、私の力では解けなくて・・・
微分方程式の境界値問題
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 ：

>>27
ゆみこという名前と
>お前ら解ける？ｗ
この文が矛盾し過ぎるんだが

29 ：

やっぱり解けない馬鹿だらけだなｗ

30 ：

釣りだと気付かないとかあわれすぎるｗ

31 ：

自分で解けるんなら自分で解けやカス

32 ：

hou

33 ：

問題
楕円内の定点Aより光が出て楕円にぶつかり反射する。
反射した光はまた楕円にぶつかり反射する。
この操作を繰り返すとき、光の通った跡を直線として描くと
楕円の内部を埋め尽くすか否かシミュレーションせよ。
お願いします
出発点Aの位置を変え実験せよ。（光のはじめの方向は適当でよい）

34 ：

>>33
結果をどうやって示すの？
埋め尽くすかどうかを何を基準に判定するの？

35 ：

>>34
分かりにくくてすいません。
適当にいくつかの数値を代入して、図示されればいいです。
埋め尽くすかどうか、というのはやらなくていいみたいです。

36 ：

>>35
図示するツールは何にするの？
線分の頂点をテキストファイルに吐き出せば、そっちで処理できる？

37 ：

ごちゃごちゃうるさいなあ・・・
まず適当に作ってから聞いて下さいよ

38 ：

だめだこりゃ(´･ω･`) 自分で勝手にやれ

39 ：

可変長文字列リストから任意のものを、変数を使わず取り出すにはどうすればいいですか？
たとえば
writeln(("January__February_March____April____（略）October__November_December_")[10..18]);
とすれば固定長としては取り出せますが・・・

40 ：

本当に取り出せた？

41 ：

ちょっと見てみたけどパスカルわかんねーので。
なんかendが多すぎね？
ttp://anchorage.2ch.net/test/read.cgi/siberia/1235319741/680
> プログラミング初心者です。以下の課題が出されたのですが、まったくわかりません。助言おねがいします。

42 ：

>>41
なぜにシベリア、それにperlじゃないのかそれ？

43 ：

>>42
begin endがあったからパスカルかとおもた。すまんかった。

44 ：

>>42
perlじゃないよねRubyかな？

45 ：

以下の条件(仕様)を満たすプログラムを作成し， そのプログラム(Pascalプログラムソースファイル)とともに その解説書を提出すること．
逆ポーランド記法で入力された論理式の充足可能性を判定し， その式の値をtrueにする変数値を，通常の表記とともに出力すること．
可能な演算は論理積(and)， 論理和(or)， 否定(not)， の3種類として， それぞれ 'a'，'o'，'n' で表現すること．
使用可能な論理変数は x0, x1, ..., x9 の10種類とし， それぞれ '0'，'1'，...，'9' で表現すること．
例) (x1∧x2)∨(¬x1∧x3)　⇒　 12a1n3ao
使用できない文字が含まれる入力に対してエラーの旨を出力すること．
入力された論理式の充足可能性を判定， 式の値を true にする変数値を出力した後， 再度入力待ち状態になり， 空の文字列を入力するとプログラムが終了すること．
これお願いします。解説も出来たらお願いします。

46 ：

すいません便乗して
[1] 授業単元：2分探索法
[2] 問題文： http://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 ：

１個の自然数ｎを適当決めて、ｎチームが参加する
リーグ戦の全試合日程を表示するプログラムを書きなさい
お願いします！

48 ：

ちょっと助けてくれ。
大学の講義でプログラミングしているのだが、まったくわからん。
ガンマ線計測によって得られたスペクトルデータを読もとり、データをテキストファイルに書き込んだり、グラフに表示することを各自プログラミングしてみよう。
以下、ヒント
Var
Chn:array of LongWord;
Real_Time,Live_Time:LongWord;
Second,Channels:Word;
DateTime:array[1..12] of Char;
FileName:String;
procedure ReadFile;
Var
InFile:File;
Dummy:array[1..6] of Char;
Result:Integer;
i:Word;
lw:LongWord;
次に続く

49 ：

begin
AssignFile(InFile,FileName);
FileMode:=fmOpenRead;
Reset(InFile,1);
BlockRead(InFile,Dummy,6,Result);
BlockRead(Infile,Second,2,Result);
BlockRead(Infile,Real_Time,4,Result);
BlockRead(Infile,Live_Time,4,Result);
BlockRead(Infile,DateTime,12,Result);
BlockRead(InFile,Dummy,2,Result);
BlockRead(InFile,Channels,2,Result);
Setlength(Chn,Channels);
For i:=0 to Channels-1 do begin
BlockRead(InFile,lw,4,Result);
Chn[i]:=lw;
end;
CloseFile(InFile);
end;
　ファイルを読み込むときによくやる方法は、"TOpenDialog" コンポーネントを使い、Button コンポーネントをクリックしたときのイベントハンドラなどで、OpenDialog1.Executeを呼び出す。
グラフを書く前に、データをテキストファイルに書き出す練習をしてみよう。テキストファイルの型は、Fileではなく、TextFileを使いう。
データを書き込むファイルを指定する場合には、"TSaveDialog"コンポーネントを使う。SaveDialog1.Executeを呼び出す。書き込む前に、Rewriteを使ってファイルを開く。書き込むときには、Writeln(OutFile,Ch[i]);などのようにする。
プログラムの動きを点検するときは、次の通り
　F4キーを押すと、押されたプログラムの部分まで実行されたら、実行がストップする。F8キーで、次の行、F7キーを押すと、行内でよびだされている手続き・関数内に行って、ストップする（手続き、関数が無い場合には、F8キーと同じ）。
ちなみに、Turbo Delphiというやつを使っている。
誰か無知な我にご加護を。

50 ：

誤字脱字が多すぎ

51 ：

>>50 指摘をするときは具体的にいってもらわないと伝わらないと思うのだが。１箇所は見つけたが、あとはわからん。それに申し訳ないが、問題文を読んだ上のコピペなので、自分には訂正できない（書き込む際には可能だが）。

52 ：

何をしてもらいたいのか書いてないから何も出来ない。
無知以前にコミュニケーション能力に問題あり。

53 ：

＞問題文を読んだ上のコピペなので、自分には訂正できない（書き込む際には可能だが）。
意味不明

54 ：

>>52-53 そうでしたら勝手にそう理解してください。あなた(あなた方？)に自分から言いたいことはもうありませんので。

55 ：

すまん
さっき見たときは２〜３ヶ所あったような気がしたが
今見ると１ヶ所しか見つけられない
こっそり書き直してないか？

56 ：

あー少なくとも2つあるな

57 ：

>>55　投稿は消せなくないか？一切手は加えていない。
>>56　それがどこか指摘してくれとさっきから言っているのだが。

58 ：

とりあえず2つ見っけ
>ガンマ線計測によって得られたスペクトルデータを読もとり、データをテキストファイルに書き込んだり、グラフに表示することを各自プログラミングしてみよう。
>グラフを書く前に、データをテキストファイルに書き出す練習をしてみよう。テキストファイルの型は、Fileではなく、TextFileを使いう。

59 ：

>>58 ありがとう。非常に助かる。書き直すにはどうすればいいのだろうか？

60 ：

質問してる奴もいちいち取り合ったり煽ったりすんなよな
誤字脱字を直してもらいたいだけなのか？
>>52へのレスは人間としてまちがってるな。
ここでやり取りしながら一からPascalを習うとかだったら、いつまでかかるかわからんぞ。
冷静になって、自分のレスが何をしてくれと書いてあるのかもう一度読んでみろ。

61 ：

C の宿題スレと違ってここは厳しいよねー。

62 ：

Delphi使いはほとんどが卑屈な人間だからね

63 ：

問題の中に明らかにそれと判るヒントが書いてあるのに
「まったくわからん」とかやる気がまったく感じられない
自分でやろうとしてどこまで出来て何が出来ないのか
何をして欲しいのか説明出来るようになってからまた来てね

64 ：

そして説明したらしたで、「そこまでわかっているならなぜできない」と言われる。

65 ：

手取り足取り教えてあげたいけど
いまどきTurboPascalってどうやったら入手出来るの

66 ：

まず、を脱ぎます。

67 ：

>>65
ttp://edn.embarcadero.com/article/20803
というかTurboDelphiって書いてあるじゃんよ

68 ：

ああTurboDelphiか
巣で読み間違えてた
っていうかここPascal専用？

69 ：

とりあえず詳しく話せとか言ってるアホは>>1をもう1回見てくるべきだな
○投げおｋなんだから理解できなかったら無視しろよ低脳ども

70 ：

丸投げの意味すらわからねーのかよ

71 ：

>>69
アホはお前だろ
情報が少なくて誰にも理解出来ないんじゃそもそも丸投げできてない

72 ：

ほ

73 ：

し

74 ：

ゅ

75 ：

が

76 ：

ひ

77 ：

Delphiって開発環境高く無いですか？
C#とかJavaはタダなのに………

78 ：

貧乏人に用はありません
はい、次の方どうぞ

79 ：

ubuntuにPASCALコンパイラ入れたいんですけどどうやるんでしょうか？

80 ：

それインストールできないなら、あきらめろ

81 ：

sudo apt-get install gpc fpc lazarus

82 ：

>>81
ありがとうございます。
やってみたのですが、パッケージ gpc が見つかりませんと出ます。
ubuntu 11.10ですが、何か別途ダウンロードが必要でしょうか？

83 ：

ほらな

84 ：

apt-cache search 検索するための文字列
を入力したらその文字列に該当するいくつかのパッケージが表示されるでしょう
その中にめぼしいものがあったら
sudo apt-get install そのパッケージ名
と入力してインストールするんですよ

85 ：

|....,,__
|＿::;; ~"'ヽ
|　//^''ヽ,,)
|　　i⌒"
| ∀｀）　＜ 誰もいない きのこるならいまのうち
|⊂
| ノ
　　　　　 _,,,......,,__
　　／_~　,,...:::＿::;; ~"'ヽ
　(,, '"ヾヽ　 i|i　//^''ヽ,,)
　 　^ :'⌒i　　　　i⌒"
　　　　　 |（　´∀｀）　＜ きのこ のこーのこ げんきのこ ♪
　　　　　 |（ﾉ　　 |つ
　　　　　 | 　　　 |
　　　　　⊂ ＿ ノ
　　　　　　　""U
　　　　　 _,,,......,,__
　　／_~　,,...:::＿::;; ~"'ヽ
　(,, '"ヾヽ　 i|i　//^''ヽ,,)
　 　^ :'⌒i　　　　i⌒"
　　　　 （´∀｀　）|　＜ エリンギ まいたけ ブナシメジ ♪
　　　　⊂|　　（ﾉ |
　　　　　 | 　　　 |
　　　　　 ヽ ＿ ⊃
　　　　　　.U""
|
| ミ
| ミ 　ｻｯ!
| ミ
|

86 ：

ほう

87 ：

GPCって改行だけさせたいときに
writeln()
としても駄目なんだな
writeln('')
としたらコンパイルしてくれた。このせいでこんな時間まで起きちまったぜ。

88 ：

writeln;
ならどう？

89 ：

>>88
普通にコンパイルできた。こんなのが通るとかPASCALの仕様なのか
コンパイラの拡張なのか知らないけどスゲエ

90 ：

いや、それ改行の常套手段だから。
俺がPascal使い始めた22年前でも普通にやってたし、
もっともっと古い時代のソース見ても改行は普通にWriteln;でやってる。

91 ：

あと、滅多に使わないけど
readln;
とか
random;
とかもできるよね

92 ：12/01/10

>>89
正式の仕様だよ。言語設計者が「改行はwriteln;」って書いているから。