BASICの宿題はお前にまかせた

1 名前：BASIC mailto:fh [2006/01/09(月) 15:35:00 ] N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい 身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する 200 名前：デフォルトの名無しさん [2007/01/06(土) 21:16:30 ] どなたか助けてください。 簡単なことなようなのに、どうしてもできないのです。 ”tanX=c/X”を求めようとして調べている間に「高校数学の窓」というページを見つけ、 質問「１１２６」で下記のようなプログラムを見つけましたが、 このプログラムは”tanX=c/X”ではなくて”tanX=X”を求めるプログラムなのです。 自分で”tanX=c/X”用にアレンジしようとしたのですが、どうして良いのかわかりません。 Ｂａｓｉｃに詳しいどなたか、どういう風に書き換えればよいのか教えてください。 どうぞよろしくお願いします。 DEF f(x)=x-tan(x) DEF g(x)=-(tan(x))^2 ! g(x)=f'(x) INPUT a LET x=a LET E=0.000001 DO LET x1=x-f(x)/g(x) PRINT x1 IF ABS(x1-x)＜E THEN EXIT DO LET x=x1 LOOP END 201 名前：２００ [2007/01/06(土) 22:04:49 ] 計算法的なやりかたとしては、f(x) = tan(x)-c/xとおいて，f(x)を微分し，f'(x)=g(x) = 1/cos(x)2+c/x2とお くと思います。 よろしくおねがいします。 202 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 22:24:11 ] >>200-201 そこまで考えたのなら、そのまま書いて試してみればいいじゃない。 DEF f(x)=TAN(x)-c/x DEF g(x)=COS(x)^(-2)+c*x^(-2) ! g(x)=f'(x) INPUT c, a LET x=a LET E=0.000001 DO LET x1=x-f(x)/g(x) PRINT x1 IF ABS(x1-x)<E THEN EXIT DO LET x=x1 LOOP END

---

---

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

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