Thema: Delphi Wurzel ziehen

Einzelnen Beitrag anzeigen

Benutzerbild von NeoDeluxe
NeoDeluxe

Registriert seit: 4. Dez 2002
Ort: Behind the Firewall
240 Beiträge
 
Delphi 7 Personal
 
#1

Wurzel ziehen

  Alt 29. Aug 2005, 08:13
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
Alex
  Mit Zitat antworten Zitat