Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 175602
25.12.2009, 11:38
35.00 руб.
0 2 1
Компьютеры Программирование
Здравствуйте уважаемые Эксперты, помогите пожалуйста решить задачку.

Даны положительные действительные числа A, X, E.

В последовательности Y(0),Y(1),Y(2),Y(3),..., образованной по закону Y(0)=A; Y(i)=(Y(i-1)+X/Y(i-1))/2, i=1,2,3,...

Найти первый член Y(n), для которого выполнено неравенство ¦Y(n)-Y(n-1)¦<E.

Обсуждение

Неизвестный
25.12.2009, 11:55
общий
Верещака Андерй Павлович:
Здравствуйте.

Вам требуется абсолютно вся программа или Вы в состоянии дописать сами объявление переменных,ввод-ввывод, и достаточно привести основой цикл выполняющий поиск n?
Неизвестный
25.12.2009, 12:07
общий
это ответ
Здравствуйте, Верещака Андерй Павлович.

Код программы в приложении.

Приложение:
var a,x,e,y,yo:real;
n:integer;

begin
writeln('Введите A:');
readln(a);
writeln('Введите X:');
readln(x);
writeln('Введите E:');
readln(e);
y:=a;
yo:=a-2*e;
n:=0;
while (abs(y-yo)>e ) do
begin
yo:=y;
y:=(yo+x/yo)/2;
n:=n+1;
end;
writeln('Требуемое условие выполнено при n=',n);
readln;
end.
5
Спасибо Вадим, за решение, пополню свой кошелек, обязательно Вас отблагадарю.<br>с Уважением Андрей
Форма ответа