Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program TEST
- real :: X
- read *, X
- if (X >= -50 .and. X <= 20) then
- print *, "Y = ", sqrt(-X+25)/X
- else if (X > 100 .and. X < 200) then
- print *, "Y = ", sqrt(X)
- else
- print *, "Y = ", 1/(x+10)
- end if
- stop
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement