Kodutõõ
       
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

11. Järgmises Fortrani programmis peate leidma vead.
Selgitage oma vastuseid.

Kahe numbri summeerimine:

implicit none
real a,b,c
open(file="test5.in")
open(file="test5.out")
read(10,*) a,b
c=a+b
print *,"a+b=",c
write(11,*) c
stop
end
 
14. Järgmises FORTRAN programmis peate leidma vead,
selgitage oma vastuseid.

Integraali arvutamine standardse alamprogrammi quanc8 abil:

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
 
1. Selgita, milliseid numbreid järgnev kood esindab?

implicit none
real*8 a
integer b
print *,huge(a),huge(b)
print *,tiny(a)
stop
end