source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program dangerousmath
implicit none
integer, parameter :: dp=selected_real_kind(15)
real :: a, b, x, c
integer:: i, k, n = 9, mu
character (10) :: name
a=3
b=(n+3)/5
x=5.75
i=3.141959
k=x/2.0
mu=1./5.75
write (*,*) "please enter your name"
read (*,*) name
write (*,*) "hello", name
write (*,*)a,b,x,i,k,mu
stop
write (*,*) "enter a value for a and b"
read (*,*) a, b
c = ((a +b)**2 - 2*a*b - b**2) /a**2
write (*,*) c
stop
end program dangerousmath

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 3:   hide show   clone   input   106 days 6 hours ago    Success

  result: Success     time: 0.01s    memory: 2620 kB     returned value: 0

  input:

  emilio 0.1 888.0
  

  output:

   please enter your name
   helloemilio    
     3.0000000       2.0000000       5.7500000               3           2           0
  
• # 2:   hide show   clone   input   106 days 6 hours ago    Success

  result: Success     time: 0.01s    memory: 2620 kB     returned value: 0

  input:

  emilio 0.0001 888.0
  

  output:

   please enter your name
   helloemilio    
     3.0000000       2.0000000       5.7500000               3           2           0
  
• # 1:   hide show   clone   input   106 days 6 hours ago    Success

  result: Success     time: 0.01s    memory: 2620 kB     returned value: 0

  input:

  emilio 0.01 888.0
  

  output:

   please enter your name
   helloemilio    
     3.0000000       2.0000000       5.7500000               3           2           0