Advertisement
Guest User

Untitled

a guest
Feb 27th, 2020
169
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. program TEST
  2. real :: X
  3. read *, X
  4. if (X >= -50 .and. X <= 20) then
  5. print *, "Y = ", sqrt(-X+25)/X
  6.  
  7. else if (X > 100 .and. X < 200) then
  8. print *, "Y = ", sqrt(X)
  9.  
  10. else
  11. print *, "Y = ", 1/(x+10)
  12.  
  13. end if
  14. stop
  15. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement