Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  rad
Language: FORTRAN
Code:
IMPLICIT NONE
REAL ::CantOriginal,VidMedia,Tiempo,CantRemanente

PRINT *, "es la cantidad inicial de la subs(mg)"
READ *,CantOriginal
PRINT *, "escribe su vida media(dias)"
READ *, VidMedia

PRINT *, " cantidad dias calcular cantidad (dias)"
Read *, tiempo


CantRemanente = CantOriginal * 0.5 **(Tiempo/VidMedia)

PRINT *, "la cantidades: " ", CantiRemanente, "mg"
End Program Decaimiento_Radioactivo
Comments: