Ошибка в вычислении корня из вещественного числа

[Прелесть1]

Помогите исправить ошибку в программе( там не нравится корень из вещественного). Заранее спасибо!!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Image1: TImage;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Image2: TImage;
    Label4: TLabel;
    Edit4: TEdit;
    Image3: TImage;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Button1: TButton;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Label7: TLabel;
    Label9: TLabel;
    Edit6: TEdit;
    Image8: TImage;
    Image9: TImage;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Image10: TImage;
    Label8: TLabel;
    Image11: TImage;
    Label19: TLabel;
    Image12: TImage;
    Label20: TLabel;
    Label21: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var
 a,b,c,d:integer;
 r,q:double;
 p:extended;
    
begin
   a:=StrToInt(Edit2.Text);
   b:=StrToInt(Edit3.Text);
   c:=StrToInt(Edit4.Text);
   d:=StrToInt(Edit5.Text);
   p:=(b-(3*a*a)/8);
   r:=(-3*a*a*a*a)/256+(a*a*b)/16-(c*a)/4+d;
   q:=(a*a*a)/8-(a*b)/2+c;
   Label8.Caption:=FloatToStrF(p,ffFixed,9,2);
   Label9.Caption:=FloatToStrF(q,ffFixed,9,2);
   Label20.Caption:=FloatToStrF(r,ffFixed,9,2);
end;
procedure TForm1.Button2Click(Sender: TObject);
  var
 a,b,c,d,j:integer;
 q:double;
    s:integer;
  k,l,m,n,o,u,z,t:double;
  p:extended;

begin

   s:=StrToInt(Edit6.Text);

   k:=sqrt(2*s-p);
   l:=q/(2*sqrt(2*s-p));
   z:=k*k-4*(l+s);
    if z>0 then
     begin
      m:=(k+sqrt(z))/2;
      n:=(k-sqrt(z))/2;
     end;
    if z=0 then
     begin
      m:=k/2;
      n:=k/2;
     end;
    if z<0 then
     begin
      m:=0;
      n:=0;
     end;
   t:=k*k-4*(-l+s);
    if t>0 then
     begin
      o:=(-k+sqrt(t))/2;
      u:=(-k+sqrt(t))/2;
     end;
    if t=0 then
     begin
      o:=-k/2;
      u:=-k/2;
     end;
    if t<0 then
     begin
      o:=0;
      u:=0;
     end;
Label12.Caption:=FloatToStrF(m,ffFixed,9,2);
Label14.Caption:=FloatToStrF(n,ffFixed,9,2);
Label16.Caption:=FloatToStrF(o,ffFixed,9,2);
Label18.Caption:=FloatToStrF(u,ffFixed,9,2);

end;

end.

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

Модератор.

[Serge_Bliznykov]

во-первых, сразу ошибка здесь:

procedure TForm1.Button2Click(Sender: TObject);
  var
 a,b,c,d,j:integer;
 q:double;
    s:integer;
  k,l,m,n,o,u,z,t:double;
  p:extended;

begin

   s:=StrToInt(Edit6.Text);

   k:=sqrt(2*s-p);

Вы в переменную p ничего не записывали, она локальная, поэтому там МУСОР!


во-вторых, корень не определён для отрицательных чисел.
поэтому, везде, где может быть отрицательное значение под корнем, нужно делать дополнительную проверку.