Разработать проект вычисления таблицы значений функций одной переменной. ( Delphi)

[Anton94.by]

Разработать проект вычисления таблицы значений функций одной переменной. Вычислить значения данных функций на отрезке [a;b] с заданным шагом h. Вычисление функции оформить в виде отдельной пользовательской функции. Предусмотреть обработку возможных ошибок приложения. Вывод результатов организовать с помощью компоненты StringGrid. Для организации правильной работы пользователя реализовать сценарий работы с использованием свойств visible и enabled компонент, размещенных на форме. Для управления работой приложением использовать компоненту КНОПКА (Button или BitBtn).
Внизу вложена функция для программы.

Эта программа не работает ( выдает ошибку), если можете то исправьте.
Заранее Спасибо.

function TForm1.Func(x: real): real;
begin
    If  func:=(15+(x*x)/(x*x*x))
  else  func:=(6/(x+9))
  else  func:= 4+3x;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Button1.Enabled:=Edit1.Text<>'';
  Label1.Visible:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:='РЕЗУЛЬТАТ Y: '+FloatToStr(func(StrToFloat(Edit1.Text)));
  Label1.Visible:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Enabled:=false;
  Label1.Visible:=false;
end;

[eoln]

Для начала
1) Это 3 разных функции, их надо табулировать отдельно

function TForm1.Func1(x: real): real;
begin func:=(15+(x*x)/(x*x*x)) end;

function TForm1.Func2(x: real): real;
begin func:=(6/(x+9)) end;

function TForm1.Func3(x: real): real;
begin func:= 4+3x end;

Предусмотреть ошибки (знаменатель <> 0 и т.п)

2) Нужно задать интервал [a, b] и шаг h, например, с помощью Edit

3) В цикле от а до b с шагом h искать значение функции и заносить в StringGrid

k := a;
i := 1;
while k<=b do begin
  StringGrid.Cells[1, i]:=floattostr(func1(k));
  StringGrid.Cells[2, i]:=floattostr(func2(k));
  StringGrid.Cells[3, i]:=floattostr(func3(k));
  inc(i);
  k:=k+h
end;

Кол-во строк можно узнать как int от (b-a)/h +1 (тут также предусмотреть ошибки, чтобы а было > b и h<>0)

P.S. Код не проверял

[Sciv]

    If  func:=(15+(x*x)/(x*x*x))
  else  func:=(6/(x+9))
  else  func:= 4+3x;

Это что-за фигня? Вы сравниваете или присваиваете?

Кстати, вот это не Ваш ли пост? С другой функцией... Что, даже переделать не смогли?

http://programmersforum.ru/showthread.php?t=212462

[Anton94.by]

Если можно, то можете всю программу написать. Там ещё надо какую-то таблицу делать. Если будете делать в программе, то можете скинуть полностью программу. ( Ну типа Progekt и Unit).

Вот программа которая получилась у меня, только здесь надо ещё как-то таблицу вставить.

function TForm1.Func1(x: real): real;
begin func:=(15+(x*x)/(x*x*x)) end;

function TForm1.Func2(x: real): real;
begin func:=(6/(x+9)) end;

function TForm1.Func3(x: real): real;
begin func:= 4+3x end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=' '+FloatToStr(func(StrToFloat(Edit1.Text)));
  Label2.Caption:=' '+FloatToStr(func(StrToFloat(Edit2.Text)));
  Label3.Caption:=' '+FloatToStr(func(StrToFloat(Edit3.Text)));
procedure TForm2.Button2Click(Sender: TObject);
k := a;
i := 1;
while k<=b do begin
  StringGrid.Cells[1, i]:=floattostr(func1(k));
  StringGrid.Cells[2, i]:=floattostr(func2(k));
  StringGrid.Cells[3, i]:=floattostr(func3(k));
  inc(i);
  k:=k+h
end;
procedure TForm3.Button3Click(Sender: TObject);
close; 
end;

Если можете то допишите прогу. Если будете дописывать в программе Delphi7, сбросьте эту программу на этот E-mail: anton94.by@mail.ru

Заранее Спасибо.

[Anton94.by]

Как вставить таблицу в Delphi? Обьясните пожалуйста, срочно нужно. ( Если можете,то исправьте ошибки в коде).

[Serge_Bliznykov]

Как вставить таблицу в Delphi?

смотря что Вы понимаете под словом "таблица"...
если речь идёт о TStringGrid (он используется в решении постом выше), тогда открывайте дизайнер, открывайте палитру компонентов (это там, где кнопочки, лейблы и прочие доступные компоненты), закладка "Additional" - там есть TStringGrid. Перетаскиваете его на форму. настраиваете как вам надо. всё.

[Вадим Мошев]

Если можете то допишите прогу. Если будете дописывать в программе Delphi7, сбросьте эту программу на этот E-mail: anton94.by@mail.ru

Заранее Спасибо.

А вы и Ace93 случайно не один и тот же человек? Уж что-то знакомая замашка просить высылать решения на e-mail.