Ошибка при делении

[Archie_L]

Как ни кручу все время получается r = 1. Я в вычислении что-то не так делаю или при выводе?

        double a, b, r;
        a=StrToFloat(Edit1->Text);
        b=StrToFloat(Edit2->Text);
        r=(pow((a-b),2)-(pow(a,2)-2*a*b))/pow(b,2);
        Label4->Caption=FloatToStr(r);

[p51x]

Школу совсем забыли?
((a-b)^2 - (a^2 - 2ab))/b^2 = (a^2 - 2ab + b^2 - a^2 + 2ab)/b^2 = b^2/b^2 = 1

[Archie_L]

Спасибо большое. Простите, давно не спал.