ich bin gerade dabei ein Programm zu schreiben, bei dem man Variablen eingibt die in eine allgemeine Quadratische Funktion eingesetzt werden und dann für die stellen X=-5 bis x=5 die Y werte ausgibt. Das klappt auch ganz gut, nur will ich nun machen, dass wenn ein Feld leer bleibt der Wert für die Variable = 1 gesetzt wird. Bei der ersten Variable hat es geklappt, aber bei den folgenden irgendwie nicht, kann gut sein, dass ich die Schleifen falsch benutze.
Code: Alles auswählen
procedure TForm1.BitBtn1Click(Sender: TObject);
var F, A, B, C : Real; I : integer;
begin
if Edit1.Text = '' then
A:=1
else
if Edit2.Text = '' then
B:=1
else
if Edit3.Text = '' then
C:=1
else
A:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);
C:=StrToFloat(Edit3.Text);
ListBox1.Items.Clear;
for I := (-5) to 5 do
begin
F := A * I**2 + B * I + C;
ListBox1.Items.Add(FloatToStr(F));
LG