Предмет: Информатика,
автор: 99daniil9918
На языке PascalABC вычислить:
Даны действительные, положительные числа a, b, E, которые задаются вводом. Последовательности , Х1, X2,...; У1, У2,... образованы по закону: X1 = a, Y1 = b, Xn=1/2(Xn-1 + Yn-1), Yn = √(Xn-1•Уn-1). Найти первое n такое, что |Xn -Yn|<E.
Приложения:
Ответы
Автор ответа:
0
Ответ:var a,b,e,x,y:real;
n:integer;
begin
readln(a,b,e);
x:=a;
y:=b;
n:=1;
while abs(x-y)>=e do
begin
x:=1/2*(x+y);
y:=sqrt(x*y);
n:=n+1;
end;
writeln(n);
end.
возможно это неправильно
99daniil9918:
спасибо
Интересные вопросы
Предмет: Українська література,
автор: denisds19455
Предмет: Алгебра,
автор: klimberez
Предмет: Физика,
автор: MilanaStarshova
Предмет: История,
автор: darpad14
Предмет: География,
автор: ksenofontovaalina0