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

Seitsme reaalarvu liitmine:

 real v(7),n
 integer sum,i
 data v/1.2,2.6,3,4.1,5.4/
 n=10
 sum=0.
 do I = 1,n,-1
 sum=sum+v(i)
 enddo
 print*,"sum=",sum
 stop
 end
 
13. Järgmises FORTRAN programmis peate leidma vead,
selgitage oma vastuseid.

Seitsme reaalarvu liitmine (kasutati alamprogrammi)

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

Faktoriali arvutamine:

 integer n,i,ifact
 read *,n
 if(n.lt.0)then
 print *,"n on neg."
 stop
 endif
 if(n.eq.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
 

11. Meil on loodud ühemõõtmeline massiiv a=[1,2,3,4,5].
Kuidas saab arvutada MATLABIS seda massivi ruut väärtust?

       
       
NB! Vastuseid ootan meiliga hiljemalt 27.09.2026