READ(*,*)X0,EP
N=1
10 X=1.0/(X0*X0+1.0)
WRITE(*,200) N,X
200 FORMAT(1X,2HN=,I4,5X,2HX=,F10.6)
IF (ABS(X-X0).LT.EP) GOTO 20
X0=X
N=N+1
GOTO 10
20 STOP
END
求助c语言高手帮在下解决几个棘手的问题, 就是帮忙把fortran语言转换成c语言
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
0条回答 默认 最新
悬赏问题
- ¥15 关于#hadoop#的问题
- ¥15 (标签-Python|关键词-socket)
- ¥15 keil里为什么main.c定义的函数在it.c调用不了
- ¥50 切换TabTip键盘的输入法
- ¥15 可否在不同线程中调用封装数据库操作的类
- ¥15 微带串馈天线阵列每个阵元宽度计算
- ¥15 keil的map文件中Image component sizes各项意思
- ¥20 求个正点原子stm32f407开发版的贪吃蛇游戏
- ¥15 划分vlan后,链路不通了?
- ¥20 求各位懂行的人,注册表能不能看到usb使用得具体信息,干了什么,传输了什么数据