Delphi-график

[qpJIaqpU]

13.Составить программу вычисления минимального положительного значения функции Y=10-(2X^3+7X^2-3X^4)sin(12X) и соответствующих значений аргумента при его изменении на интервале -1,5…2,2 с шагом 0,001.

[qpJIaqpU]

ну что, ни кто не поможет?

[Stilet]

Я помогу. Подскажу.
Кидай на форму компонент Chart и вот пример графика в нем:
http://www.programmersforum.ru/showthread.php?t=94519

[Serge_Bliznykov]

ОМГ. А что же здесь помогать?!!
1-е. записываете вычисление функции Y от X (это ваше выражение 10-(2*x*x*x+7*x*x-3*x*x*x*x)*sin(12*x)

2-e. пишем программу

var xMinPol, yMinPol, x, y : extended; 
begin
  yMinPol := -1; {присваиваем -1 как флаг-значение - это признак, что ещё ни одного положительного значения функции мы не нашли!}
x:=-1.5;
while x<=2.2 do begin
  y := 10-(2*x*x*x+7*x*x-3*x*x*x*x)*sin(12*x);
  if y>0 then
     if ( yMinPol = -1 ) or  ( y < yMinPol ) then begin
         xMinPol := x;
         yMinPol := y;
     end;
  x := x + 0.001;
end;

выводите xMinPol, yMinPol 

всё.


p.s. обратите внимание, что аргументы функции sin() по умолчанию ожидается аргументв в радианах...

[qpJIaqpU]

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

ОМГ. А что же здесь помогать?!!
1-е. записываете вычисление функции Y от X (это ваше выражение 10-(2*x*x*x+7*x*x-3*x*x*x*x)*sin(12*x)

2-e. пишем программу

var xMinPol, yMinPol, x, y : extended; 
begin
  yMinPol := -1; {присваиваем -1 как флаг-значение - это признак, что ещё ни одного положительного значения функции мы не нашли!}
x:=-1.5;
while x<=2.2 do begin
  y := 10-(2*x*x*x+7*x*x-3*x*x*x*x)*sin(12*x);
  if y>0 then
     if ( yMinPol = -1 ) or  ( y < yMinPol ) then begin
         xMinPol := x;
         yMinPol := y;
     end;
  x := x + 0.001;
end;

выводите xMinPol, yMinPol 

всё.


p.s. обратите внимание, что аргументы функции sin() по умолчанию ожидается аргументв в радианах...

Уважаемый , мне именно нужна программа, а не её код, с панелью и т.д, вот как этот инженерный калькулятор:

[Stilet]

мне именно нужна программа

Тогда предлагаю обратиться в ветку фриланса.

[raxp]

Уважаемый , мне именно нужна программа, а не её код, с панелью и...

о как, забрал в юмор

[Serge_Bliznykov]

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

Уважаемый , мне именно нужна программа, а не её код, с панелью и т.д,

c панелью и блекджеком?!..
О нет, уважаемый, с этим вопросом не ко мне, я такое не даром, не за деньги написать не смогу - фантазии не хватит..

Действительно, думаю, что Вам стоит обратиться во фриланс!

[qpJIaqpU]

а что такое фриланс, если не секрет?

[Mad_Cat]

>>Click Me<<