Wurzel ziehen

[NeoDeluxe]

Hi
Ist schon ne weile her, dass ich hier mal nachgefragt habe ca 2 Jahre, seit dem ich Delphi angemacht hab. Aber ich hab mal wieder Lust zu coden und muss gleich schon nachfragen.

Da ich nicht wusste was ich programmieren soll, hab ich mal mit simplen Mathe Programm zur Dreieckberechnung angefangen. Da man in diesem Wurzel ziehen muss, wollte ich nachfragen wie es geht

Ich habe es zwar mit einer while-Schleife hingekriegt, aber da es ein wenig kompliziert ist, wollte ich fragen, wie man es einfacher machen könnte

Delphi-Quellcode:

    wurzel:=seitec/2;
    while (wurzel*wurzel)>=seitec do
      begin
        wurzel:=wurzel-0.01;
        edtc.Text:=FloatToStr(wurzel);
      end;

Mit sqrtklappt bei mir irgendwie nicht