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

Kahe numbri summeerimine:

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
 
15. Järgmises FORTRAN programmis peate leidma vead,
selgitage oma vastuseid.

Faktoriali arvutamine:

 implicit none
 integer n,i,ifact
 read *,n
 if(n.lt.0)then
 print *,"n on neg."
 stop
 endif
 if(n == 0.and.n.eq.1)then
 ifakt=1
 print 100,”fakt=”, ifakt
 stop
 endif
 do i=0,n
 ifact=ifact*i
 enddo
 print *,ifact
 stop
 
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
 

3. Antakse kaks viiest elemendist koosnevat massiivid: a = [1,2,1,2,5] ja b = [6,8,8,9,1]. 
Kirjutage Fortrani ja Matlabi programmi maatriksite vastavate elementide sumeerida c[i]=a[i]+b[i]. 
Kasutage tsükli operaatorit.

       
       
NB! Vastuseid ootan meiliga hiljemalt 27.09.2026