Kodutõõ
       
2. Kas järgmistes Fortrani operaatoritel on vigu? Selgitage oma vastuseid.

a) real a(10), 1b, *abc#(2), param(10)
b) real a(10), a(12), b_c_d
c) complex*4 ::a,b
d) integer a(0), b(5)
e) real*16 a(-5)
f) character*10 a(5)
g) complex*64 a,b
h) real*8,allocatable:: a(10)
I) real :: a,b,c
j) real abc,Abc,ABC

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
 
6. Mida kuvatakse, kui käivitate alloleva FORTRAN koodi? 
Kirjutage kommentaare igale operaatorile?

integer k
k=0
do while (k<5)
k=k+1
print *,k
enddo
stop
end


6. Arvutage numbriliselt järgmise integraali väärtuse 
Monte-Carlo meetodil (FORTRAN keskonnas) :.

Funktsioon y=cos(x)^2, x=[0,pi]

       
       
NB! Vastuseid ootan meiliga hiljemalt 27.09.2026