fork download
copy 
  1.         program P_3
  2.         implicit none
  3.         integer:: num, producto, i, num1, num2, num3, prod2, prod3, j, k, op, op2, op3
  4.         real:: s, prod4
  5.  
  6.         print*,'¿De qué número quieres el factorial?'
  7.         read (*,*) num
  8.         producto=1
  9.         do i=1,num
  10.                 op=i*producto
  11.                 producto=op
  12.         end do
  13.         print*,producto
  14.         print*,'Da otro número para n'
  15.         read (*,*) num1
  16.         num2=(-1)**num1
  17.  
  18.         if(num2==1) then 
  19.                 prod2=1
  20.                 do j=2,num1,2
  21.                         op2=j*prod2
  22.                         prod2=op2
  23.                 end do
  24.                 print*,prod2
  25.         else            
  26.                 prod3=1
  27.                 do k=1,num1,2
  28.                         op3=k*prod3
  29.                         prod3=op3
  30.                 end do
  31.                 print*, prod3
  32.         end if
  33.  
  34.         print*,'Otra forma de sacar factorial, da un numero para n'
  35.         read (*,*) num3
  36.         s=num3
  37.         prod4=(SQRT(2*s*PI))*((s/EXP)**s)     
  38.         print*,prod4   
  39.  
  40.         end program P_3
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
5
8
5
compilation info 
prog.f95:37.36:

        prod4=(SQRT(2*s*PI))*((s/EXP)**s)     
                                    1
Error: Symbol 'exp' at (1) has no IMPLICIT type
prog.f95:37.26:

        prod4=(SQRT(2*s*PI))*((s/EXP)**s)     
                          1
Error: Symbol 'pi' at (1) has no IMPLICIT type
stdout
copy 
Standard output is empty
https://ideone.com/eqPOR
language:
Fortran (gfortran 8.3)
created:
13 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!