Código fuente del subprograma de calculadora de grasas

}

}

Función clearall()

{

document.calc.display.value=0

endNumber=true

stack= " "

level="0 "

Capa= " "

document.calc.operator.value= " "

document.calc.bracket.value= " "

}

//Clave de conversión

Función inputChangCarry (nuevo transporte)

{

endNumber=true

documento. display value = (decto(todec(document . calc . display . value, carry), newcarry))

Carry = nuevo carry

document.calc.sin.disabled =( ¡Llevar!=10)

document.calc.cos.disabled=(¡Llevar!=10)

document.calc.tan.disabled=(¡Llevar!=10)

document.calc.bt.disabled=(¡Carry!=10)

document.calc.pi.disabled=(¡Carry!=10)

document. e.disabled=(Carry!=10)

document.calc.kp.disabled=(Carry!=10)

documento calc discapacitado =(carry lt; =2)

documento .calc .k3 .carry lt;=2)

documento .calc .k4 . >

documento .calc .deshabilitado =(llevar lt;=2)

documento .calc . calc .k7 .carry lt;=2)

documento .k8 .carry lt;=8)

documento . (California

rry lt;=8)

documento calc .ka discapacitado =(carry lt;=10)

documento kb .

documento .calc .KC deshabilitado =(llevar lt;=10)

documento .KD . >documento .calc ke .deshabilitado =(llevar lt;=10)

}

Entrada de función Ángulo(tipo de ángulo)

{

endNumber=true

Ángulo = tipo de ángulo

Si (ángulo== "d ")

documento .calc .visualización .valor = radian stegress(documento .calc .visualización .valor)

Otro

visualización de documento. valor = degress storadians(document . calc . display . value)

endNumber=true

}

Función inputshift()

{

if(document . calc . shift f . marcado)

{

document.calc.bt.value="deg "

document.calc.ln.value="exp "

document.calc.log.value="expd "

if (document.calc.hypf.checked) p>

{

document.calc.sin.value="ahs "

document.calc.cos.value="ahc "

document .calc.tan.value="aht "

}

Otros

{

document.calc.sin.value ="asin "

document.calc.cos.value="acos "

document.calc.tan.value="atan "

}

document.calc.sqr.value="x^.5"

document.calc.cube.value="x^.3"

documento calc. . piso . valor = " decimal "

}

Otro

{

document.calc.bt.value="d. ms "

document.calc.ln.value=" ln "

docume

nt.calc.log.value="log "

if (document.calc.hypf.checked)

{

document.calc.sin.value ="hsin "

document.calc.cos.value="hcos "

document.calc.tan.value="htan "

}

Otro

{

document.calc.sin.value="sin "

document.calc.cos.value="cos "

document.calc.tan.value="tan "

}

document.calc.sqr.value="x^2"

document.calc.cube.value="x^3"

documento calc valor = "redondeo"

}

}

//Parte de la memoria

Función clearmemory()

{

mem=0

document.calc .memory.value= " "

}

Función getmemory()

{

endNumber=true

documento.calc.visualización.valor=decto(mem,carry)

}

Función putmemory()

{

endNumber. =true

if (document.calc.display.value!=0)

{

mem = todec(document . calc . display . value, carry )

document.calc.memory.value=" M "

}

Otro

document.calc.memory.value= " "

}

Función addmemory()

{

endNumber=true

mem = analizar flotante (mem) parse float(todec(document . calc . display . value, carry))

if (mem==0)

document.calc.memory.value= " "

Otros

document.calc.memory.value="M"

}

Función memoria múltiple()

{

endNumber=true

mem = parse float(mem)* parse float(todec(document. calc. display. value, carry))

if (mem==0)

document.calc.memory.value= " "

Otros

document.calc.memory.value=" M "

}

//Conversión decimal

Función todec(número, acarreo antiguo)

{

if (oldcarry==10 || num==0) devuelve (num)

var neg =(num . charat(0)= "- ")

if (neg) num=num.substr(1)

var newnum=0

for(var index = 1; index lt=número longitud; índice)

nuevo número = nuevo número * antiguo llevar número hexadecimal de(num . charat(index-1))

si (negativo)

Nueva cantidad = - nueva cantidad

return(newnum)

}

Función decto(número, nuevo acarreo)

