VPF::Помогите решить задачу по Паскалю!!!

sherreshny

Дата 15.6.2005, 21:41 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Пусть y[0]=0; y[i]=(y[i-1]+1)/(y[i-1]+2); i=1,2,....
Дано действительное число Е>0, найти первый член y[n], для которого выполненно неравенство y[n]-y[n-1]<Е. P.S. Е это Еps=1/10000, решается НЕ через массив...

Помогите кто чем сможет!!!!!!!!!

Fedor

Дата 15.6.2005, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Днепрянин

Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32

А зачем тут вообще массив? Запоминаете два члена, с которыми и работаете.

Модератор: и если вы надеетесь, что за вас полностью решат лабу, вы ошибаетесь! Тут не очень много энтузиастов.

--------------------

Мы - Днепряне. Мы всех сильней.

dvs

Дата 15.6.2005, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Владимир Драпалюк

Профиль
Группа: Участник Клуба
Сообщений: 660
Регистрация: 25.8.2003
Где: Воронеж->Москв а

Репутация: нет
Всего: 19

Код


Eps := 1/100000000;
y1 := 0;
i := 1;
y2 := (y1+1)/(y1+2);
While (y2 - y1 > Eps) and (i < MaxInt) do
begin
   inc(i);
   y1 := y2;
   y2 := (y1+1)/(y1+2);
end;

Не проверял, набирал здесь, логика такая.

P.S. Fedor, я знаю, ты очень добрый и отзывчивый! smile

--------------------

Любите друг друга!

TP@MB@Y

Дата 17.6.2005, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

Репутация: нет
Всего: 4

Вобщето это простейшая задача с рекурсией

Код


function y(i:integer):real;
begin
if i=0 then y:=0 else y:=(y(i-1)+1)/(y(i-1)+2);    // эту строку НАДО оптимизировать, чтобы 2 раза одну и туже рекурсию 
                                                                          // не считала, но так наглядней =)
end;

дальше в теле программы пишем:
n:=0;
repeat
n:=n+1;
until abs(y(n)-y(n-1))<Е

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »