Kodutõõ
       
9. Mida kuvatakse, kui käivitate alloleva FORTRAN koodi? 
Kirjutage kommentaare igale operaatorile.
 
 implicit none
 real a(3),sum
 data a/5,6,7/
 open (10,file=”output”)
 do i=1,3
 sum=sum+a(i)
 enddo
 write (10,*) a,sum
 rewind (10)
 read (10,*) sum
 print *,sum
 stop
 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
 
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