{

var neg =(num lt; 0)

if (newcarry==10 || num==0) return (num)

num=" " Math.abs(num)

var newnum= " "

Y (num!=0)

{

nuevo número = hexadecimal num . p>

Nuevo número = "-" nuevo número

return(newnum)

}

//Análisis de expresión

Análisis de funciones (cadena)

{

If (string.match(/^(.*\d[\ \-\*\/\\^\amp;\ | x \lt])?([ -]?[0-9a-f\.] )([\ \-\*\/\\^\amp;\ | 0-9a-f\. ] )$/))

return(RegExp.$1 cifrado(RegExp.$2,RegExp.$3,RegExp.

$4))

Otros

Devolver (cadena)

}

//Operaciones matemáticas y operaciones de bits

Contraseña de función (izquierda, conexión, derecha)

{

izquierda=todec (izquierda, llevar)

derecha=todec (derecha, llevar)< / p>

if (join==" ")

return(decto(parseFloat(izquierda) parseFloat(derecha),carry))

if (join==" - ")

return(decto(izquierda*derecha, llevar))

if (join=="* ")

return(decto(izquierda*derecha) , llevar ))

if(join = = "/" amp; amp is right!=0)

return(decto(izquierda/derecha, llevar))

if (join== " " ")

return(decto(izquierda y derecha, llevar))

if(join == " amp;)

return ( decto(izquierda y derecha, llevar))

if (join=="| ")

return(decto(izquierda|derecha, llevar))

if (join=="^")

return(decto(Math.pow(izquierda, derecha), llevar))

if (join== "x ")

return(decto(izquierda^derecha, llevar))

if(join == " lt;)

return(decto(izquierda lt; lt par, Llevar))

Alerta("La línea divisoria no puede ser cero")

Regreso (izquierda)

}

//Cálculo de funciones

Función funcalc(fun, num)

{

Uso (matemáticas)

{

if ( fun=="pi ")

Devolver (pi)

if (fun=="e ")

Devolver (E )

if (fun=="abs ")

return (abs(num))

if (fun=="ceil ")

return( ceil(num))

if (fun=="ronda ")

return(ronda(número))

if ( fun=="piso ")

return (piso (número))

if (fun=="deci ")

return(num-piso( num))

if(fun == " ln " amp; ampnum gt0)

return(log(número))

if (fun= ="exp ")

p>

return(exp(num))

if(fun == " log " amp; ampnum gt0)

return(log(num)*LOG10E)

if (fun=="expdec ")

return(pow(10,num))

if (divertido=="cu

be ")

return(cantidad*cantidad*cantidad)

if (fun=="cubt ")

return (pow(num, 1/3 ))

if (fun=="sqr ")

return(num*num)

if(fun == " sqrt " amp; ampnum gt =0)

return(sqrt(num))

if (fun== "!")

return(factorial(num))

if(fun == " recip " amp; ampnum!=0)

return (1/número)

if (fun=="dms ") p>

Retorno (dms(num))

if (fun=="deg ")

Retorno (grado)

if ( fun= ="~ ")

return(~num)

if (angle=="d ")

{

if ( fun=="sin ")

return(sin(degressToRadians(num)))

if (fun=="cos ")

return (cos (degressToRadians(num)))

if (fun=="tan ")

return(tan(degressToRadians(num)))

if (fun == " arcsin " amp; ampABS(num) lt;=1)

return(radianstegress(asin(num)))

if(fun == " arccos " amp; ampABS(num) lt;=1)

return(radian stegress(acos(num)))

if (fun=="arctan ")

return(radian stegress(atan(num)))

}

Otros

{

if (fun==" sin " )

return(sin(num))

if (fun=="cos ")

return (cos(num))

if (fun=="tan ")

Return (tan(num))

if(fun == " arcsin " amp; ampABS(num) lt; =1 )

return(asin(num))

if(fun == " arccos " amp; ampABS(num) lt;=1)

return( acos(número))

if (fun=="arctan ")

return(atan(num))

}

if (fun=="hypsin ")

return((exp(num)-exp(0-num))* 0.5)

if (fun=="hypcos ")

return((exp(num) exp(-num))* 0.5)

if (

fun=="hyptan ")

Return ((exp(num)-exp(-num))/(exp(num) exp(-num))

if(fun = = " ahypsin " | fun = = " hypcos " | fun = = " hyptan ")

{

Alerta("¡Lo sentimos, aún no se ha encontrado la fórmula!" " )

Devolución (Cantidad)

}

Alerta("Fuera del rango de definición de función")

Devolución (Cantidad)

}

}

Función factorial

{

n=Math.abs(parseInt(n))

var fac=1

for(;n gt0;n-=1)

fac*=n

Devolver (fac )

}

Función dms(n)

{

var neg =(n lt; 0)

Uso (Matemáticas)

{

n=abs(n)

Variable d = límite inferior (n)

var m = límite inferior (60 *(n-d))

var s=(n-d)*60 metros

}

var dms=d m/100 s* 0.006

Si (negativo)

dms=-dms

Retorno (dms)

}

Función grado (n)

{

var neg =(n lt; 0)

Uso (matemáticas)

{

n= abs(n)

Variable d = límite inferior (n)

var m = límite inferior ((n-d)*100)

var s=(n-d)* 100-m

}

var deg=d m/60 s/36

si (negativo)

grado=-grado

Retorno (grado)

}

Función grados sToRadianes (grado)

{

return(grado* Matemáticas. PI/180)

}

Función gradiente radial (radianes)

{

retorno(radianes * 180/matemáticas.

PI)

}

//Interfaz

//- gt;

lt/SCRIPT gt;

¡es! -Autor: Jinren Li Hai-gt;lt! -2000.8->;

ltMETA content = "Página principal de Microsoft 4.0" nombre = GENERADOR gt; lt/HEAD gt;

ltBODY gt

ltDIV align = center gt

ltFORM nombre = calc gt

lt altura de la tabla = 250 ancho = 500 borde = 1 gt

ltTBODY gt

ltTR gt

altura ltTD = 50 gt

ancho de tabla = 500 gt

ltTBODY gt

ltTR gt

ltTD gt lt/TD gt;

ltTD gt

ltDIV align = centro gt lt entrada tamaño de solo lectura = 40 valor = 0 nombre = mostrar gt lt/DIV gt; /TD gt;tD gt; lt/TBODY gt; lt/TABLE gt; ltTD gt;

ltTR gt

ltTD gt; >

ltTable ancho = 500 gt

ltTBODY gt

ltTR gt

ltTD ancho = 290 gt ltINPUT onclick = inputChangCarry(16)tipo = nombre de radio = llevar gt; hexadecimal < ENTRADA al hacer clic = entradaChangCarry(10)tipo = nombre de radio COMPROBADO = llevar gt; decimal < ENTRADA al hacer clic = entradaChangCarry(8)tipo = nombre de radio = llevar gt

ltTD gt lt; /TD gt;

ltTD width = 135 gt; ltINPUT onclick = "inputChangAngle(' d ')" tipo = valor de verificación de radio = d nombre = ángulo sistema gtangle

ltTable width = 500 gt

ltTBODY gt

ltTR gt

ltTD ancho = 170 gt; ltINPUT onclick = ENTRADA shift()tipo = nombre de casilla de verificación = shift f gt; function

ltTD gt ltINPUT style = " COLOR DE FONDO: gris claro " tamaño de solo lectura = 3 nombre = soporte gt.

ltENTRADA estilo = "COLOR DE FONDO: gris claro" tamaño de solo lectura = 3 nombre = memoria gt. ltINPUT estilo = "COLOR DE FONDO: gris claro" tamaño de solo lectura = 3 nombre = operador gt.

lt/TD gt;

ltTD ancho = 183 gt; estilo de entrada = " color: rojo " onclick = espacio atrás() tipo = valor del botón = " espacio atrás " > estilo de entrada = " color: rojo "onclick =" documento. calc display = 0 "tipo = valor del botón = "borrar pantalla" > lt; estilo de entrada = "color: rojo" onclick = borrar todo() tipo = valor del botón = "borrar" >. lt;/TD gt; lt/TR gt; lt/TBODY gt; lt/TABLE gt;

lt ancho de la tabla = 500 gt

ltTBODY gt

ltTR gt

ltTD gt

ltTable gt

ltTBODY gt

ltTR align = middle gt

ltTD gt ltINPUT style = " COLOR: azul " onclick = " INPUT function(' PI ', ' PI ')" tipo = valor del botón = " PI " nombre = PI gt/TD gt

ltTD gt; ltINPUT style = " COLOR: azul " onclick = " INPUT function(' E ', ' E ')" tipo = valor del botón = " E " nombre = E gt/TD gt; ltINPUT style = " COLOR: # ff 00 ff " onclick = " INPUT function(' DMS ', ' deg ')" tipo = valor del botón = d ms nombre = Bt gt/TD gt; /p>

ltTR align = middle gt

ltTD gt ltINPUT style = " COLOR: # ff 00 ff " onclick = agregar corchete() tipo = valor del botón = "(" gt; lt/ TD gt;

ltTD gt ltINPUT style = " COLOR: # ff 00 ff " onclick = dis bracket() tipo = valor del botón = ")" lt/TD gt; ltTD gt ltINPUT style = " COLOR: # ff 00 ff " onclick = " INPUT function(' ln ', ' exp ')" tipo = valor del botón = " ln " nombre = ln gt;

t; lt/TR gt;

ltTR align = middle gt

ltTD gt ltINPUT style = " COLOR: # ff 00 ff " onclick = " INPUT trig(' sin ',' arcsin ', ' hypsin ', ' ahypsin ')" tipo = valor del botón = " sin " nombre = sin gt; lt/TD gt;

ltTD gt ltinput style = " color: # ff 00 ff " onclick="operación('^', 7)" tipo = valor del botón="x^y " gt; lt/TD gt

ltTD gt ltINPUT style = " COLOR: # ff 00 ff " onclick = "INPUT function(' log ', ' expdec ')" tipo = valor del botón = " log " nombre = log gt/TD gt/TR gt

ltTR align = middle gt; /p>

ltTD gt ltINPUT style = " COLOR: # ff 00 ff " onclick = " INPUT trig(' cos ', ' arccos ', ' hypcos ', ' ahypcos ')" tipo = valor del botón = " cos " nombre = cos gt; lt/TD gt;

ltTD gt ltinput style = " color: # ff 00 ff " onclick = " función de entrada ('cubo', 'cubt')" tipo = valor del botón = "x^3 " nombre = cubo gt; lt/TD gt;

ltTD gt ltINPUT style = " COLOR: # ff 00 ff " onclick = " Función de ENTRADA ('!', '!')" tipo=botón valor=" n!" gt lt/TD gt; lt/TR gt;

ltTR align = middle gt

ltTD gt ltINPUT style = " COLOR: # ff 00 ff " onclick = " INPUT trig(' tan ', ' arctan ', ' hyptan ', ' ahyptan ')" tipo = valor del botón = " tan " nombre = tan gt; lt/TD gt;

ltTD gt ltinput style = " color: # ff 00 ff " onclick = " función de entrada(' sqr ', ' sqrt ')" tipo = valor del botón = "x^2 " nombre = sqr gt; p>

ltTD gt ltINPU

T estilo = " COLOR: # ff 00 ff " onclick = " Función de ENTRADA (' recip ', ' recip ')" tipo = valor del botón = " 1/x " gt;TD gt; TBODY gt; lt/TABLE gt; lt/TD gt;

ltTD ancho = 30 gt lt/TD gt

ltTD gt

ltTable gt

ltTBODY gt

ltTR gt

ltTD gt lestilo de entrada = " color: rojo " onclick = poner memoria() tipo = valor del botón = " guardar " > lt; /TD gt; lt/TR gt;

ltTR gt

ltTD gt lestilo de entrada = " color: rojo " onclick = getmemory() tipo = valor del botón = " acceso " > lt ;/TD gt; lt/TR gt;

ltTR gt

ltTD gt lentrada estilo = " color: rojo " onclick = addmemory() tipo = valor del botón = " acumulación " > lt;/TD gt; lt/TR gt;

ltTR gt

ltTD gt estilo de entrada = " color: rojo " onclick = memoria múltiple() tipo = valor del botón = " acumulación " > lt;/TD gt; lt/TR gt;

ltTR gt

ltTD altura = 33 gt ltinput style = " color: rojo " onclick = borrar memoria()tipo = valor del botón = "Borrar almacenamiento" > lt/TD gt; lt/TR gt; lt/TBODY gt; lt/TD gt;

ltTD ancho = 30 gt lt/TD gt;

ltTD gt

ltTable gt

ltTBODY gt

ltTR align = middle gt

ltTD gt estilo ltINPUT = " COLOR: azul " onclick = " Tecla INPUT(' 7 ')" tipo = valor del botón = " 7 " nombre = k7 gt/TD gt;

ltTD gt ltINPUT style = " COLOR: azul " onclick = " Tecla de ENTRADA (' 8 ')" tipo = valor del botón = " 8 " nombre = k8

gt. lt/TD gt;

ltTD gt ltINPUT style = " COLOR: azul " onclick = " INPUT key(' 9 ')" tipo = valor del botón = " 9 " nombre = K9 lt/TD gt; ;

ltTD gt ltINPUT style = " COLOR: rojo " onclick = " operación('/', 6)" tipo = valor del botón = "/" gt/TD gt; p> ltTD gt ltinput style = " color: rojo " onclick = " operación(' ', 6)" tipo = valor del botón = resto > lt;/TD gt

ltTD gt ltINPUT style = " COLOR ：rojo " onclick = " operación(' & '), 3)" tipo = valor del botón = " y " >; lt/TD gt; lt/TR gt;

ltTR align = middle gt< / p>

ltTD gt ltINPUT style = " COLOR: azul " onclick = " INPUT key(' 4 ')" tipo = valor del botón = " 4 " nombre = k4 lt/TD gt; > ltTD gt ltINPUT estilo = " COLOR: azul " onclick = " Tecla INPUT(' 5 ')" tipo = valor del botón = " 5 " nombre = K5 gt.

lt/TD gt;

ltTD gt ltINPUT estilo = " COLOR: azul " onclick = " INPUT key(' 6 ')" tipo = valor del botón = " 6 " nombre = K6 lt/TD gt; ;

ltTD gt ltINPUT style = " COLOR: rojo " onclick = " operación(' * ', 6)" tipo = valor del botón = " * " gt/TD gt; p> ltTD gt ltinput style = " color: rojo " onclick = " función de entrada (' piso ', ' deci ') " tipo = valor del botón = nombre de redondeo = piso gt; ltTD gt ltinput style = " color: rojo " onclick = " operación(' | ', 1)" tipo = valor del botón = " o " > lt;/TD gt/TR gt; align = middle gt

ltTD gt ltINPUT style = " COLOR: azul " onclick = " INPUT key(' 1 ')" tipo = valor del botón = " 1 " > lt/TD gt;

ltTD gt ltINPUT estilo = " COLOR: azul " onclick = " Tecla INPUT(' 2 ')" tipo = valor del botón = " 2 " nombre = k2 gt. lt/TD gt;

ltTD gt ltINPUT style = " COLOR: azul " onclick = " INPUT key(' 3 ')" tipo = valor del botón = " 3 " nombre = k3 gt.

lt/TD gt;

ltTD gt ltINPUT estilo = " COLOR: rojo " onclick = " operación('-', 5)" tipo = valor del botón = "-" gt; /p>

ltTD gt ltINPUT style = " COLOR: rojo " onclick = " operación(' lt; ', 4)" tipo = valor del botón = mover hacia la izquierda > /TD gt; ltTD gt ltinput style = " color: rojo " onclick = " función de entrada(' ~ ', ' ~ ')" tipo = valor del botón = " not " > lt;/TD gt/TR gt; p> ltTR align = middle gt

ltTD gt ltINPUT style = " COLOR: azul " onclick = " INPUT key(' 0 ')" tipo = valor del botón = " 0 " > lt/TD gt; /p>

ltTD gt ltINPUT style = " COLOR: azul " onclick = changeSign() tipo = valor del botón = /- gt/TD gt;

ltTD gt lt' INPUT style = " COLOR: azul " onclick = " INPUT key(' . ')" tipo=valor del botón = "." nombre = kp gt lt/TD gt;

ltTD gt ltINPUT style = " COLOR: rojo " onclick = " operación(' ', 5)" tipo = valor del botón = " " gt/TD gt;

ltTD gt ltINPUT estilo = " COLOR: rojo " onclick = resultado() tipo = valor del botón = " = " gt; lt/TD gt;

ltTD gt estilo de entrada = " color: rojo " onclick = " operación(' x ', 2)" tipo = valor del botón = XOR > lt; TD gt; lt/TR gt;

ltTR align = middle gt

ltTD gt ltINPUT style="COLOR: azul "deshabilitar onclick = " Tecla INPUT(' A ')" tipo = valor del botón = nombre "A" = ka gt.

lt/TD gt;

ltTD gt ltINPUT style="COLOR: azul "disable onclick="Tecla de ENTRADA('B')" tipo=valor del botón="B" nombre=kb gt. lt/TD gt;

ltTD gt ltINPUT style="COLOR: azul "disable onclick = "Tecla de ENTRADA('C')" tipo = valor del botón = "C" nombre = KC gt. lt/TD gt;

ltTD gt ltINPUT style="COLOR: azul "deshabilitar onclick = " Tecla INPUT(' D ')" tipo = valor del botón = " D " nombre = KD gt; gt;

ltTD gt ltINPUT style="COLOR: azul "disable onclick = "Tecla de ENTRADA(' E ')" tipo = valor del botón = "E" nombre = ke gt/TD gt;

ltTD gt ltINPUT style="COLOR: azul "deshabilitar onclick = " Tecla INPUT(' F ')" tipo = valor del botón = " F " nombre = KF lt/TD gt; lt/TBODY gt; lt/TABLA gt; lt/TD gt; lt/FORM gt;lt/DIV gt;lt referer=solicitud. variables del servidor(" HTTP _ REFERER ") gt；

lt! -Fin->;