Таблица значений функции

[Alinochk@]

Необходимо построить значение функции на отрезке [a,b]. отрезок и разбиение его на части задаются пользователем. Обеспечить бессбойную работу программы

P.S заранее спасибо

[Roof]

какое-то тайное задание.
1) Какой функции-то?
2) И как это понять - построить значение? нарисовать? или просто вывети таблицу значений?
3) Да и какой язык программирование нужен?

[Alinochk@]

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

какое-то тайное задание.
1) Какой функции-то?
2) И как это понять - построить значение? нарисовать? или просто вывети таблицу значений?
3) Да и какой язык программирование нужен?

Забыла функцию написать
1. sinh x=x+x(в кубе)/3!+x(в пятой степени)/5!
2. Необходимо просто вывести таблицу значений.
3. Delphi

[Utkin]

3! и 5! можно посчитать заранее и вместо них использовать константы...

[Alinochk@]

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

3! и 5! можно посчитать заранее и вместо них использовать константы...

Вот как раз с ними у меня и проблемы

[Utkin]

3!=1*2*3
5!=1*2*3*4*5

[Alinochk@]

Uses
SysUtils, Math, InOut;

Var
a , b: Extended;
N,i: Integer;
S, x, f, h, yn , Eps: Extended;
n, Fact: Integer;
key: Char;
FOk: Boolean;

begin
SetConsoleTitleCyr(‘лаб.раб 10’);
SetConsoleCP_1251;
Repeat
{$I-}
Repeat
Writeln(‘введите границы отрезка [a,b]:’);
Write(‘a=’);
Readln(a);
FOk:=IOResult=0;
Write(‘b=’);
Readln(b);
FOk:=(IOResult=0) and FOk;
If not FOk
Then Writeln(‘ОШИБКА! Данные не корректны!’);
Until FOk
If a>b
Then begin
Writeln(‘Внимание! Левая граница отрезка всегда не больше правой!’);
Writeln(‘В связи с этим будет осуществлен обмен значений переменных a и b!’);
a := a+b;
b :=a-b;
a :=a-b;
end;
repeat
Writeln;
Writeln(‘Введите число отрезков, на которые необходимо разбить отрезок’);
Write(‘[‘,a:7:3,’, ‘,b:7:3,’]:’);
Readln(N);
FOk:= (IOResult=0) and (N>0);
If not FOk
Then begin
Writeln (‘ОШИБКА! Данные некорректны!’);
Writeln(‘ВНИМАНИЕ! Число отрезков должно быть больше нуля’);
End;
Until FOk;
{$I+}
Writeln;
Write(‘+’);
For i:=1 to 9 do
Write(‘-‘);
Write(‘+’);
For i:=1 to 9 do
Write(‘-‘);
(Тут нужно построить таблицу,состоящую из 2 строк и 4 столбцов.
Первый столбик (X) второй (f(x))т.е y=sinh третий(S(x))т.е Eps
Четвертый (f(x)-s(x) по модулю) Я запуталась,как делается)



Write(‘Введите значение погрешности Eps:’);
Readln(Eps);
Begin
f:=sinh(x)
end;
n:=0;
Fact:=1;
repeat
Inc(n);
Fact:=Fact*n;
Yn:=power(x,n)/fact;
S:=S+yn;
Until abc(yn)<Eps;
Writeln(‘S=’,S:10:6);
Readln;
End.


В конце вообще все спуталось

[Utkin]

Я же уже написал, что факториал можно вычислить заранее и использовать константы, например из массива.

[Alinochk@]

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

Я же уже написал, что факториал можно вычислить заранее и использовать константы, например из массива.

Спасибо. уже все сделала.