квадратное у-ние.у меня ошибкааа.

[donetsk]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,c,d,x1,x2:real;
begin
a:=StrToFloat(edit1.Text);
b:=StrToFloat(edit2.Text);
c:=StrToFloat(edit3.Text);
d:=b*b-4*a*c;
if
d>=0;
then
begin
x1:=(-b+Sqt(d))/(2*a);
x2:=(-b-Sqt(d))/(2*a);
Memo1/lines/add('x1'=+floatToStr(x1));
Memo2/lines/add('x2'=+floatToStr(x2)); //+ или - преред float
end
else
memo.lines.add('корней нет');

implementation

{$R *.dfm}

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

у Вас ошибки:

1. квадратный корень в Pascal?Delphi это функция sqrt()

2. почему Вы в одном месте пишете

memo.lines.add('корней нет');

а в другом:

Memo1/lines/add('x1'=+floatToStr(x1));
Memo2/lines/add('x2'=+floatToStr(x2)); //+ или - преред float

откуда слеши появились?!
ну и знак равенства нужно в кавычка писать.
сравните:

Memo1.Lines.Add('x1 = '+floatToStr(x1));
Memo2.Lines.Add('x2 = '+floatToStr(x2));

да, кстати, вместо memo.lines.add('корней нет'); нужно писать memo1.lines.add('корней нет');

[min@y™]

советую, в первую очередь разобраться, в каком разделе юнита должен быть код, а в каком прототипы и классы.
тебе текст программы по телефону диктовали, да?

function CalcSquareEquation(const a, b, c: Extended; out x1, x2: Extended): Integer;
var
  D: Extended;
begin
  D:= Sqr(b) - 4 * a * c;

  if D < 0.0
    then Result:= 0
    else if D > 0.0
           then Result:= 2
           else Result:= 1;

  if Result = 0
    then Exit;

  x1:= -0.5 *(b - Sqrt(D)) / a;
  x2:= -0.5 *(b + Sqrt(D)) / a; 
end;

[Utkin]

откуда слеши появились?!

Так бывает, когда путаешь раскладку клавиатуры