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

Seitsme reaalarvu liitmine (kasutati alamprogrammi)

 implicit none
 real,allocatable:: v(:)
 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)
 implicit none
 real v,n
 integer sum
 sum=0.
 do i=1,n
 sum=sum+v(i)
 enddo
 return
 end
 
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
 
10. Järgmises Fortrani programmis peate leidma vead:
Selgitage oma vastuseid.

Kahe arvu liitmine:

 print ("a="$)
 read a
 print ("b="$)
 read b
 c=a+b
 print *,a,+,b,=,c
 stop
 end