希望各位大大能帮帮忙,小弟家当都上了
题目如下:

编写外部函数子程序,计算SIN X=X -(X^3)/3! + (X^5)/5!-(X^7)/7! +......的值,直到最后一项的绝对值小于10^-6为止。再编写主程序,从键盘读入X,调用该外部函数并输出S的计算结果。

FROM:《fortran95程序设计与数据结构基础教程》天津大学出版社,178页习题3
额 我试了 怎么输入数字没反应... 你试了吗 是不是哪里有点问题啊

展开全部
收起
2回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 朱果果

    16人对此回答表示赞同

    ! 此程序已经通过调试,请放心使用
    PROGRAM MAIN
    IMPLICIT NONE
    REAL :: X,MY_SIN
    WRITE(*,*) '请输入 x 的值 :'
    READ(*,*) X
    WRITE(*,*) 'MY_SIN(X)=', MY_SIN(X)
    END PROGRAM
    !----------------------------
    FUNCTION
    展开
    16
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Q小Q

    10人对此回答表示赞同

    呵呵,我忘记考虑整型变量范围的问题。程序已改:

    program sin_taylor
    implicit none

    real x,s,sintaylor

    read(*,*)x ! 从键盘读入X
    s=sintaylor(x) ! 调用外部函数sintaylor
    print*,s

    pause
    end program sin_taylor
    !!!!!!!!!!!!!!!!!!
    展开
    10
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部