• 习近平要求把这项工作作为重大政治任务 2019-03-24
  • 充分发挥重要平台和有效载体作用 以特色小镇建设促进乡村振兴 2019-03-18
  • 脸每天都洗,但你真的洗对了吗? 2019-03-18
  • 港珠澳大桥珠海口岸停车场智慧停车系统启用在即 2019-03-14
  • 以实际行动诠释忠诚 以实干实政维护核心 2019-03-14
  • 天津市津南区严打校园周边“五毛食品” 2019-03-11
  • 设计众议院:新时代消费观念造就的全新第八代凯美瑞 2019-03-11
  • 补时绝杀!英格兰2-1突尼斯 凯恩梅开二度 2019-03-09
  • 我和党报党网有个约会在线征集活动 2019-03-09
  • 吃饭刷脸 还有多远? 2019-03-07
  • 中共中央文件选集一(1921―1925) 2019-03-05
  • 《中国气候变化蓝皮书》:年平均气温显著上升 2019-03-05
  • 这样的银行就应该倒闭 2019-03-01
  • 有兴趣的朋友可以去看咱的《机器人普及时代的生产关系》…… 2019-03-01
  • 中国欲举办2030年世界杯?网友调侃:真可笑 2019-02-26
  • 批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
    [批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
    返回列表 发帖

    山东十一选五开奖时间:VBS实现数学书上的开根思路

    哈数学必修5有一个求根号2的流程图,我觉得不错,写成vbs贴上来了
     广东十一选五计划软件 www.qe-ar.com 
    1. a=1
    2. b=0.1
    3. do
    4. if (a+b)^2 > 2 then
    5.     msgbox a
    6.     b=b/10
    7. else
    8.     a=a+b
    9. end if
    10. loop until b<0.000001
    11. msgbox a & "<------>" & sqr(2)
    复制代码

    [ 本帖最后由 523066680 于 2008-9-6 10:38 编辑 ]
    2

    评分人数

    综合型编程论坛
    Writing Code That Nobody Else Can Read.

    不错哦...什么时候搞个批处理版?

    TOP

    用批处理做就稍有些吃力咯……我下次上网是在下个星期呢、

    收回上面的话 用批处理做应该也不错的,大伙儿试试吧 哈 谢谢batcher的加分
    我去翻翻看 书上还有一些不错的算法流程图的

    [ 本帖最后由 523066680 于 2008-9-6 14:33 编辑 ]
    综合型编程论坛
    Writing Code That Nobody Else Can Read.

    TOP

    小伙,把你书上的内容告诉我~我一字不差地记下来。
    心绪平和,眼藏静谧。

    TOP

    书上还有求圆周率的  方法用祖冲之的那个………有些长 我没看完
    综合型编程论坛
    Writing Code That Nobody Else Can Read.

    TOP

    转一个我在CN-DOS发的

    '恩,记得用CScript调用……

    '这个是连续运算最后输出,比一行一行的输出速度快。

    Dim b, c, d, e,n, f()
    n = 1000 '在这里定义位数
    c = n / 4 * 14
    ReDim f(c)
    For b = 0 To c
        f(b) = 2000
    Next

    Do While
    (c)
       
    b = c
        d = f(b) * 10000
        f(b) = d Mod (b * 2 - 1)
       
    d = d \ (b * 2 - 1)
       
    b = b - 1
        Do While(b)
            
    d = d * b + f(b) * 10000
            f(b) = d Mod (b * 2 - 1)
            
    d = d \ (b * 2 - 1)
            
    b = b - 1
        Loop
       
    c = c - 14
        i = e + d \ 10000
        i = Right("0000" & i,4)
       
    If k < 10 Then
            
    k = k + 1
            ShowLine = ShowLine & i
        Else
            
    k = 0
            'WSH.Echo ShowLine
            
    ShowLine = ShowLine & vbCrLf
        End If
       
    e = d Mod 10000
    Loop
    WSH.Echo ShowLine

    TOP

    某天看到牛顿迭代法了……
    综合型编程论坛
    Writing Code That Nobody Else Can Read.

    TOP

    高中时代的523066680

    TOP

    返回列表
  • 习近平要求把这项工作作为重大政治任务 2019-03-24
  • 充分发挥重要平台和有效载体作用 以特色小镇建设促进乡村振兴 2019-03-18
  • 脸每天都洗,但你真的洗对了吗? 2019-03-18
  • 港珠澳大桥珠海口岸停车场智慧停车系统启用在即 2019-03-14
  • 以实际行动诠释忠诚 以实干实政维护核心 2019-03-14
  • 天津市津南区严打校园周边“五毛食品” 2019-03-11
  • 设计众议院:新时代消费观念造就的全新第八代凯美瑞 2019-03-11
  • 补时绝杀!英格兰2-1突尼斯 凯恩梅开二度 2019-03-09
  • 我和党报党网有个约会在线征集活动 2019-03-09
  • 吃饭刷脸 还有多远? 2019-03-07
  • 中共中央文件选集一(1921―1925) 2019-03-05
  • 《中国气候变化蓝皮书》:年平均气温显著上升 2019-03-05
  • 这样的银行就应该倒闭 2019-03-01
  • 有兴趣的朋友可以去看咱的《机器人普及时代的生产关系》…… 2019-03-01
  • 中国欲举办2030年世界杯?网友调侃:真可笑 2019-02-26