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

[youcefdar]

Hallo,

Ich habe am Freitag eine vorführ-Prüfung in Informatik und ich bräuchte dringend eure Hilfe.
Ich bräuchte ein Programm zur Nullstellen Berechnung für y=ax²+bx+c.
Also nach der Pq Formel.
Also:
y=ax² + bx + c
0=ax² + bx + c
0=x² + bx/a + c/a p=b/a q=c/a
x1,2=? (weiß ich leider nicht mehr, was da hinkam)
d= (p)²/2-q
x1= p/2 + Wurzel d
x2=- p/2 - Wurzel d

Und es sollte 3 fälle beeinnhalten:
d < 0 ->>> Keine Lösung
d = 0 ->>> Eine Lösung
d > 0 ->>> Zwei Lösungen



Und falls es geht, ob ihr mir noch sagen könnt was bei der Form hinkommt, also Wie viele Label,memo's,Button's und wie ich die benennen muss.
Ich hoffe ihr wisst was ich meine.
Danke schon mal im Voraus für eure Hilfe und eure Mühe.
Ich bin euch wirklich sehr Dankbar.

[Dax]

Du kennst ja sicherlich die abc-Formel (oder auch die pq-Formel), mit der man solche Gleichungen lösen kann?

[taaktaak]

.. was ist denn, bitteschön, eine "Vorführ-Prüfung"?

[Wolfgang Mix]

@youcefdar

Erstmal herzlich willkommen in der DP

Schau 'mal
hier

Gruß

Wolfgang

[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

[Wolfgang Mix]

Das sagt doch schon unser Begrüßungbildschirm

[Wolfgang Mix]

Du willst doch mit Gleitkommazahlen rechnen, also besser:

Zitat:

a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Float(Edit2.Text);
c:=StrToFloat(Edit3.Text);

Gruß

Wolfgang

[youcefdar]

also könnt mir mal jemand so ein Screen von der Form provisorisch schnell erstellen und uploaden.


Oh cool danke Wolfgang

[Matze]

Wie meinst du das? 3 TEdits aufs Formular klatschen, ein TLabel drunter, davon einen Screenshot erstellen und hochladen?

[youcefdar]

mehr nicht???

und nen Button brauch ich doch auch noch oder?