FoRtRaN

Thursday, November 25, 2010

write a program to find the factorial of a given number (recurrsion program)

Posted by busyguy at 2:39 AM

Email This BlogThis!Share to Twitter Share to Facebook Share to Pinterest

No comments:

Search Results Code

Search Box Code

Popular Posts

Program to find the root of Quadratic Equation

implicit double precision(a-h,o-z) write(*,*) “please provide the a,b,c coeff” read(*,*) A,B,C D=B*B-4*A*C if(D.GT.0) then root1=(-B/(...
write a program to find the factorial of a given number (using goto command)

implicit double precision (a-h,o-z) iprod=1 i=1 write(*,*) 'n' read(*,*) n 10 if(i.LE.n) then iprod=ipr...
Write a program to count even and odd number between a given one dimensional array

implicit double precision (a-h,o-z) dimension A(10), B(10) DATA A/1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 68.0, 8.0, 9.0, 10.0/ count=0...
write a program to sum the main diagonal of a matrices (find the trace of a matrices)

implicit double precision (a-h,o-z) dimension A(3,3) DATA A/1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0/ C=0 do i=1,3 ...
FoRtRaN: Program to find area of a triangle whose two sides...

FoRtRaN: Program to find area of a triangle whose two sides... : "implicit double precision(a-h,o-z) write(*,*) “please provide the two...
Matrix Addition in Fortran

click here
Matrix Addition, Linear Combination And Multiplication in Fortran

implicit double precision (a-h,o-z) dimension A(3,3), B(3,3), C(3,3),D(3,3), E(3,3) DATA A/1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0,...
write a program to do numerical integration of any given function (by trapizoidal method)

implicit double precision (a-h,o-z) f(x)=x*x sum=0.0 write(*,*) 'x' read(*,*) x h=1/x do i=0,x sum=sum+f(i*h) enddo...
write a program to find the factorial of a given number (using do command)

implicit double precision (a-h,o-z) iprod=1 write(*,*) 'n' read(*,*) n do i=1,n iprod=iprod*i enddo ...
Write a program to determine three given points are collinear or not

implicit double precision (a-h,o-z) write(*,*) " enter the points first x coordinate then y coordinate" Read (*,*) x1, x...