| 查看: 456 | 回复: 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 |
回复此楼» 猜你喜欢
有没有人能给点建议
已经有5人回复
-
假如你的研究生提出不合理要求
已经有12人回复
-
实验室接单子
已经有7人回复
-
全日制（定向）博士
已经有5人回复
-
萌生出自己或许不适合搞科研的想法，现在跑or等等看？
已经有4人回复
-
Materials Today Chemistry审稿周期
已经有4人回复
-
参与限项
已经有3人回复
-
对氯苯硼酸纯化
已经有3人回复
-
所感
已经有4人回复
-
要不要辞职读博？
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请大神看看下面红外图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