Рекуррентная формула

@Marat-209 · Регистрация: 17.01.2010

Author24 — интернет-сервис помощи студентам

помогите пожалуйста решить задачку
http://img40.imageshack.us/img40/2797/57934810.jpg

Добавлено через 56 минут
так примерно или нет?

Delphi

var
y,yy:real;
eps: double;
begin
eps:=2.7182 ;
y:=4;
repeat
yy:=y;
y:=y+(sqr(y)-(2*y)-3)/6;
until abs(yy-y)<eps ;
edit4.Text:=floattostr(y);

@lexus_ilia · 17.01.2010, 23:58

Marat-209, похоже на правду, а что Вас смущает? Не компилировал и не проверял, но по виду всё правильно.

@Marat-209 · 18.01.2010, 13:28 **[ТС]**

Смущает меня число e, отсутствия ввода каких либо значений в программе и наличие второй почти похожей задачи и не могу проверить на калкуляторе(не знаю как считать)

@lexus_ilia · 18.01.2010, 20:31

Marat-209, Ну так напишите ввод числа eps и вторая на самом деле очень похожа, а на калькуляторе можно посчитать, что тут сложного, просто зачем, если у Вас всё делает программа...

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	17.01.2010, 23:58	2
	Marat-209, похоже на правду, а что Вас смущает? Не компилировал и не проверял, но по виду всё правильно. 0

@Marat-209 8 / 8 / 1 Регистрация: 17.01.2010 Сообщений: 172
	18.01.2010, 13:28 [ТС]	3
	Смущает меня число e, отсутствия ввода каких либо значений в программе и наличие второй почти похожей задачи и не могу проверить на калкуляторе(не знаю как считать) 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	18.01.2010, 20:31	4
	Marat-209, Ну так напишите ввод числа eps и вторая на самом деле очень похожа, а на калькуляторе можно посчитать, что тут сложного, просто зачем, если у Вас всё делает программа... 0