fork download
copy 
  1. PROGRAM DANGEROUSMATH
  2. !-------------------------------------------------------------------------------Enrique Diaz				Engr225			Sept 1, 2010
  3. !					Assignment #2
  4. !This program will tell my ability to recognize error within programs and itll give me experience with double precision
  5. !integer, parameter :: dp=selected_real_kind (15) !15 sigfigs
  6. !
  7. !-------------------------------------------------------------------------------
  8. IMPLICIT NONE
  9. integer, parameter :: dp=selected_real_kind (15) !15 sigfigs
  10. REAl (dp) :: A, B, X, mu, C
  11. Integer :: I, K, n = 9
  12. character (10) :: Name
  13. A= 3
  14. B= (n+3) /5
  15. C= ((A +B) ** 2-2 * A * B - B ** 2)/A ** 2
  16. X= 5.75d0
  17. I= 3.141959
  18. K= x/2.0
  19. mu= 1./5.75
  20. WRITE (*,*) "Please enter your name."
  21. READ (*,*) Name
  22. WRITE (*,*) "Hello", Name
  23. WRITE (*,*) a, b, x, I, k, mu
  24. WRITE (*,*) "Enter a value for A and B"
  25. READ (*,*) A, B
  26. WRITE (*,*) C
  27. Stop
  28. END PROGRAM DANGEROUSMATH
  29.  
  30.  
Success #stdin #stdout 0s 2620KB
comments (?)
stdin
copy 
Enrique
8 9
stdout
copy 
 Please enter your name.
 HelloEnrique   
   3.0000000000000000        2.0000000000000000        5.7500000000000000                3           2  0.17391304671764374     
 Enter a value for A and B
https://ideone.com/InfuT
language:
Fortran (gfortran 8.3)
created:
15 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!