AnonymousEng

The elipse

Jan 14th, 2013
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.       do 10 x=-7,7
  2.       do 20 y=-5,5
  3.          If ( ((2*x**2)+(3*y**2)) .LE. 100.0 ) num=num+1
  4.  20   continue
  5.  10   continue
  6.       write(*,*)num
  7.       pause
  8.       stop
  9.       end
Advertisement
Add Comment
Please, Sign In to add comment