Функция

[cyx]

У мня вопрос заключается в следующем. Дано мне уравнение в функции, и мне нужно его как нибудь ввести через едит, т.e есть 3 eдита.В первый вводим - 5х в степени два, во второй -4ч в третий - +1. так можно осуществить??? или сделать возможным выбор степени с помощью чекбокс, типа выбрать 5х в степени(1,2,3). Или без функции это нельзя сделать?. Вот код из программы:

implementation
function F(x:real):real;
begin
F:=5*x^2-4*x+1;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,x,eps:real;
count:integer;
begin
count:=0;
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
eps:=StrToFloat(Edit3.Text);
repeat
x:=(a+b)/2;
if f(a)*f(x)>0 then a:=x else b:=x;
inc(count);
until b-a<eps;
Edit4.Text:=FloatToStr(x);
label5.Caption:='Количество этапов вычисления:'+IntToStr(count);
label6.Caption:='Проверка: F(x)='+FloatToStr(f(x));
end;

[саша40]

Вообще-то можно. Достаточно использовать функцию Power.

[type_Oleg]

А как у вас компилятор Delphi реагирует на это

F:=5*x^2-4*x+1;

?
В Delphi ( и вообще в Паскале) ^ - это не степень, а указатель. У вас будет ошибка.

Непонятно, что вам нужно.
Покажите рисунок с Edit-ами . Пример, что должно быть в них введено.

[cyx]

Это, так, чисто взятое уравнение для примера. Всё что мне нужно - это осуществить свободный ввод уравнения, чтобы затем его решить методом половинного деления.
На картинке примерно изображено, как я хочу, чтобы это выглядело. Это возможно? или каким нибудь подобным способом можно?
http://savepic.su/5493848.png

[type_Oleg]

- Если вам нужно вводить любое уравнение, типа x^x+sin(x)-ln(x+1) ... , то это довольно сложная задача. Это называется парсер формул или математический парсер
- А если только линейные уравнения 3-го порядка типа ax^3+bx^2+cx+d, то все очень просто. Берете 4 Edit, для a,b,c,d , и все.
В вашем случае -
в Edit1 ввести 0,
в Edit2 5
в Edit3 -4
в Edit4 1
а функция:

function F(x,a,b,c,d:real):real;
begin
F:=a*x*x*x+b*x*x+c*x+d;
end;

PS Сейчас посмотрел, у вас надо корень искать на отрезке a..b с точностью eps. Тогда еще 3 Edit для них.
Всего 7 Edit - для ввода, и 1 - для вывода результата.

[cyx]

Прошу прощение за такую навязчивость, но не могли бы вы мне подобрать какое нибудь простое уравнение на метод половинного деления, и составить по нему график. Просто это моя курсовая работа, мне нужно, чисто так, показательно решить для примера. Буду очень вам Благодарен. Ибо я со составлением графика совсем незнаком да и в математике я слаб.

[type_Oleg]

Сообщение от cyx

.. Ибо я со составлением графика совсем незнаком да и в математике я слаб.

Ну не настолько же слаб, что не сможете в Excel построить какой-нибудь график. Иначе зачем вам такая специальность , где настолько мучительно даются курсовые?

Или вам нужен не сам график , а программа на Delphi для рисования графиков? Чтобы по графику выбрать интервал a..b, где искать корень.
Так это задача гораздо объёмнее, чем поиск корня бисекцией.

А график - да пожалуйста ...

[cyx]

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