Составить программу для вычисления значений функции в Delpi

[Queen]

Помогите пожалуйста.Очень нужно.Составить программу для вычисления значений Fx) на отрезке [a,b] с шагом h.
F(x)=7*Sin(x в квадрате)+3*Cos в квадрате(x)

[Grag]

Значения функции куда выводить собираешься??? Т.е. как отобразить результат табулирования?
Вообще-то легко делается, обращайся, может договоримся...
С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru

или по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[DoDge_VipeR]

especially for grag

var a,b,h:real;
function f(x:real):real;
begin
f:=7*sin(x*x)+3*sqr(cos(x));
end;
begin
a:=floattostr(edit1.text);
b:=floattostr(edit2.text);
h:=floattostr(edit3.text);
while a<=b do begin
memo1.lines.add( 'x='+floattostr(a)+'   y='+floattostr(f(a)));
a:=a+h;
end; 
end.

[Grag]

Увы, не уверен, что функция реализована верно, или уверен, что функция реализована неверно. Понимайте как хотите... И от делфи тут не много...

[Grag]

НУ, вот, исправил... Теперь другое дело...

especially for grag

Хотя это в большей мере нужно ТС, а не мне...

[Queen]

я просто первый день здесь