Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ss
Language: FORTRAN
Code:
x=-8.0
y=-8.0
x=y/2.0+x
y=y+x/4.0
50 if (x-y) 40,30,30
40 x= x+15.0
goto 50
30 if (x.lt.5.0) x=x+15.0
y=y-x
x=x+11.0
write (*,*) x,y
end      
Comments: