Hi an alle im Delphiforum, ich wünsche euch allen erstmal nen schönen 2. Advent!
Ich habe allerdings ein Problem mit meinem Delphiprogramm mittels man dem eine Wurzel bestimmen können soll:
Dies ist auch mirt der repeatschleife kein Problem. Allerdings kann ich scheinbar in dem until Bereich keine zwei Bedingungen mit OR verknüpfen
Dann kommt immer: Operator kann nicht angewendet werden.
Das Programm funktioniert nach dem Bisektorenverfahren(Ich meine es heißt so)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure Tlbl_StartwertNEG.BerechneClick(Sender: TObject);
Var
Startwert1, Startwert2, Mittelwert, Funktionswert, E, Quadrat : real;
begin
Startwert1 := StrToFloat(edt_Startwert1.text);
Startwert2 := StrToFloat(edt_Startwert2.text);
E := StrToFloat(edt_E.text);
Quadrat := StrToFloat(edt_Wurzelaus.text);
repeat
Mittelwert:= (Startwert2+Startwert1)/2;
Funktionswert:=(Mittelwert*Mittelwert);
If Funktionswert - Quadrat > 0
then
Startwert2:=Mittelwert
else
Startwert1:=Mittelwert
until ABS(Funktionswert -Quadrat) < E; pnl_wurzelausgabe.caption := FloatToStr(Mittelwert);
end;
end. |
MfG Caesar44
Moderiert von 
Christian S.: Delphi-Tags hinzugefügt
