#Temperaturas medidas en °C
Tx<-94  #Temperatura inicial de la sustancia
Ta<-24.2  #Temperatura inicial del agua
T<-28 #Temperatura de equilibrio

#Masas medidas en gramos
ma<-363.2 #Masa del agua que esta dentro del vaso
mx<-658 #Masa de la sustancia problema
ca<-1 #calor especifico del agua en (cal/g°C)

#Cambios de temperatura
DTa=T-Ta #Cambio de temperatura subrida por el agua
DTx=T-Tx #Cambio de temperatura sufrida por el objeto

#calculo del calor especifico de la sustancia (cal/g°C)
cx=-(ca*ma*DTa)/(mx*DTx)

cat("El calor especifico de la sustancia (plomo) es:",cx,"cal/g°C","\n")