Çözüldü Faktöriyel - Programlama

https://i72.servimg.com/u/f72/19/97/10/39/faktzr13.png
https://scontent.fayt2-1.fna.fbcdn....R6NesvS8YDiSYx9-au3qxaGCSCqJSXjQw&oe=6235E369
https://www.facebook.com/photo/?fbid=466379051896704&set=g.1174585619345646

3! = 6·1! ⇒ a = 3 ve b = 1
6! = 6·5! ⇒ a = 6 ve b = 5
10! = 10·9! ⇒ c = 10 ve d = 9
(1, 9) ve (5, 9) olmak üzere iki farklı (b, d) ikilisi yazılabilir.

Bilgisayar Programlamayla İlgilenen Öğrenciler İçin (Recursive) Fortran Uygulaması:

https://i72.servimg.com/u/f72/19/97/10/39/faktzr14.png

Program:

Kod:

! Modified version of the recursive Factorial Program given at
! https://web.stanford.edu/class/me200c/tutorial_90/08_subprograms.html
PROGRAM Compute_Factorial
!---------------------------------------------------------------------
!
!  This program computes n! using a recursive function
!
!  Uses:  FUNCTION Factorial(n)
!
!---------------------------------------------------------------------
IMPLICIT NONE

INTERFACE
   FUNCTION Factorial(n)
     INTEGER :: Factorial
     INTEGER, INTENT(IN) :: n
   END FUNCTION Factorial
END INTERFACE

! Declare local variables
INTEGER :: n = 15
INTEGER :: a,b,c,d

!  Prompt user for n
!write(*, '(A)', ADVANCE = "NO") "Enter n for computing n!:  "
!read(*,*) n

do a = 1,n
  do b = 1,n
    do c = 1,n
      do d = 1,n
           if ((Factorial(a) == 6*Factorial(b)).and.                   &
              (Factorial(c) == 10*Factorial(d)))                       & 
           write(6, 10) "a = ",a," ve b = ",b, "; c = ",c," ve d = ",d
      enddo
    enddo
  enddo
enddo

! Write out value of factorial using function call
!write(*,100) n, "factorial is ", Factorial(n)
!100 format (I3, 2x, A, 2x, I12)

10 format (4(a,i2),/)

END PROGRAM Compute_Factorial

!-----Factorial------------------------------------------------------
!
!  Function to calculate factorials recursively
!
!---------------------------------------------------------------------
RECURSIVE FUNCTION Factorial(n)  RESULT(Fact)

IMPLICIT NONE
INTEGER :: Fact
INTEGER, INTENT(IN) :: n

IF (n == 0) THEN
   Fact = 1
ELSE
   Fact = n * Factorial(n-1)
END IF

END FUNCTION Factorial