Kodutõõ
       
14. Järgmises FORTRAN programmis peate leidma vead,
selgitage oma vastuseid.

Integraali arvutamine standardse alamprogrammi quanc8 abil:

 implicit none
 real a,b,relerr,abserr,flag
 integer errest
 a=0.
 b=1.
 abserr=0.0
 relerr=1.e-6
 quanc8(func, b, a, abserr, relerr, result, errest, nofun, flag)
 print *,result*4., errest
 stop
 end
 function func(x)
 func=sqrt(abs(1.-x*x))
 return
 end
 
13. Järgmises FORTRAN programmis peate leidma vead,
selgitage oma vastuseid.

Seitsme reaalarvu liitmine (kasutati alamprogrammi)
 
 implicit none
 real v(7)
 integer sum,n
 data v/1.3,4.6,5.0,7.1,8.9,3.5/
 open(10,file="test6.in")
 n=5
 call sumv(n,v,sum)
 print*,"sum=",sum
 stop
 end
 subroutine sumv(v,sum,n)
 real v,n
 integer sum
 sum=0.
 do i=1,n
 sum=sum+v(i)
 enddo
 return
 end
 
5. Mille jaoks kasutatakse järgmised FORTRAN operaatorid?
Selgitage oma vastuseid.

a) implicit none 
b) implicit real*8 (a-h,o-z)
c) implicit integer (a-h,o-z)