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
 
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,b,c)

6. Mida kuvatakse, kui käivitate alloleva FORTRAN koodi? 
Kirjutage kommentaare igale operaatorile?

implicit none
integer k
k=0
do while (k<5)
k=k+1
print *,k
enddo
stop
end