program test
integer::x,y
do x=4,15,1
if(4<=x .and. x<9) y=3*x+5*(x**3)
if(9<=x .and. x<=15) y=3*x+8*(x**2)
print*,"For value of x=",x,",The value of y is=",y
enddo
end
integer::x,y
do x=4,15,1
if(4<=x .and. x<9) y=3*x+5*(x**3)
if(9<=x .and. x<=15) y=3*x+8*(x**2)
print*,"For value of x=",x,",The value of y is=",y
enddo
end
Comments
Post a Comment