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

Формулировка задачи:

Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле и как сумму (произведение) с использованием оператора for. Значение аргумента (если он есть) выберите с учетом ограничения, приведенного в столбце <Аргумент> таблицы. Функция: Сумма или произведение: Аргумент:

Код к задаче: «Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле - Turbo Pascal»

textual
uses crt;
function f(x:real):real;
begin
f:=1/2-pi/4*abs(sin(x))
end;
var x,s:real;
    n:integer;
begin
clrscr;
repeat
write('|x|<1  x=');
readln(x);
until abs(x)<1;
s:=0;
for n:=1 to 50 do
s:=s+cos(2*n*x)/(4*n*n-1);
writeln('S=',s:0:4);
write('f=',f(x):0:4);
readln
end.

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы