Добавил:
zord
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
real x,e,a,s,y
integer i
write(*,*)'Vvedite E i X'
read(*,*)e,x
if (e<=0) then
write(*,*)'NZD'
else
a=x**2
i=1
s=a
do while (abs(a)>=e)
a=-a*(((x**2)*i*(2*i-1))/((i+1)*(2*i+1)))
s=s+a
i=i+1
end do
y=2*x*atan(x)-2*alog(sqrt(1+x**2))
write(*,*)'s=',s
write(*,*)'y=',y
end if
read(*,*)
end
integer i
write(*,*)'Vvedite E i X'
read(*,*)e,x
if (e<=0) then
write(*,*)'NZD'
else
a=x**2
i=1
s=a
do while (abs(a)>=e)
a=-a*(((x**2)*i*(2*i-1))/((i+1)*(2*i+1)))
s=s+a
i=i+1
end do
y=2*x*atan(x)-2*alog(sqrt(1+x**2))
write(*,*)'s=',s
write(*,*)'y=',y
end if
read(*,*)
end
Соседние файлы в папке 17var