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

Seitsme reaalarvu liitmine:

 implicit none
 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
 
4. Mida ja miks kuvatakse, kui käivitate alloleva FORTRANi koodi?
Selgitage oma vastuseid.

a) print *,2/3
b) print *,2./3
c) print *,2/3.
d) print *,real(2/3)
e) print *,real(2)/3
f) print *,int(2.)/3

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

 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


2. Kirjutage FORTRAAN ja MATLAB programmi numbrite 
[1.,2.,3.,4.,5.,6.,7.,8.] salvestamiseks reaal massiivis a(2,2,2).
Kasutage tdükli operaatorit.

       
       
NB! Vastuseid ootan meiliga hiljemalt 27.09.2026