主题：如何用QB求根号2？
54BB
[专家分：380] 发布于 2005-04-16 22:06:00
[em1]
回复列表 （共15个回复）
沙发
阿珠 [专家分：100] 发布于 2005-04-16 23:20:00
? sqr(2)
板凳
wqbt [专家分：30] 发布于 2005-04-17 15:05:00
凼数SQR（数值）
3 楼
litboat [专家分：140] 发布于 2005-04-18 15:05:00
好难啊~~
谁能教我算法啊？
4 楼
飞鸟12 [专家分：2830] 发布于 2005-04-18 15:28:00
1 =1
4 =1+3
9 =1+3+5
16=1+3+5+7
25=1+3+5+7+9
...
这样可以求得 开平方后 结果的整数部分
DO
INPUT n
sum = 0
FOR i = 1 TO n STEP 2
sum = sum + i
IF n < sum THEN EXIT FOR
NEXT i
PRINT i \ 2
LOOP
[url=http://cache.baidu.com/c?word=%B1%CA%CB%E3%3B%BF%AA%3B%C6%BD%B7%BD&url=http%3A//www%2Echledu%2Ecom/cz/01/XK09%5FNJ08/ZY20050118105513625/WBZY/SC20050118124117265%2Edoc&b=0&a=40&user=baidu]笔算开平方[/url]
[url=http://www.sdlunzhong.cn/stasp/2003yj/wxh/jzsx/]九章算术[/url]
5 楼
54BB [专家分：380] 发布于 2005-04-23 17:42:00
其实有个很简单的办法，print 2^(1/2)
6 楼
faintzw [专家分：2660] 发布于 2005-04-23 18:33:00
算法很简单啊……
x*x=2
两边同减去1，得x*x-1=1
左边应用平方差公式，得(x+1)(x-1)=1
移项，得x=(x+2)/(x+1)
然后不断迭代到一个能够容许的误差范围即可……
x的初值只要不是-1就OK
7 楼
cleverboy [专家分：80] 发布于 2005-05-22 09:36:00
s=0
for i= 1 to 100
for j=2 to i-1
if i mod j=0 then m=m+1
next j
if m=0 then s=s+i
next i
? "一百之内的质数之和为";s
8 楼
cleverboy [专家分：80] 发布于 2005-05-22 09:37:00
1 =1
4 =1+3
9 =1+3+5
16=1+3+5+7
25=1+3+5+7+9
...
这样可以求得 开平方后 结果的整数部分
DO
INPUT n
sum = 0
FOR i = 1 TO n STEP 2
sum = sum + i
IF n < sum THEN EXIT FOR
NEXT i
PRINT i \ 2
LOOP
9 楼
moz [专家分：37620] 发布于 2005-05-24 11:33:00
忘了
读书的时候好像有开方的计算过程的
10 楼
飞鸟12 [专家分：2830] 发布于 2005-05-25 12:49:00
8楼的,别这样啊！
我来回复
您所在位置：