!Write a program which will evaluate the function f for the set of values of x(0.5,1,1.5,2,2.5,3)
!and tabulate the results.
!f=1+x**2/2!,+x**4/4!-50*(sinx)**2+(4-x**2)**(1/2)
program func_tabulation
implicit none
real::f_x,x
integer::i!how many do reapet perfrom
x=0!initial value its value changing with 0.5 inside of do loop
print*,"x"," ","f(x)"
do i=1,6,1!we get six result
x=x+.5
f_x=1+(x**2)/(2*1)+(x**4)/(4*3*2*1)-50*(sin(x))**2+(4-(x**2))**.5
print*,x,f_x
enddo
end program func_tabulation
!and tabulate the results.
!f=1+x**2/2!,+x**4/4!-50*(sinx)**2+(4-x**2)**(1/2)
program func_tabulation
implicit none
real::f_x,x
integer::i!how many do reapet perfrom
x=0!initial value its value changing with 0.5 inside of do loop
print*,"x"," ","f(x)"
do i=1,6,1!we get six result
x=x+.5
f_x=1+(x**2)/(2*1)+(x**4)/(4*3*2*1)-50*(sin(x))**2+(4-(x**2))**.5
print*,x,f_x
enddo
end program func_tabulation
