سلام به همه دوستان و عرض خسته نباشید
من تازه فرترن رو شروع کردم.
یه کد نوشتم. موقع Compile هیچ Error ای نمیگیره ولی موقع Run کردن بعد از اینکه ورودی رو وارد کردم این پیغام رو میده :
COSINUS~FACT - in file cosinus.f95 at line 21 [+008d]
COSINUS - in file cosinus.f95 at line 11 [+0161]
کسی میتونه کمک کنه؟ این کدیه که نوشتم:program cosinus
implicit none
integer :: x
real :: y
integer :: w=0
integer :: i
print*, "Input degree"
read*, x
y=3.14 * x / 180
arash:do i=1,10,1
w=w+(-1**i) * y**(2*i)/fact(2*i)
end do arash
print*,w
contains
integer function fact(n)
implicit none
integer , intent(in) :: n
integer :: j , ans=1
if(n>1) then
lable: do j=1,n,1
ans=ans*j
end do lable
fact= ans
else
fact =1
end if
end function fact
end program cosinus
پاسخ با نقل قول
