DouKaku?beta

Comment detail

立方根の計算 (Nested Flatten) 
電卓でルートキーを使って立方根を求める方法を試そうと思って。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
!立方根の計算
FUNCTION cube_root(x)
   LET  y = x
   LET  E = 1e-13
   DO
      LET  y0 = y
      LET  y = SQR(SQR(y * x))
   LOOP  WHILE y0 - y > E
   LET  cube_root = y
END FUNCTION

FOR i = 1 TO 1000
   PRINT  i;cube_root(i)
NEXT i
END

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]