Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

24th
Мар

Метод герона вычисления квадратного корня Delphi

Posted by Chas under Пост-обзор

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

Alex2391:

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('Нажмите ');

    ReadLn;

end.