В задании речь идёт о разложении функции в ряд Тейлора.
Код на JavaScript таков:
function seriesExpl(x){ var pow = Math.pow; return x - pow(x, 3)/6 + pow(x, 5)/120}
function getDiff(x){ var val_1 = seriesExpl(x); var val_2 = Math.sin(x);
console.log('True value is '+val_2.toString()); console.log('Approximated value is '+val_1.toString()); console.log('Difference between them is '+(Math.abs(val_2 - val_1)).toString());}
getDiff(0.2); // Например, значение 0.2
Все аргументы функций в радианах
Program E04;
uses crt;
var
n,i,k,f: integer;
X: array[1..50] of real;
Max,S: real;
begin
clrscr;
writeln('Введите размерность: ');
readln(n);
writeln('Введите массив: ');
for i:=1 to n do
begin
write('X[',i:2,'] ==> ');
readln(X[i])
end;
writeln('Исходный массив: ');
for i:=1 to n do
write(X[i],' ');
writeln;
Max:=abs(X[1]);
for i:=1 to n do
if Max <= abs(X[i]) then
Max:=abs(X[i]);
writeln('Максимальный элемент по модулю: ',Max);
i:=1;
while (i <= n) and (X[i] <= 0) do
i:=i+1;
if i > n then
writeln ('folse')
else
begin
k:=i;
i:=i+1;
while (i <= n) and (X[i] <= 0) do
i:=i+1;
if i > n then
writeln ('folse')
else
begin
f:=i;
for i := k + 1 to f - 1 do
S:=S+X[i];
writeln('Сумма: ',S:5:2);
end;
end;
end.
Var
k,n:integer;
begin
n:=0;
Writeln('Введите последовательность целых чисел, завершающуюся нулем');
repeat
Read(k);
if (n=0) and (k<0) then n:=k
until k=0;
if n<0 then Writeln('Первое отрицательное число равно ',n)
else Writeln('Последовательность не содержит отрицательных чисел')
end.
Тестовое решение
Введите последовательность целых чисел, завершающуюся нулем
5 11 17 3 -8 14 -6 3 0
Первое отрицательное число равно -8