yourdomain.com

program lab1
real a,b,h,x,y
integer i,N
open(10,file='lab1.txt')
a=-37./25.
b=7./5.
N=31
h=(b-a)/(N-1)
do i=1,N
x=a+(i-1)*h
y=1+(1./2.)*(sqrt(5-3*x**(2)-x))
print*,x,y
write(10,*)x,y
end do
end

DefendeR писал(а):Source of the post ...
a=-37./25.
...
sqrt(5-3*x**(2)-x))

Уже при самом первом значении х= -37./25. под этим корнем будет отрицательное число.