Nullstellen Berechnung für y=ax²+bx+c

[youcefdar]

vorführ Prüfung machen wir immer am NeuenJahresanfang, Ist wie eine Klausur.

Und danke sehr, es scheint hier ja eine sehr nette Community zu sein.

Also hab jetzt mein Threadstart noch mal editiert.

Und ich weiß das mit der Pq Formel^^

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var a,b,c,Radikand,wurzel,p,q,x1,x2,im,re:real;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  c:=StrToInt(Edit3.Text);
  if a=0 then showmessage('Keine quadratische Gleichung');
  try
    p:=b/a;q:=c/a;
  except
     on E : Exception do
     begin
       ShowMessage('Exception class name = '+E.ClassName);
       ShowMessage('Exception message = '+E.Message);
     end;
  end;

  Radikand:=sqr(p/2)-q;

  If Radikand=0 then
  begin
     x1:=-p/2;
     Edit4.Text:= 'x = ' + FloatToStr(-p/2);
     Edit5.Text:='';
     Label6.Caption:='Nur eine Lösung!';
  end;

  If Radikand>0 then
  begin
     x1:=-p/2+sqrt(Radikand);
     x2:=-p/2-sqrt(Radikand);
     Edit4.Text:='x1 = ' + FloatToStr(x1);
     Edit5.Text:='x2 = ' + FloatToStr(x2);
     Label6.Caption:='2 relle Lösungen!';
  end;

  If Radikand<0 then
  begin
      Radikand:=-Radikand;
      re:=-p/2;
      im:=sqrt(Radikand);
      Edit4.Text:=FloatToStr(re) + ' + '+ FloatToStr(im) + ' i';
      Edit5.Text:=FloatToStr(re) + ' - '+ FloatToStr(im) + ' i';
      Label6.Caption:='2 komplexe Lösungen!';
  end;
end;

Und danke für den Linkverweis.
Doch wie müsste von hier aus meine Form aussehen.
Also was bräcuhte ich alles.

Button,Label und Edit kann ich herauslesen, doch wie viele brauch ich von jedem.
Und wie soll es ungefähr aussehen