[表示 : 全て 最新50 1-99 2chのread.cgiへ]
Update time : 05/09 23:59 / Filesize : 32 KB / Number-of Response : 91
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

 【FORTRAN77】 プログラムを起動させて!!



26 名前: [03/07/13 03:05]
あと”DOループの中で t, k, sinx の値がどのように変化するのか、確認して下さい。”
と、あったのでプログラムの意図を書いて見ます。

@xが0.2ずつ増えて3.2までいくようにする。ただし、3.2を超えた部分になると
 if文が働き、ENDへ行く(計算の終わり)
Anは項の数であって、0〜100までの範囲を対象としている。100とは大きい数字であり、
 100に行くまでに(10**(-6))を下回る項が出てくるので100とした。
Btとsをそれぞればらばらに計算し、s/t=kの数値がその項の答えとなる。
 当然、 (10**(-6))より多ければループ続行、小さければif文によって出力作業。
C出力されなかったものはsinx=sinx+kということで蓄積されてゆく。
 最後にあえてこの式をもってきたかというと、kが規格外だった場合、和として
 計算しないからである。kが規格外ならば、足されずに出力されて終わりだからである。
Dこれをdo 200 でループさせ、nをひとつづつ上げて、求める項を増やしてゆく。

こんなイメージで組みました。下>>26に手を加えたものを書きます。
本当ひどいかもしれませんが、
各部分の間違いがお気づきでしたら、手直しお願いできないでしょうか?
もしくは解答なるもの等。。。
今日、一日パソコンに張り付いていたので寝ます。さすがに疲れました。
日付変わっているので今日の正午あたりにまた来ます。
おやすみなさい。



アドバイスをくれた方々ありがとうございました。
一日ごくろう様でした。また今日もよろしくお願いします。






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

全部読む 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧](*・∀・)<32KB

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