Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
popcorn93
0 / 0 / 1
Регистрация: 07.01.2013
Сообщений: 57
1

f(x)=(e^x)*2*x*x

23.09.2013, 18:38. Просмотров 398. Ответов 3
Метки нет (Все метки)

Добрый вечер, нужно найти корень функции f(x)=(e^x)*2*x*x ,но ошибку выдает не нравится exp^x в 4 строке
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm8.Button2Click(Sender: TObject);
function f(x:real):real;
begin
result:=(Exp^x)*(2*x*x);
end;
var
a, b, eps, x, c:real;
begin
a:=StrToFloat(Edit5.Text);
b:=StrToFloat(Edit6.Text);
eps:=StrToFloat(Edit7.Text);
c:=(a+b)/2;
while abs(b-a)>eps do
begin
if f(a)*f(x)<0 then
b:=c
else
a:=c;
c:=(a+b)/2;
end;
x:=(a+b)/2;
Edit8.Text:=FloatToStr(c);
end;
 
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Puporev
Модератор
54734 / 42134 / 29092
Регистрация: 18.05.2008
Сообщений: 99,455
23.09.2013, 18:49 2
Delphi
1
result:=Exp(x)*2*x*x;
0
popcorn93
0 / 0 / 1
Регистрация: 07.01.2013
Сообщений: 57
23.09.2013, 20:15  [ТС] 3
да,спасибо уже разобралась с этим, я все равно не понимаю вот если вместо e^x мне нужно 4^x ошибку дает даже если через power(4,x) все равно ошибка
0
Puporev
Модератор
54734 / 42134 / 29092
Регистрация: 18.05.2008
Сообщений: 99,455
23.09.2013, 20:23 4
Для power(4,x) нужно подключить модуль uses Math
без него
Delphi
1
y:=exp(ln(4)*x);
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru