| 查看: 453 | 回复: 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人回复
-
博士读完未来一定会好吗
已经有15人回复
-
Springer期刊投稿求助
已经有4人回复
-
读博
已经有3人回复
-
小论文投稿
已经有3人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有9人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有8人回复
-
申请2026年博士
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
请大神看看下面红外图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