reibue - Di 04.12.07 17:12
Titel: quardratische Gleichungs Rechner

---

hallo,

dieses Programm berechnet nach Eingabe von p und q die entsprechende Lösung(en).
Das Programm ist in der Schule enstanden bzw. in einer LK! Da ich es als recht nützlich finde wollte ich es euch zeigen.

Feedback ist äußerst erwünscht. Vorallem zu folgender Frage: Wie bekomme ich eine Menüleiste hin, in der Infos und SChließen enthalten ist?

Danke im vorraus

MfG reibue

Kroko - Di 04.12.07 17:35

---

(a) Wie wäre es alternativ mit a,b,c aus ax²+bx+c=0?
(b) TMainMenu auf's Formular

O5IRI5 - Di 04.12.07 18:12

---

Hallo!

Das Polynom n-ten Grades hat immer n Lösungen.
bei p=4 und q=4 ist -2 eine Doppellösung.

Keine Lösung ist etwas hart ausgedrückt, könntest ja schreiben, dass die Lösungen komplex sind. (2 Lösungen konjungiert komplex)

Könntest auch noch den Sourcecode reinstellen!

reibue - Di 04.12.07 19:08

---

Ok sry..........hatte ich erwähnt das das eigentlich für niveau 9. Klasse Gym ist? Nein......dann halt jetzt! für uns sind Gleichungen mit der Disskriminate < 0 immer n.L.

Source kommt bald (gerade wenig Zeit)

achso...un das mit der Formel wird noch umgeändert hab....obwohl das die Normalform ist....un die steht so bei uns im Tafelwerk bzw im Hefter

edit: x1 und x2 werden über die Normalform ausgerechnet.

edit2: dann hier der Source:

unit Gleichungen;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
GroupBox2: TGroupBox;
Edit3: TEdit;
Edit4: TEdit;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
BitBtn1: TBitBtn;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var p, q, D, x1, x2:double;

begin
p:= strtofloat(edit1.text);
q:= strtofloat(edit2.text);
D:= p*p/4-q;

If D<0 then
showmessage('Keine Lösung!')
else
If D=0 then
begin
x1:= -p/2;
edit3.text:= floattostr(x1);
end
else
begin
x1:= -p/2+sqrt(D);
x2:= -p/2-sqrt(D);
edit3.text:= floattostr(x1);
edit4.text:= floattostr(x2);
end;

end;


end.

MfG reibue