Здравствуйте, Гость
Среда, 20.09.2017, 04:15
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz 
Форум » Все о Delphi » Начинающим » нужна помощь с циклами while, repeat. (уравнение решаемое методом итерации и бесконечный ряд)
нужна помощь с циклами while, repeat.
flipsДата: Среда, 27.10.2010, 00:48 | Сообщение # 1
Ранг 1
Группа: Пользователи
Сообщений: 2
Награды: 0
Репутация: 0
Статус: Offline
помогите написать циклы while, repeat.
При помощи repeat решить это уравнение
a*e^(-b*x)-x
итерационная формула
x=a*e^(-b*x)
ограничения
ab<1, x0>0.

при помощи while вычислить сумму бесконечного ряда
функция e

ряд 2+1/2!+1/3!..=2+сумма от i=2 до бесконечности U(i)
рекуррентная формула
U(i+1)=U(i)/(i+1)

 
AdminДата: Четверг, 28.10.2010, 17:40 | Сообщение # 2
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Что-то я не совсем понял какое условие выхода у repeat будет, и что расчитываться в цикле будет

Не оказываю помощь через личные сообщения и ICQ
 
DublДата: Четверг, 28.10.2010, 19:47 | Сообщение # 3
Ранг 3
Группа: Проверенные
Сообщений: 73
Награды: 0
Репутация: 0
Статус: Offline
Вот я тоже не совсем понял, правда подумал, что мне не хватает знаний для это))
 
flipsДата: Пятница, 05.11.2010, 19:13 | Сообщение # 4
Ранг 1
Группа: Пользователи
Сообщений: 2
Награды: 0
Репутация: 0
Статус: Offline
Разобрался с while и repeat. Как оформить вывод строки в Memo этой суммы бесконечного ряда +2 и что сделать что б колличество знаков выводилось согласно eps?
вот код куска программы:
procedure TfrmWhileRepeat.Button2Click(Sender: TObject);
var u,sum,eps:real; i:integer; s:string;
begin
Memo1.Clear;
eps:=strtofloat(edtEps2.Text);
u:=1/2;
sum:=1/2;
i:=1;
while u>eps do
begin
i:=i+1;
u:=u/(i+1);
sum:=sum+u;
if CheckSteps.Checked then
begin
s:=format('%10.7f %10.7f',[u,sum]);
Memo1.Lines.Add(s);
end;
end;
sum:=2+sum;
edtResult2.Text:=floattostr(sum);
edtControl2.Text:=floattostr(exp(1));
end;

Вот картинка в которой наглядно описана просьба о помощи написания вывода в Memo

Добавлено (05.11.2010, 19:13)
---------------------------------------------
Разобрался с этим делом, если надо выложить код, то пишите

Прикрепления: 7330565.jpg(74Kb)


Сообщение отредактировал flips - Четверг, 04.11.2010, 03:24
 
Форум » Все о Delphi » Начинающим » нужна помощь с циклами while, repeat. (уравнение решаемое методом итерации и бесконечный ряд)
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz