fork download
copy 
  1. program C14_date
  2. implicit none
  3. real,parameter::lamda=0.00012097
  4. real::age,percent,ratio
  5. print *,'Enter the percentage of carbon 14 remaining:'
  6. read *,percent
  7. print *,'The remaining carbon14=',percent,'%.'
  8. ratio=percent/100
  9. age=(-1.0/lamda)*log(ratio)
  10. print *,'The age of the sample is',age,'yeqrs.'
  11. end program
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
50
stdout
copy 
 Enter the percentage of carbon 14 remaining:
 The remaining carbon14=   50.0000000     %.
 The age of the sample is   5729.91016     yeqrs.
https://ideone.com/HcKAzr
language:
Fortran (gfortran 8.3)
created:
17 hours 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!