Ich versuch mich gerade an einem kleinen Programm:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
| procedure TForm1.Button1Click(Sender: TObject); var a, b, c:Real; begin a:=strtoFloat(edit1.Text); (a/3):=b; <-!!!!
repeat
b*b:=c;
if c>a then b-(b/10):=b else b+(b/10):=b;
until c-a<0.00000001;
edit2.caption:=FloatToStr(c); end; |
Am Ende versuch ich praktisch hier aus a die wurzel zu ziehen. Es gibt bestimmt dafür eine direkte anweisung in Delphi, aber um mal mit den Schleifen zu arbeiten wollte ich es mal auf diese Art und Weise probieren.
in der
Delphi-Quelltext
zeile zeigt er mir nun beim Compilieren den genannten Fehler an.
Aber eigentlich weise ich doch a über die editbox einen Wert zu.
try