PROGRAM Radioactive_Decay
Friedel Pretorius
!----------------------------------------------------------------------------
! This program calculates the amount of a radioactive substance that 
! remains after a specified time, given an initial amount and its 
! half-life.  Variables used are:
!   InitalAmount    : initial amount of substance (mg)
!   HalfLife        : half-life of substance (days)
!   Time            : time at which the amount remaining is calculated (days)
!   AmountRemaining : amount of substance remaining (mg)
!
! Input:   InitialAmount, HalfLife, Time
! Output:  AmountRemaining
!-----------------------------------------------------------------------------
 
  IMPLICIT NONE
  REAL :: InitialAmount, HalfLife, Time, AmountRemaining
 
  ! Get values for InitialAmount, HalfLife, and Time.
 
  Write (*,*) "Enter initial amount (mg) of substance, its half-life (days)"
  Write (*,*) "and time (days) at which to find amount remaining:"
  READ (*,*) InitialAmount, HalfLife, Time
 
  ! Compute the amount remaining at the specified time.
  AmountRemaining = InitialAmount * 0.5 ** (Time / HalfLife)
 
  ! Display AmountRemaining.
  Write (*,*) "Amount remaining =", AmountRemaining, "mg"
 
END PROGRAM Radioactive_Decay
 

UFJPR1JBTSBSYWRpb2FjdGl2ZV9EZWNheQpGcmllZGVsIFByZXRvcml1cwohLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQohIFRoaXMgcHJvZ3JhbSBjYWxjdWxhdGVzIHRoZSBhbW91bnQgb2YgYSByYWRpb2FjdGl2ZSBzdWJzdGFuY2UgdGhhdCAKISByZW1haW5zIGFmdGVyIGEgc3BlY2lmaWVkIHRpbWUsIGdpdmVuIGFuIGluaXRpYWwgYW1vdW50IGFuZCBpdHMgCiEgaGFsZi1saWZlLiAgVmFyaWFibGVzIHVzZWQgYXJlOgohICAgSW5pdGFsQW1vdW50ICAgIDogaW5pdGlhbCBhbW91bnQgb2Ygc3Vic3RhbmNlIChtZykKISAgIEhhbGZMaWZlICAgICAgICA6IGhhbGYtbGlmZSBvZiBzdWJzdGFuY2UgKGRheXMpCiEgICBUaW1lICAgICAgICAgICAgOiB0aW1lIGF0IHdoaWNoIHRoZSBhbW91bnQgcmVtYWluaW5nIGlzIGNhbGN1bGF0ZWQgKGRheXMpCiEgICBBbW91bnRSZW1haW5pbmcgOiBhbW91bnQgb2Ygc3Vic3RhbmNlIHJlbWFpbmluZyAobWcpCiEKISBJbnB1dDogICBJbml0aWFsQW1vdW50LCBIYWxmTGlmZSwgVGltZQohIE91dHB1dDogIEFtb3VudFJlbWFpbmluZwohLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KCiAgSU1QTElDSVQgTk9ORQogIFJFQUwgOjogSW5pdGlhbEFtb3VudCwgSGFsZkxpZmUsIFRpbWUsIEFtb3VudFJlbWFpbmluZwoKICAhIEdldCB2YWx1ZXMgZm9yIEluaXRpYWxBbW91bnQsIEhhbGZMaWZlLCBhbmQgVGltZS4KCiAgV3JpdGUgKCosKikgIkVudGVyIGluaXRpYWwgYW1vdW50IChtZykgb2Ygc3Vic3RhbmNlLCBpdHMgaGFsZi1saWZlIChkYXlzKSIKICBXcml0ZSAoKiwqKSAiYW5kIHRpbWUgKGRheXMpIGF0IHdoaWNoIHRvIGZpbmQgYW1vdW50IHJlbWFpbmluZzoiCiAgUkVBRCAoKiwqKSBJbml0aWFsQW1vdW50LCBIYWxmTGlmZSwgVGltZQogCiAgISBDb21wdXRlIHRoZSBhbW91bnQgcmVtYWluaW5nIGF0IHRoZSBzcGVjaWZpZWQgdGltZS4KICBBbW91bnRSZW1haW5pbmcgPSBJbml0aWFsQW1vdW50ICogMC41ICoqIChUaW1lIC8gSGFsZkxpZmUpCgogICEgRGlzcGxheSBBbW91bnRSZW1haW5pbmcuCiAgV3JpdGUgKCosKikgIkFtb3VudCByZW1haW5pbmcgPSIsIEFtb3VudFJlbWFpbmluZywgIm1nIgoKRU5EIFBST0dSQU0gUmFkaW9hY3RpdmVfRGVjYXkK