Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Question 01(a)
program bisection_method Implicit none Real::a,b,c,f,tol Read(*,*)a,b,tol Write(*,*)"the value of the inputs are:",a, b,tol If(f(a)*f(b)>0)then Write(*,*)"invalid,input new and b" Stop End if 10 c=(a+b)/2.0 If (f(c)==0) then Write(*,*)"root is :",c Stop End if If (f(a)*f(b)<0) then B=c Else A=c End if If(ABS(b-a)<tol)then Write(*,*)"root is:",c Stop Else Go to 10 End if End program Real function f(x) Real::x f=x**3-2*x-5 End function
run
|
edit
|
history
|
help
0
55
A_03 EULER'S METHOD
Practice secant
Title
Cosine series
Pivot
ascending sorting
222
নাজমুন নাহার
A_02 JACOBI METHOD