fork download
copy 
  1.         program esfera
  2.         implicit none
  3.  
  4.         integer :: i, nc
  5.         real :: xi, xf, tp, V, t, n, k, dVdt
  6.  
  7.         xi=0.0
  8.         xf=5.0
  9.         tp=0.1
  10.         V=0.0
  11.         t=xi
  12.         n=2.0
  13.         k=-0.1
  14.  
  15.         nc=20
  16.  
  17.  
  18.         print*,t,V
  19.  
  20.         do i=1,nc
  21.  
  22.                 dVdt=9.81-9.81*k*(V**n)
  23.                 V=V+tp*dVdt
  24.                 t=t+tp
  25.  
  26.                 Print *, t, V
  27.  
  28.         enddo
  29.  
  30.         end program esfera
Success #stdin #stdout 0.02s 2620KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
  0.00000000E+00  0.00000000E+00
  0.10000000      0.98100007    
  0.20000000       2.0564077    
  0.30000001       3.4522543    
  0.40000001       5.6024160    
  0.50000000       9.6624880    
  0.60000002       19.802465    
  0.70000005       59.252171    
  0.80000007       404.64462    
  0.90000010       16468.252    
   1.0000001       26621518.    
   1.1000001      6.95240197E+13
   1.2000002      4.74175143E+26
   1.3000002           +Infinity
   1.4000002           +Infinity
   1.5000002           +Infinity
   1.6000003           +Infinity
   1.7000003           +Infinity
   1.8000003           +Infinity
   1.9000003           +Infinity
   2.0000002           +Infinity
https://ideone.com/3dKOU
language:
Fortran (gfortran 8.3)
created:
14 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!