Un tema muy básico, pero no me acuerdo...
2 participantes
Página 1 de 1.
Un tema muy básico, pero no me acuerdo...
Buen día foro. Estoy haciendo una rutinita sencilla, para mostrar el resultado en pantalla:
Esta rutina es para establecer el primer cadenamiento de un eje cuando el cadenamiento inicial es distinto de cero.
Saludos y gracias....
- Código:
(defun c:qw(/ ini fraccion entero primercad prod)
(setq cadena 20.0)
(setq ini(getreal"\n Cadenamiento Inicial...."))
(setq fraccion(/ ini cadena))
(setq entero(fix(/ ini cadena)))
(if(=(- fraccion entero)0)
(setq primercad 0)
(setq prod(* ( + 1 entero) cadena)
primercad(- prod ini)
)
)
(print primercad)
)
Esta rutina es para establecer el primer cadenamiento de un eje cuando el cadenamiento inicial es distinto de cero.
Saludos y gracias....
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Re: Un tema muy básico, pero no me acuerdo...
Debes poner (princ) después de la instrucción de imprimir en pantalla.
Saludos.
Saludos.
Re: Un tema muy básico, pero no me acuerdo...
Perfecto, gracias
Saludos
Saludos
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|