//(c)Mariano Gaite, 2004
<!--
var m1_val=String.fromCharCode(50,55,53);
var v1_val=String.fromCharCode(51,53);
var m2_val=String.fromCharCode(53,48,48);
var v2_val=String.fromCharCode(50,54);

function es_numero(car) {
var numeros="0123456789";
return numeros.indexOf(car)>=0;
}
function redondear(num,ndec) {
	var fact=1;
	for (var i=1;i<=ndec;i++) {
	fact*=10;
	}
	return Math.round(num*fact)/fact;
}

function calcular(cadenaM,cadenaV,nC) {
	while (cadenaM.indexOf (" ")==0) {
    cadenaM=cadenaM.substr(1);
    }
	while (cadenaV.indexOf (" ")==0) {
    cadenaV=cadenaV.substr(1);
    }
	if(cadenaM=="" || cadenaV=="") {
		alert("Falta algún dato");
		document.examen["dens"+nC].value="";
		return;
	}
	for(var i=0;i<cadenaM.length;i++) {
	if(!es_numero(cadenaM.charAt(i))) {
		alert("Solo se pueden introducir valores numéricos enteros, sin comas");
		document.examen["dens"+nC].value="";
		return;
		}
	}
	for(var i=0;i<cadenaV.length;i++) {
	if(!es_numero(cadenaV.charAt(i))) {
		alert("Solo se pueden introducir valores numéricos enteros, sin comas");
		document.examen["dens"+nC].value="";
		return;
		}
	}
	var nM=parseInt(cadenaM,10);
	var nV=parseInt(cadenaV,10);
	var result=redondear(nM/nV,2);
	document.examen["dens"+nC].value=result;
}

function comprobar(cadena,campN) {
	if(cadena=="") {
		alert("Falta el valor.\nHay que calcular primero la densidad\nhallando la masa y el volumen\ny pulsando el botón \"igual\"");
		return;
	}
	var n=parseFloat(cadena);
	var mVal=hallar_masa(campN);
	var vVal=hallar_vol(campN);
	var d=redondear(mVal/vVal,2);
	if(n==d) alert("¡Correcto! el objeto tiene una densidad de "+n+" gramos por centímetro cúbico.");
	else {
	if(document.examen["masa"+campN].value!=mVal) alert("Densidad incorrecta. El valor de la masa no está bien medido.");
	if(document.examen["vol"+campN].value!=vVal) alert("Densidad incorrecta. El valor del volumen no está bien medido.");
	}
}

function hallar_masa(cN) {
	switch (cN) {
	case 1:
		var val=parseInt(m1_val);
		break;
	case 2:
		var val=parseInt(m2_val);
		break;
	}
	return val;
}
function hallar_vol(cN) {
	switch (cN) {
	case 1:
		var val=parseInt(v1_val);
		break;
	case 2:
		var val=parseInt(v2_val);
		break;
	}
	return val;
}

var error=0;
function verificar(indice) {
	if(indice==0) {
	alert("Debes seleccionar un matal de la listaque aparece \nal pulsar con el ratón sobre el botón con una flecha.");
	return;
	}
	else if(indice==6) {
	alert("¡Correcto! \nLa densidad de 7,86 g/cm\u00B3 es característica del hierro.");
	error=0;
	return;
	}
	else {
	var metal=document.examen.metales[indice].text;
	alert("La densidad de la esfera no coincide con la densidad característica del metal "+metal+".");
	error++;
	if(error>=3) alert("Llevas "+error+" intentos fallados. \nDeberías asegurarte de hallar la densidad correcta de la esfera \ny consultar atentamente la tabla periódica antes de seguir intentándolo.");
	}
}
//-->