Aquí estoy, puse esto:
VAR a,b,c:integer;
x,y:real;
begin
a:=STRTOINT(edit1.text);
b:=STRTOINT(edit2.text);
c:=STRTOINT(edit3.text);
x:=(-b + (SQRT(b^2 - 4*a*c))/(2*a))
y:=(-b - (SQRT(b^2 - 4*a*c))/(2*a))
edit4.text:=inttostr(x);
edit5.text:=inttostr(y);
end;
Me da error, no se donde, pero....¿qué hago?
Última edición por kbaby fecha: 09-11-2007 a las 20:35:02.
Razón: Error de escritura.
|