| 查看: 501 | 回复: 2 | ||
[求助]
请大神帮我看下问题到底出在哪里？纠结啊··快疯了·· 已有2人参与
|
|
我这个程序在输入那里总是触发断点，不知道怎么回事·我是新手·研究了一星期了··求大神给帮帮忙改一下程序 real(8) function jiechengXstep(x,step) implicit none real(8),intent(in)::x,step real(8)::i jiechengXstep=1.0 do i=x,1,-step jiechengXstep=jiechengXstep*i end do end function jiechengXstep program main implicit none interface real(8) function jiechengXstep(x,step) real(8),intent(in)::x,step end function jiechengXstep end interface real(8):: part,x,a1,d1=1.0,i integer,parameter:: n=10 real(8),dimension(n)::inputNm open(1,file='inputNm',status='old') open(3,file="result.txt",form='formatted') do i=1,n read(10,*) inputNm(i) end do a1=x/2 do i=1,50 part=(-1.0)**i*(x)**(2.0*i+1.0)/((2.0)**(2.0*i+1.0)*(jiechengXstep(i,d1))*(jiechengXstep((i+1),d1))) a1=a1+part end do do i=1,n write(3,*)"x=",x write(3,*) "a1=",a1 write(*,*)'a1=',a1 end do read(*,*)x end |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
-
论文撤稿了
已经有6人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
-
河北省自然科学基金
已经有9人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有8人回复
-
西安交大新媒学院副院长用撤稿论文结题
已经有5人回复
-
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请大神看看下面红外图1500-1700分别啥峰很纠结
已经有3人回复
- 【酶连】三片段连接总是做不出来，求助！
已经有7人回复
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
2楼2014-06-08 13:45:45
3楼2014-06-08 16:49:18
10