سلام
برنامه زیر در حالی که تو سیستم های دیگه جواب میده ولی تو فرترن من خطا میده . کمکم کنید دارم دیوونه میشم !
real :: x,y,nx,ny,dx,dy,h
مشاهده پیوست 205955
real,ALLOCATABLE :: t
)
integer::i
N=5
h=.001
allocate ( t(N+1) )
t(1)=1
x=.12
do i=1,N
t(i+1)=t(i)+h
print*,x
end do
end