Quadratische Funktionen Rechner + Source

[dYnAm1c]

Moin!

Ich stelle euch hier mal mein, noch nicht ganz fertiges Programm vor, mit dem man ganz leicht quadratische Funktionen berechnen kann. Das Programm benutzt die PQ-Formel zum errechnen von x1 und x2, welche man in der Mathematik normalerweise als Nullpunkte auf der X-Achse bezeichnet, wie es sie z.B. häufig bei Parabeln gibt. Im moment kann das Programm nur Funktionen mit Additionen rechnen, ich füge aber später mehr hinzu. Kiddies die in der Schule also Nullstellen berechnen müssen könnens ja mal verwenden. Das ist mein zweites Programm in Delphi ich würde mich als um konstruktive Kritik o.a. freuen. :lol

Features:
- Nullstellen quadratischer Funktionen berechnen ( f(x)=ax²+bx+c )
- Übersichtlich designed
- Überprüft ob die Zahl unter dem Wurzel Schritt negativ ist und gibt eine Warnung aus
- Lasst euch von den Labeln mit + nicht verwirren ihr könnt auch negative Zahlen in die Felder eingeben, da - und + wieder - ergibt!
-Source Code liegt bei


Screen:



Wer Bugs findet darf diese nicht behalten sondern postet sie bitte hier!



Download: http://rapidshare.com/files/43251013...Calculator.exe

VirCheck : VirusTotal - Free Online Virus, Malware and URL Scanner


Source Code: Ich hoffe er ist übersichtlich genug, hab ja eigentlich fast überall Kommentare hingekritzelt.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    EditP: TEdit;
    EditQ: TEdit;
    FvonXLabel: TLabel;
    XplusLabel: TLabel;
    x1Label: TLabel;
    x2Label: TLabel;
    CalculateBtn: TButton;
    EditX1: TEdit;
    EditX2: TEdit;
    ClearBtn: TButton;
    CopyLabel: TLabel;
    EditXQ: TEdit;
    xQuadLabel: TLabel;
    FormatLabel: TLabel;
    procedure CalculateBtnClick(Sender: TObject);
    procedure ClearBtnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

var
 xq ,p ,p1 ,p2 ,q ,q1 ,q2 ,q3 ,q4 , x1 ,x2 : Extended;  { Variablen als "Extended" deklarieren }

{$R *.dfm}
{$R manifest.res}

procedure TForm1.CalculateBtnClick(Sender: TObject);
begin
xq := StrToFloat(EditXQ.Text);   { xq aus EditXQ holen }
p := StrToFloat(EditP.Text);    { p aus EditP holen }
q := StrToFloat(EditQ.Text);    { q aus EditQ holen }

p1 := p / xq;          { Auf Normalform dividieren falls nötig }
q1 := q / xq;
p2 := - p1 / 2;        { Zahl vor der Wurzel ausrechnen }
q2 := sqr( p1 / 2 );   { p/2 Quadrat unter der Wurzel }
q3 := (q2 - q1);       { q2 ist q1+q (zusammenrechnen) }

Application.Title := 'Negativer Radikant!';    { Fenstertitel von ShowMessage }
if ( q3 < 0 ) then    { Wenn q2 kleiner als 0 ist (negativ) dann... }
begin
ShowMessage('Rechnung nicht möglich!'+#13#10+'Aus einer negativen Zahl kann keine Wurzel gezogen werden!');
Exit;
end
else

q4 := sqrt(q3);       { Wurzel aus q2 }

x1 := p2 + q4;        { x1 ist p1+q3 }
x2 := p2 - q4;        { x2 ist p1-q3}

EditX1.Text := FloatToStr(x1);  { x1 ausgeben }
EditX2.Text := FloatToStr(x2);  { x2 ausgeben }

end;

procedure TForm1.ClearBtnClick(Sender: TObject);   { Edit Felder clearen }
begin

EditXQ.Text := '';
EditP.Text := '';
EditQ.Text := '';
EditX1.Text := '';
EditX2.Text := '';

end;

end.

MfG dYn

[loler90]

joa ganz schön gemacht
ist aber nicht sonderlich schwer hab sowas ohne c schon in autoit gemacht ich weiss vb is was anderes^^

/edit is doch vollkommen ob es in Delphi oder in sonstwas ist.....

[dYnAm1c]

Das is nicht in VB sondern in Delphi gecoded.

[Hu5eL]

evtl mitternachtsformel nehmen ist einfacher xDansonsten ok

[Steiger_mp]

evtl mitternachtsformel nehmen ist einfacher xDansonsten ok

PQ Formel ist ein andrer Name für die Mitternachtsformel,
dein Mathelehrer wird sich freuen, wenn du ihm sagst, dass x = 4,5673842403 ist

Ein bruch ist angebrachter!

[dYnAm1c]

Meinst du? Mein Mathelehrer besteht sogar darauf das wir Dezimalzahlen verwenden.
Außerdem sollte das Programm sowieso nur zum überprüfen genutzt werden da ja überhaupt
kein Rechenweg angegeben wird und ohne Rechenweg geht in der Mathematik gar nichts.

[blackberry]

und ohne Rechenweg geht in der Mathematik gar nichts.

Ha! Da hast du wohl aber noch nie mathematische Literatur gelesen.

[dYnAm1c]

Hab ich nicht und will ich nicht :p

[dYnAm1c]

So Source Code ist jetzt auch dabei!

[AlterHacker]

Gut, die Warnung bzgl. der Wurzel wird ausgegeben, und trotzdem kommt ein Ergebnis?!
Des weiteren kann ich mit wine nichts in das c-Feld eintragen.