Delphi вывести на экран таблицу значений функции

[rager06]

Помогите с задачей по Delphi, пожалуйста

необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk с шагом h=(xn-xk)/10

вот данные
Untitled-2.jpg

[Stilet]

Ну а в чем сложности то?
Покажи что сделал - поправим.

[rager06]

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

Ну а в чем сложности то?
Покажи что сделал - поправим.

не понимаю как с функцией S(x) работать!

[Mad_Cat]

не понимаю как с функцией Y(x) работать!

function Y(x:double):double;
begin
result:=exp(x)/2 - exp(-x)/2
end;

а работать

writeln(y(0.1));

[rager06]

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

function Y(x:double):double;
begin
result:=exp(x)/2 - exp(-x)/2
end;

а работать

writeln(y(0.1));

быстра получилось я ошибся! не У(х) а S(x) c Y(x) не сложно! А как ряд вычеслить я не знаю

[Mad_Cat]

я ошибся! не У(х) а S(x)

function S(x:double):double;
var ch,sum:double;
i:integer;
begin
ch:=x;
sum:=x;
for i:=1 to 8 do
begin
ch:=ch*x*x/(i+1)/(i+2);
sum:=sum+ch;
end;
result:=sum;
end;

[Grag]

А меня немного настораживает вот это:

для x изменяющихся от xn до xk с шагом h=(xn-xk)/10

При заданных граничных значениях это как-то странновато выглядит...
Может есть смысл рассматривать абсолютное значение шага, или записать наоборот.
rager06, а если нужна готовая программа, могу написать с нуля. Обращайся, договоримся - сделаю...
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61