p-g Formel rechner

[hanselmansel]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  p, q, x: double; //Variablen, die Kommazahlen aufnehmen können
begin

  if (edit1.text = '') or (edit2.text = '') then
    Application.MessageBox('Kein Wert angegeben', 'Fehler', MB_OK + MB_ICONERROR)
  else
  begin
    p := strtofloatdef(edit1.Text, 0);  //P und Q werden zugewiesen StrToFloatDef ist einfach die E-Klasse
    q := strtofloatdef(edit2.Text, 0);  //wenn StrToFloat ein Polo ist.
    x := -1 * (1 / 2 * p) - sqrt(sqr(p / 2) - q); //X1 wird berechnet
    Label1.caption := Floattostr(x);  //X1 wird ausgegeben
    x := -1 * (1 / 2 * p) + sqrt(sqr(p / 2) - q);  //Die Variable, die X1 enthielt, kann weiterverwendet werden, und nimmt X2 auf
    Label2.caption := Floattostr(x);   //Hier wird X2 ausgegeben.

  end;
end;

Für deinen Lehrer anschaulicher (weil wir ja wissen, wie umständlich Lehrer sind) kannst du das Programm gestalten, indem du anstelle von "x" die variablen x1 und x2 verwendest.