VB：编一个函数过程Mysin(x)并求其近似值

桃扇骨 2022-05-26 13:07 165阅读 0赞

题目来源：大工慕课 [链接][Link 1]  
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验6-4  
作者：Caleb Sung

# 题目要求 #

编一个函数过程`Mysin(x)`，求

Mysin(x)=x1−x33!\+x55!−x77!\+⋯  M y sin ⁡ ( x ) = x 1 − x 3 3 ! + x 5 5 ! − x 7 7 ! + ⋯

当第n项的精度小于10-5时结束，x为弧度；主调程序同时调用Mysin和内部函数sin，进行验证。

# 提示 #

关键是找部分级数和的通项，可如下表示：  
（吐槽：LaTex打公式可谓相当蛋疼……）

ti\+2=(−1)⋅ti⋅x⋅x(i\+1)(i\+2),i=1,3,5,7,⋯  t i + 2 = ( − 1 ) ⋅ t i ⋅ x ⋅ x ( i + 1 ) ( i + 2 ) , i = 1 , 3 , 5 , 7 , ⋯

# 参考代码 #

Dim x!
    
    Function MySin(x!) As Double
        Dim i%, t!, s!
        t = x
        s = t
        i = 1
        Do While Abs(t) > 0.00001
            t = -1 * t * x * x / ((i + 1) * (i + 2))
            s = s + t
            i = i + 2
        Loop
        MySin = s
    End Function
    
    Private Sub Command1_Click()
        x = Val(Text1.Text)
        Label4.Caption = Format(Sin(x), "0.000000")
        Label5.Caption = Format(MySin(x), "0.000000")
    End Sub

# 运行效果 #

![这里写图片描述][70]

[Link 1]: https://mooc.dlut.edu.cn/
[70]: /images/20220526/1e3a8b9022a54344a754199323d64004.png

发表评论取消回复

表情：

评论列表（有 0 条评论，165人围观）

还没有评论，来说两句吧...

相关阅读

相关使用函数求余弦函数的近似值 (15 分)

使用函数求余弦函数的近似值 (15 分) 本题要求实现一个函数，用下列公式求cos(x)的近似值，精确到最后一项的绝对值小于e： cos(x)=x0/0!−x2/2!+

超、凢脫俗/ 2023年10月11日 16:01/ 0 赞/ 34 阅读

相关利用微分和导数求近似值

例题计算cos29°的近似值。解答过程 ![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM

喜欢ヅ旅行/ 2023年07月13日 13:45/ 0 赞/ 18 阅读

相关【C语言】写一个函数，求一个字符串的长度，在main函数中输入字符串，并输出其长度

include<stdio.h> include<stdlib.h> int main() { char str[20];

水深无声/ 2023年07月13日 13:33/ 0 赞/ 17 阅读

相关求e的近似值

自然常数 e 可以用级数 1+1/1!+1/2!+⋯+1/n!+⋯ 来近似计算。本题要求对给定的非负整数 n，求该级数的前 n+1 项和。输入格式: 输入第一行中给出非

缺乏、安全感/ 2023年07月10日 14:10/ 0 赞/ 4 阅读

相关习题5-7 使用函数求余弦函数的近似值

1 include <stdio.h> 2 include <math.h> 3 4 double funcos(double e, d

雨点打透心脏的1/2处/ 2022年10月02日 13:59/ 0 赞/ 141 阅读

相关求π近似值

圆周率 π可以通过公式求近似值。公式如下： ![Center][] 代码为： <!DOCTYPE html> <html> <head>

待我称王封你为后i/ 2022年07月15日 08:36/ 0 赞/ 165 阅读

相关求π近似值

include <math.h> include <stdio.h> //使用格雷戈里公式计算π的近似值，精确到0.0001 int mai

绝地灬酷狼/ 2022年07月03日 13:55/ 0 赞/ 162 阅读

相关求π的近似值

利用如下公式，编写函数计算∏的值，直到最后一项的绝对值小于e,主程序接收从键盘输入的e，输出∏的值（保留5位小数）。 ∏/4 = 1-1/3+1/5-1/7...

ゝ一纸荒年。/ 2022年06月06日 04:11/ 0 赞/ 194 阅读

相关 VB：编一个函数过程Mysin(x)并求其近似值

题目来源：大工慕课 [链接][Link 1] 原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社实验6-4 作者：Caleb Sung

桃扇骨/ 2022年05月26日 13:07/ 0 赞/ 166 阅读

相关求圆周率pi的近似值

题目描述用如下公式 ![在这里插入图片描述][70] 求圆周率PI的近似值，直到发现某一项的绝对值小于10-6为止（该项不累加）。要求输出的结果总宽度占10

淩亂°似流年/ 2022年05月08日 19:20/ 0 赞/ 205 阅读