Warning: include() [function.include]: URL file-access is disabled in the server configuration in /home/virtwww/w_beloshenko-org-ua_e2c5fc46/http/topp.php on line 8

Warning: include(http://www.beloshenko.org.ua/panel.html) [function.include]: failed to open stream: no suitable wrapper could be found in /home/virtwww/w_beloshenko-org-ua_e2c5fc46/http/topp.php on line 8

Warning: include() [function.include]: Failed opening 'http://www.beloshenko.org.ua/panel.html' for inclusion (include_path='.:') in /home/virtwww/w_beloshenko-org-ua_e2c5fc46/http/topp.php on line 8






Factorial calculation. (FORTRAN)

Program Faktorial
c Program for factorial calculation. N!=1*2*3*4*...*N
integer i
double precision R,R1
N=25 ! n-argument
R=1. !start volume
R1=1.
i=1

1 R=R*i

if (i.GE.10) then
go to 4
else
go to 5
endif

4 R=R/10.
R1=R1*10.

5 continue

if (i.GE.N) then ! if i>=N
go to 2
else
i=i+1
go to 1
endif

2 open(11,file='N!.txt')
write(11,3)R,R1
3 format(5X, F 30.10,'*', F 20.0 )
close(11)
end


FREE VIRAL OF YOU SITE.

 









Click Here for Free Traffic!