Квадратный корень

[alex0097]

Народ, задали на зачет выполнить задачу на Delphi.


Написать программу вычесления квадратного корня из числа a методом Герона с заданной точностью e. Вначале выбирается производительное начальное приближение Х0. Затем строится последовательность Xn+1=(Xn+a/Xn)/2. C каждым шагом Xn будет приближаться к Va. Вычисления прекращаются при выполнении условия [Xn+1-Xn)<=e

[MyLastHit]

А в чем вопрос собственно?

[alex0097]

написать программу. вот в этом вопрос

[Alex2391]

Google решает! Ввел "метод герона вычисления квадратного корня Delphi" и выдало первой же ссылкой:

program geron_sqrt;

function geron(x: Real): Extended; 
const
    eps = 1.0E-100; 
var
    y, z: Real; 
begin
    y := 1.0;
    {Цикл while выполняется до тех пор. пока, не будет достигнута
    заданная точность вычисления квадратного корня}
    while Abs(z - у) >= eps do 
    begin 
        z := у; 
        y := (y + x / у) / 2;
    end;
    geron := у; 
end;

begin
    WriteLn( 'Алгоритм Герона для вычисления квадратного корня из двойки:');
    WriteLn('Geron(2.0) =', geron(2.0));
    WriteLn('Sqrt(2.0) =', Sqrt(2.0));
    Write('Нажмите <Enter>');
    ReadLn; 
end.

Может поможет. Удачи!

[Johnson]

к этому коду не забываем

Uses ....., Math;