FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#18
|
||||
|
||||
Hola de nuevo, ya vi el fallo los ; dichosos ! Bueno, para probarla puse:
A=1 B=1 C=1 y me dio error, tal que... SE CERRO EL PROGRAMA XD Y PERDI TODO (menos mal que guarde el codigo antes xD). ¿Por qué? Pruébalo porfavor: VAR a,b,c,d:integer; x,y:real; begin a:=STRTOINT(edit1.text); b:=STRTOINT(edit2.text); c:=STRTOINT(edit3.text); x:=(-b + (SQRT(SQR(b) - 4*a*c))/(2*a)); y:=(-b - (SQRT(SQR(b) - 4*a*c))/(2*a)); edit4.text:=floattostr(x); edit5.text:=floattostr(y); end; Muchas gracias de verdad. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Necesito pasar de doc a pdf por codigo...help!!! | cirilungol | Varios | 2 | 29-05-2006 09:52:49 |
Hola Es mi primer mensaje en este Foro y necesito ayuda para archivos XML | Juan_Carlos_P | Gráficos | 2 | 08-08-2005 19:11:17 |
Necesito un repositorio de codigo fuente !! | Raptor | Varios | 0 | 27-09-2004 18:02:55 |
Hola, Necesito instalar el componente FlatStyle 1.0 en mi Delphi7 | chelodelphi | OOP | 0 | 24-09-2004 08:57:03 |
Hola Incrementacion de codigo | edwin1 | OOP | 2 | 07-08-2003 07:10:08 |
|