fork download 
  1. program dangerousmath
  2. !-----------------------------------------------------------------------------------------------
  3. ! Written by Jon Brito for Engineering 225 on Jan. 25 2012
  4. ! This is my time using the vi editor
  5. !
  6. !-----------------------------------------------------------------------------------------------
  7. IMPLICIT NONE
  8. real  :: A, B, x,mu,c
  9. integer:: I, K, n = 9
  10. character (10) :: Name
  11. A=3
  12. B=(n+3)/5
  13. X=5.75
  14. I=3.141959
  15. K=x/2.0
  16. mu=1./5.75
  17. write (*,*)"Please enter your name."
  18. read (*,*)  Name
  19. write (*,*)  "Hello", Name
  20. write (*,*)a,b,x,I,k,mu
  21. write (*,*) "Enter a value for A and B"
  22. read (*,*) A, B
  23.  
  24.  
  25. C = ((A+B)**2 -2*A*B - B**2)/A**2
  26. write (*,*) C
  27. stop
  28. end program dangerousmath
Runtime error #stdin #stdout 0.01s 2620KB
comments (?)
stdin 
Jon 1 1
stdout 
 Please enter your name.
 HelloJon       
   3.0000000       2.0000000       5.7500000               3           2  0.17391305    
 Enter a value for A and B
https://ideone.com/UQKRN
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!