Hallo Zusammen.
Ich bin gerade an einem Programm, aber kann meinen Fehler nicht finden.
Zu mir, ich bin absoluter Amateur und habe seit einigen Jahren nicht mehr programmiert.
Nun bin ich leider dazu gezwungen ein kleines Programm zu schreiben.
Im Grund ist es gar nicht so kompliziert. Es geht um Schleifen. Ich habe 5 verschiedene Werte welche eingegeben werden müssen. Dann wird gerechnet, solange bis die ausgerechneten Werte mit vordefinierten Werten übereinstimmen.
Hier der Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var ay, by, cy, l1, l2, f1, lf1, f2, lf2, lges, suche, t: extended;
begin
ay:= 0;
by:= 0;
cy:= 0;
l1:= 0.1;
l2:= 0.1;
f1:= strtofloat(edit1.Text);
f2:= strtofloat(edit2.Text);
lf1:= strtofloat(edit3.Text);
lf2:= strtofloat(edit4.Text);
lges:= strtofloat(edit5.Text);
suche:= (f1+f2)/3;
while l1<>lges do
begin
while l2<>lges do
begin
ay:= f1*(1-(lf1*2/l1));
by:= -f1 +(f1*lf1*2/l1)+f2+(f1*lf1-f2*(lf2-l1))/l2+f1 ;
cy:= -1*(f1*(l1+2*l2)*lf1-f2*l1*(l1-l2-lf2))/(l1*l2);
label4.caption:= floattostr(t);
t:= t+1;
if (ay <= 1.05 * suche) or (ay >= 1.05 * suche) then
if (by <= 1.05 * suche) or (by >= 1.05 * suche) then
if (by <= 1.05 * suche) or (by >= 1.05 * suche) then
begin
label1.Caption:= floattostr(ay);
label2.Caption:= floattostr(by);
label3.Caption:= floattostr(cy);
end;
l2:= l2 + 0.1;
end;
l1:= l1 + 0.1;
l2:= l1 + 0.1;
end;
end;
end.
Hier meine Testwerte:
f1 = 500
f2 = 200
lf1 = 2
lf2 = 5
lges = 10
Leider hängt sich das Programm sofort auf. Label 4 soll mir zeigen, wie oft die Schleife durchlaufen wurde, aber auch hier passiert nicht. Hat jemand eine Lösung?
Vielen Dank für Unterstützung!