Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Example 45 175 page
x=-10.0 print*,'x f(x)' 5 if(x.lt.0.0) fx=1.0-x**2 if((x.ge.0.0).and.(x.lt.1.0)) fx=1.0+2.0*x if(x.ge.1.0) fx=3.0+1.0/x print 20,x,fx 20 format(2x,f5.2,2x,f8.2) x=x+0.5 if(x.le.10.0)goto 5 stop end
run
|
edit
|
history
|
help
0
Subroutine problem
A_01 NEWTON_RM(B(II))
Gauss for
QE
A_04 SIMPSON'S RULE (3(II))
CHARACTER REVOLVING
test for linear congruential method
ANIRUDDHA
problem_3
Rand