Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-04-2006
edusus edusus is offline
Miembro
 
Registrado: ene 2006
Posts: 47
Poder: 0
edusus Va por buen camino
ecuaciones

Hola, Estoy tratando de hacer un programa capaz de realizar una ecuación de primer grado, pero no lo consigo. No encuentro una forma de introducir los datos para que despeje la x y la realice.
Si alguien sabe como hacerlo y me manda el código en un ejemplo se lo agradezco.
Responder Con Cita
  #2  
Antiguo 17-04-2006
Robert01 Robert01 is offline
Miembro
 
Registrado: feb 2006
Ubicación: Córdoba, Argentina
Posts: 895
Poder: 19
Robert01 Va por buen camino
lo que quieres es hacer algo como:

aX +b = 0 ?

x = -b/a


es muy simple, solo despejas la incognita y luego pruebas si se cumple para ese valor.
Si es para un sistema de ecuaciones es similar, despejas primero una y luego la otra incognita.

Hay una página de Jean Moreau sobre cálculo númerico (en pascal, c , fortran y basic)

saludos
Responder Con Cita
  #3  
Antiguo 17-04-2006
edusus edusus is offline
Miembro
 
Registrado: ene 2006
Posts: 47
Poder: 0
edusus Va por buen camino
ecuaciones

Gracias por tu respuesta, pero me has entendido mal. Yo sé como resolver las ecuaciones, pero lo que quiero es plantearle la ecuación al programa y que éste lo resuelva. Muchas gracias de todos modos.
Responder Con Cita
  #4  
Antiguo 17-04-2006
[Gunman] [Gunman] is offline
Miembro
 
Registrado: dic 2004
Ubicación: Pedreguer.
Posts: 355
Poder: 20
[Gunman] Va por buen camino
Mira lo que puedes hacer es:
||EDIT_A||x ||EDIT_B|| = ||EDIT_C||
Esto seria el form, junto con un botón que ponga "Calcular" o algo por el estilo y luego haces lo que ha dicho Robert01;
x := (||EDIT_CEDIT_B||)/||EDIT_A||;
Recuerda que tienes que convertir el valor de cada edit a integer i que x ha de ser de tipo float.
Si quieres hacerlo de otra forma, por ejemplo, un edit que el usuario le indica toda la equación, el programa ha de hacer:
1.- Separar los valores con X de los que no tienen X, por ejemplo podrias usar la función Copy() y la función Pos().
2.- Obtener el valor final de las partes CON X y de las partes SIN X.
3.- Hacer lo mismo que antes, X := PARTES_SIN_X/PARTES_CON_X
Has de tener en cuenta que cuando extraigas los valores has de sacar el signo de este también, me explico?
__________________
l2prog.co.nr
Responder Con Cita
  #5  
Antiguo 17-04-2006
edusus edusus is offline
Miembro
 
Registrado: ene 2006
Posts: 47
Poder: 0
edusus Va por buen camino
ecuaciones

Gracias por tu respuesta, pero lamento decirte que no me funciona.
Si hago la primera opción ( que no haría lo que busco porque limitaría el resultado a una opción de producto a un lado de la igualdad y un único término al otro lado), pero aun así:
edit3.text:= floattostr(strtofloat(edit1.text) * strtofloat(edit2.text)); //Solo funciona poniendo un término en cada edit.
Y la otra opción que me das tal vez funcione pero no sé usar las funciones que me dices. De ésta última te agradecería si me mandas el código. Gracias nuevamente.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ecuaciones Diferenciales en Delphi? ingarmen Varios 1 25-02-2005 01:45:42
Componente para resolver sistemas de ecuaciones no lineales? manueles OOP 2 25-12-2003 06:28:39


La franja horaria es GMT +2. Ahora son las 02:46:17.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi