fork(3) download
copy 
  1. program DangerousMath
  2. !-------------------------------------------------------------------------
  3. !Tyler Martin			Engr 225 Lab 2	 	   25 January 2012
  4. !				Dangerous Math Program
  5. !-------------------------------------------------------------------------
  6. Implicit None
  7. integer, parameter::dp=selected_real_kind(15)
  8. 	real(dp) :: A, B, C, x, mu
  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.1415959
  15.         	K=x/2.0
  16.         	mu=1./5.75
  17.  
  18. write (*,*) "Please human, enter your name."
  19. read (*,*) Name
  20. write (*,*) "Hello ", Name
  21. write (*,*)a,b,x,I,k,mu
  22.  
  23. write (*,*) "Enter a value for A and B"
  24. read (*,*) A, B
  25. C = ((A + B)**2 - 2*A*B - B**2)/A**2
  26. write (*,*) C
  27.  
  28. stop
  29. end program DangerousMath
  30.  
Success #stdin #stdout 0.01s 2620KB
comments (?)
stdin
copy 
Tyler
0.01, 888.0
stdout
copy 
 Please human, enter your name.
 Hello Tyler     
   3.0000000000000000        2.0000000000000000        5.7500000000000000                3           2  0.17391304671764374     
 Enter a value for A and B
   1.0000000003174137
https://ideone.com/Ws5IC
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!