Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Составить программу вычисления значения функции 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.
Дата публикования: 2014-12-11; Прочитано: 315 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!