Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 11.11.2009, 16:57   #1
gree
Пользователь
 
Аватар для gree
 
Регистрация: 28.10.2008
Сообщений: 34
Вопрос Численные методы. Решение нелинейного уравнения методом половинного деления.

Привет помогите плиз доразобраться, Короче говоря задание нужно написать программу вычисляющую корень уравнения на заданном промежутке, с заданой точностью.. по данной блок схеме..

уравнение и его корни можно увидеть из графика.

Среда программирования Delphi.
вот что у меня получилось:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,eps,x:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
eps:=strtofloat(edit3.Text);
 if (sin(0.5*a+0.2)-sqr(a)*cos(0.5*a+0.2))*(sin(0.5*b+0.2)-sqr(b)*cos(0.5*b+0.2))<0 then
begin
edit4.Text:='числа заданы не верно';
exit;
end;
repeat
c:=(a+b)/2;
if (sin(0.5*a+0.2)-sqr(a)*cos(0.5*a+0.2))*(sin(0.5*c+0.2)-sqr(c)*cos(0.5*c+0.2))<0 then
b:=c
else a:=c
until abs(b-a)<0;
x:=(a+b)/2;
edit4.Text:=floattostr(x);
end;
end.
Быть подлинно здравомыслящим уже означает много знать..

Последний раз редактировалось gree; 11.11.2009 в 17:14.
gree вне форума Ответить с цитированием
Старый 11.11.2009, 18:36   #2
Ti_pain)
Пользователь
 
Регистрация: 04.11.2009
Сообщений: 39
По умолчанию

until abs(b-a)<0;
помойму ето не правельно модуль любого чилса не меньше 0))
Ti_pain) вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Решение нелинейного уравнения и построение графика xMass Помощь студентам 5 29.10.2012 18:42
Решение уравнения методом деления отрезка пополам. Методом секущей. Panda196 Паскаль, Turbo Pascal, PascalABC.NET 3 25.11.2008 09:06
Решение нелинейного уравнения методом Ньютона Tina Общие вопросы C/C++ 2 04.06.2008 20:48
текст программы для решения нелинейного уравнения методом простых итераций Dyst Помощь студентам 2 14.05.2008 21:00


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840