Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
exercise
program find_value implicit none real::x=10,y=-45,f if(x>=0.and.y>=0)then f=x+y print*,f else if (x<0.and.y>=0)then f=x**2+y print*,f else if (x>=0.and.y<0)then f=x+y**2 print*,f else f=x**2+y**2 end if end program find_value
run
|
edit
|
history
|
help
0
CHARACTER REVOLVING
8
A_03 practice 2(ii)
ANIRUDDHA
Me
Practice 1(IV)
A_04 GUASSIAN QUADRATURE METHOD
Hello / fortran
Rand
A_02 Newton's practice