新しく発言する EXIT インデックスへ
助けてください

  助けてください tanaka 2006/07/20 22:36:55 
  !問題の意味が、以下のとおりで良ければ、 諏訪 雄治 2006/07/21 01:08:18 
   └返事が遅くなってすみませんでした。 tanaka 2006/07/23 13:48:16 

  助けてください tanaka 2006/07/20 22:36:55  ツリーへ

助けてください 返事を書く
tanaka 2006/07/20 22:36:55
はじめまして
突然ですが、教えて頂きたい事があります。
Sn=(3/4)^(n-1)*SQR(3)/16
 n
 粘n=4{1-(3/4)^n}*SQR(3)/16
1<=k<=n
n
粘n >0.4325 となるnの最小値を求めよ。
1<=k<=n
という問題なんですがプログラムの組み方が皆目分からなくて困っています。
どなたか教えてください。
勝手ではありますが急ぎですので分かりやすく簡潔にして頂けるとうれしいです。

  !問題の意味が、以下のとおりで良ければ、 諏訪 雄治 2006/07/21 01:08:18  ツリーへ

Re: 助けてください 返事を書く
諏訪 雄治 2006/07/21 01:08:18
!問題の意味が、以下のとおりで 良ければ、
!このまま、コピー貼り付けで、走ります。

! 数列 S の、k 番目の項が 次式で与えられるとき、
! Sk=(3/4)^(k-1)*SQR(3)/16

! k=1,2,,,n までの Sk の総和 SUM(n) は、
!    n
!SUM(n)= 粘k = 4*{1-(3/4)^n}*SQR(3)/16 となる。
!    k=1
!    n
!SUM(n)= 粘k >0.4325 となるnの最小値を求めよ。
!    k=1

FOR n=1 TO 30
PRINT "n=";n;

!-----あらためて SUM(n)を 計算する場合。
LET Sn=0
FOR k=1 TO n
LET Sn=Sn+ (3/4)^(k-1)*SQR(3)/16
NEXT K
PRINT TAB(7);Sn;

!------書いてある SUM(n)を そのまま使う場合。
LET Sn= 4*(1-(3/4)^n)*SQR(3)/16
PRINT TAB(25);Sn

!------条件に合ったら、停止。
IF 0.4325<Sn THEN STOP
NEXT N

END

   └返事が遅くなってすみませんでした。 tanaka 2006/07/23 13:48:16  ツリーへ

Re: !問題の意味が、以下のとおりで良ければ、 返事を書く
tanaka 2006/07/23 13:48:16
返事が遅くなってすみませんでした。
おかげでどうにか課題を提出できました。
ありがとうございました。m(..)m


インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。