2 Программа итерационного цикла

Пример 1

Составить программу вычисления значения функции 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.

Описание программы

В разделе объявления констант вводится точность вычислений Е=10^-4, в разделе переменных вводятся y,s,x – вещественные, k – длинное целое и slag – вещественная.

Основной блок программы начинается оператором begin, в нём вводится значение аргумента х, вычисляется значение слагаемого slag=π./ 6 и присваивается переменной k значение 1.

Цикл открывается оператором repeat, в нём вычисляется слагаемое slag и прибавляется к предыдущему значению суммы s, затем k увеличивается на 1 (inc (k)). Проверка на окончание цикла выполняется после слова until сравнением модуля slag с заданной точностью е. Если условие выполняется (true), то при k=2 программа возвращается к repeat - на новое вычисление slag и s , если нет (false), то переходит к присвоению у значения накопленной суммы s, выводит на экран у и вычисленное значение x(π-x) для их сравнения (pi – это число π, хранящееся в памяти среды программирования Pascal)