Пример 1. Составить программу вычисления значения функции y = x (π-x), используя равенство

Составить программу вычисления значения функции y = x (π-x), используя равенство

с погрешностью E =10^-4 и напечатать для контроля значения функции, определяемые выражением в левой части равенства y = x (π-x) и её разложением в ряд косинусов.

Программа

program iteracia

const

e=0.0001;

var

y,s,x:real; { y-функция, s-сумма, x-аргумент }

k:longint;

slag:real; { слагаемое (i-й член суммы) }

begin

writeln('введите x ');

readln(x);

s:= sqr(pi)/6;

k:=1;

repeat

slag:=cos(2*k*x)/sqr(k);

s:=s+slag;

inc(k);

until abs(slag)<e;

y:=s;

writeln(' y(x)= ',y);

writeln(' x*(pi-x)= ',x*(pi-x));

end.