Как составить программу вычисления кв. корня в Pascal ???

Question

Как составить программу вычисления кв. корня в Pascal ???

Никита Подгорный Профи (717), на голосовании 14 лет назад

Как составить программу вычисления кв. корня в Pascal в примере а= кв.корень из 9 если выводится корень то решение если нет то ответ корней нет????Помогите плиззз!!!!

Answer 1

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.