Masa+radiactiva+carbono+14

=__**Cálculo de la masa radiactiva residual, de carbono 14**__= >

Escribir un programa que calcule la masa radiactiva de carbono 14 que queda después de t años.

La fórmula que determina la masa restante en el tiempo t es:

>> math M_{t} = m *\left ( \frac{1}{2} \right )^{\frac{t}{h}} math donde: >> t es el tiempo en años >> Mt es la masa que permanece en el tiempo t >> m es la masa original >> h es la vida media en años (para el carbono 14 vale 5.700 años)

NOTA: En Pascal: para elevar número N a la potencia P: Pot := Exp (Ln (N) * P) ;

code format="pascal" PROGRAM MasaRadiactiva ; CONST rVIDA_MEDIA = 5700.0 ; { indicado en años }

VAR rMasaInicial, rTiempo, rMasaFinal, rPotencia: Real ; BEGIN WriteLn (' Programa que calcula la masa radiactiva residual',           ' de Carbono 14') ; WriteLn; Write   ('                  Introduzca la masa original: ') ; Readln (rMasaInicial) ; Write   ('  Introduzca el tiempo transcurrido (en años): ') ; Readln (rTiempo) ;

rPotencia := rTiempo / rVIDA_MEDIA ;

rMasaFinal := rMasaInicial * Exp (Ln (0.5) * rPotencia) ;

Writeln ; WriteLn (' La masa que queda, al cabo de ', rTiempo:0:1, ' años, es: ', rMasaFinal:0:10) ; WriteLn ; ReadLn ; END. code