09/12/16 09:13:12
教育用（？）プログラムPascalの宿題をやって頂くスレ
■丸投げOK
■全く分かってない阿呆も放置しないで優しく対応
■他言語はよそ逝け( ﾟДﾟ)ｺﾞﾙｧ
■DelphiもTurbo PascalもFreePascalも完全対応
■ Delphi ■
URLﾘﾝｸ(www.borland.co.jp)
■ FreePascal ■
URLﾘﾝｸ(freepascal.org)
■ Lazarus ■
URLﾘﾝｸ(www.lazarus.freepascal.org)
■ 過去スレ ■
Pascalの宿題は俺にやらせろ！！Part2
ｽﾚﾘﾝｸ(tech板)
Pascalの宿題は俺にやらせろ！！Part1
ｽﾚﾘﾝｸ(tech板)
■ 関連スレ ■
くだすれDelphi(超初心者用)その51
ｽﾚﾘﾝｸ(tech板)
【Delphi互換!?】FreePascal【GPL】
ｽﾚﾘﾝｸ(tech板)
Delphi初心者のための寺子屋
ｽﾚﾘﾝｸ(tech板)
2:1
09/12/16 09:14:43
わざわざ無視することもないだろうと思うので
FreePascalとLazarusもテンプレに追加しました。
MAC系PascalとかUCSDとかはよう知らんので
詳しい人が居たら補完よろ。
3:デフォルトの名無しさん
09/12/16 17:50:36
>>1乙
そしてどなたかこれお願いします･･･
ターミナル上でテキストを編集するプログラムを作成せよ
以下のコマンドも使えるようにする事
i ＝テキスト挿入
p ＝単語の手前にポインタ移動
d ＝入力した数だけポインタの後ろの文字を消す
c ＝入力した文字列をポインタの後の文字列に置き換える
s ＝ポインタの後に空白挿入
h ＝ヘルプ
q ＝終了
4:デフォルトの名無しさん
09/12/16 22:06:52
丸投げすぎて笑っちまった
5:デフォルトの名無しさん
09/12/16 22:11:50
ﾋﾄﾞｽｗ
6:デフォルトの名無しさん
09/12/17 01:12:53
>>3
今からやってもいいけどもう少し詳細くれ
7:デフォルトの名無しさん
09/12/19 05:56:47
h
8:>>3
09/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
09/12/19 13:08:57
他になにか足りない所があれば言ってください
10:デフォルトの名無しさん
09/12/19 15:28:24
仕様を詳しくという意味なんだがｗ
こりゃダメかもな
11:デフォルトの名無しさん
09/12/19 16:28:19
>>10
申し訳ない
月曜まで待ってくだされ
12:デフォルトの名無しさん
09/12/19 22:45:58
>>11
誰かは名乗りませんが、ここは一応監視してますので、そのまま提出したらどうなるか想像してくださいね
13:デフォルトの名無しさん
09/12/20 10:29:34
>>3の指導教官ｷﾀ━━━(ﾟ∀ﾟ)━━━ !!!!!
14:デフォルトの名無しさん
09/12/20 22:53:35
他の言語ならともかくPascalの質問ができるところなんて限られてるから、
確かに監視はしやすいだろうなｗ
15:デフォルトの名無しさん
09/12/20 23:10:04
この板のPascal/Delphi関連スレと
Delphi MLあたりだけで充分だろうな。 ＞監視対象
16:>>3
09/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:デフォルトの名無しさん
09/12/22 14:29:07
で？
18:デフォルトの名無しさん
09/12/26 05:59:38
ho
19:デフォルトの名無しさん
09/12/29 21:54:02
シロツメクサの花が咲いたらさあ行こうPascal
六月の風が渡る道をロックリバーへ遠乗りしよう(キンコンカーン)
神様ありがとう僕に友達をくれて
Pascalに会わせてくれて
Pascalに会わせてくれて
ありがとう僕の友達
Pascalに会わせてくれて
20:デフォルトの名無しさん
09/12/29 23:08:05
,へ､ ／＾i
| \〉｀ヽ-―ー--< 〈\ |
7 , -- 、, --- 、 ヽ
/ / ＼､i, ,ノ ヽ ヽ
| （-=・=- -=・=- ） |
/ < / ▼ ヽ > 、
く彡彡 ﾄｪｪｪｪｲ ミミミ ヽ
｀＜ ﾍｪｪｪｪﾉ ミミ彳ﾍ
＞ __＿／ ＼
/ 7 ＼
| ／
21:デフォルトの名無しさん
09/12/31 17:26:48
あらいぎまパスカル
22:デフォルトの名無しさん
10/01/20 01:32:34
次のゲームを考える
・二人のプレイヤーA、Bにそれぞれ持ち点ｍ点を与える
・コイントスをして表が出たらAからBへ、裏が出たらBからAへ、１点渡す
・コイントスをくりかえして先に持ち点がなくなったほうが負け
一個の自然数ｍをキーボード入力から読み取ってこのゲームをたとえば１０００ゲーム繰り返して、
平均何回のコイントスで勝負がつくか、シュミレーションして求めるプログラムを作成してください。
ただしコイントスを10000回繰り返しても勝負がつかない場合があるかもしれないので、それは回数オーバーとして別にカウントしてください。
お願いします。
23:デフォルトの名無しさん
10/01/20 13:06:41
シミュレーションならできるんだけどシュミレーションはちょっと分からないです
すみません
24:デフォルトの名無しさん
10/01/20 14:38:00
俺はレーションを食うのが趣味だが何か？
25:デフォルトの名無しさん
10/01/22 16:48:45
>>22
Free PASCAL用
URLﾘﾝｸ(tomiya.bne.jp)
26:デフォルトの名無しさん
10/01/26 13:48:29
>>25
ありがとうございました。
27:ゆみこ
10/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:デフォルトの名無しさん
10/02/04 16:18:18
>>27
ゆみこという名前と
>お前ら解ける？ｗ
この文が矛盾し過ぎるんだが
29:ゆみこ
10/02/05 12:22:34
やっぱり解けない馬鹿だらけだなｗ
30:ゆみこ
10/02/05 12:23:14
釣りだと気付かないとかあわれすぎるｗ
31:デフォルトの名無しさん
10/02/05 12:30:28
自分で解けるんなら自分で解けやカス
32:デフォルトの名無しさん
10/02/07 18:14:06
hou
33:デフォルトの名無しさん
10/02/22 15:20:38
問題
楕円内の定点Aより光が出て楕円にぶつかり反射する。
反射した光はまた楕円にぶつかり反射する。
この操作を繰り返すとき、光の通った跡を直線として描くと
楕円の内部を埋め尽くすか否かシミュレーションせよ。
お願いします
出発点Aの位置を変え実験せよ。（光のはじめの方向は適当でよい）
34:デフォルトの名無しさん
10/02/22 15:24:17
>>33
結果をどうやって示すの？
埋め尽くすかどうかを何を基準に判定するの？
35:デフォルトの名無しさん
10/02/22 16:23:28
>>34
分かりにくくてすいません。
適当にいくつかの数値を代入して、図示されればいいです。
埋め尽くすかどうか、というのはやらなくていいみたいです。
36:デフォルトの名無しさん
10/02/22 16:39:53
>>35
図示するツールは何にするの？
線分の頂点をテキストファイルに吐き出せば、そっちで処理できる？
37:デフォルトの名無しさん
10/02/22 17:20:25
ごちゃごちゃうるさいなあ・・・
まず適当に作ってから聞いて下さいよ
38:デフォルトの名無しさん
10/02/22 18:12:40
だめだこりゃ(´･ω･`) 自分で勝手にやれ
39:デフォルトの名無しさん
10/02/26 20:49:17
可変長文字列リストから任意のものを、変数を使わず取り出すにはどうすればいいですか？
たとえば
writeln(("January__February_March____April____（略）October__November_December_")[10..18]);
とすれば固定長としては取り出せますが・・・
40:デフォルトの名無しさん
10/02/26 23:32:39
本当に取り出せた？
41:デフォルトの名無しさん
10/05/23 23:39:18
ちょっと見てみたけどパスカルわかんねーので。
なんかendが多すぎね？
ｽﾚﾘﾝｸ(siberia板:680番)
> プログラミング初心者です。以下の課題が出されたのですが、まったくわかりません。助言おねがいします。
42:デフォルトの名無しさん
10/05/24 01:39:53
>>41
なぜにシベリア、それにperlじゃないのかそれ？
43:デフォルトの名無しさん
10/05/24 01:44:21
>>42
begin endがあったからパスカルかとおもた。すまんかった。
44:デフォルトの名無しさん
10/06/01 01:09:14
>>42
perlじゃないよねRubyかな？
45:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/07/01 22:15:03
すいません便乗して
[1] 授業単元：2分探索法
[2] 問題文： URLﾘﾝｸ(uploader.sakura.ne.jp)
[3] 環境
[3.1] OS： Windows
[3.2] バージョン：pascal
[3.3] 言語： pascal
[4] 7月2日の3時まで
[5] 特になし
リンク先に問題文をおきました。
問題が２つあるので、b1.rb b2.rb というふうにしてください。
よろしくお願いします。
47:デフォルトの名無しさん
10/07/13 14:59:33
１個の自然数ｎを適当決めて、ｎチームが参加する
リーグ戦の全試合日程を表示するプログラムを書きなさい
お願いします！