2
1
0
新人
01
module
NUMERTICAL
02
implicit
none
03
real
,
parameter
::
zero
=
0.00001
04
contains
05
function
bisect
(
A
B
)
!这是声明bisect返回值为一个浮点数
06
IMPLICIT
NONE
07
08
C
09
FA
10
FB
11
FC
12
13
14
+
/
2.0
15
func
16
17
do
while
abs
fc
>
18
19
20
if
*
<
then
21
22
23
else
24
25
26
end
27
FUNC
28
29
30
return
31
32
33
34
35
X
36
37
38
+3
-3
39
40
41
42
43
program
main
44
use
45
46
47
ANS
48
.true.
49
write
'输入两个猜测值'
50
read
51
exit
52
"不正确的猜测"
53
54
55
56
"('x=',F6.3)"
ans
57
stop
58
使用道具 举报
World Analyser
268
版主
(1) 若f(c)=0,则c就是函数的零点; (2) 若f(a)·f(c)<0,则令b=c; (3) 若f(c)·f(b)<0,则令a=c.
result
!//这里注意
fb
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给注册后积极发言的新人
颁发给在娱乐版上传了真实照片的女性网友
颁发给论坛注册3年以上的网友
颁发给论坛热心帮助他人的网友
颁发给完成“有规有矩”任务的网友
颁发给本站版主和管理
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-3-15 18:16
Powered by Discuz! X3.4
© 2013-2025 Comsenz Inc.