program ass4
real::x,t
open(1,file='a.txt',status='unknown')
t=0.9
1 t=t+0.1
x=sin(t)*exp(-2*t)+log(t)/(5*t-cos(t))
write(1,*)t,x
if(t<=4.9) goto 1
end
real::x,t
open(1,file='a.txt',status='unknown')
t=0.9
1 t=t+0.1
x=sin(t)*exp(-2*t)+log(t)/(5*t-cos(t))
write(1,*)t,x
if(t<=4.9) goto 1
end
Comments
Post a Comment