Schemat Hornera w Delphi

[epicka_nemesis]

Ułożyłam schemat Hornera w Delphi obliczający pierwiastek kwadratowy z danej liczby z określoną dokładnością ino nie wiem co robię źle, proszę o wskazówki:

Kod: Zaznacz cały

var a,b,c,d,tmp: real;
var e: integer;
begin
read(c);
read(e);
a:=d;
b:=(d*d+c)/(2*d);
while (abs(b-a)>=e) do
tmp:=(b+c/b)/2;
a:=b;
b:=tmp;
writeln('Pierwiastek wynosi : ', a:0:e);
readln;

end.

będę wdzięczna

[Inkwizytor]

Ale błąd wyskakuje przy kompilacji czy złe wyniki wychodzą? (przydałby sie opis poszczególnych zmiennych aby sie nie zgubić)
Poza tym w 6 linijce masz przypisanie zmiennej "a" wartości "d", które nie ma zadeklarowanej wartości

[Zordon]

Hmm, co to ma wspólnego ze schematem Hornera? ;D

Nie wgłębiałem się w kod, ale od razu widać, że to nie jest dobrze:

Kod: Zaznacz cały

while (abs(b-a)>=e) do

e jest liczbą całkowitą