«ПРОГРАММИРОВАНИЕ ИТЕРАЦИОННОГО ЦИКЛА Вариант № 2»

Лабораторная работа N4

“Программирование разветвляющегося вычислительного процесса”

1. Постановка задачи

Разработать программу вычисления точного Y и приближенного S значений функции при изменении её аргумента от xн до xк

с шагом Дx.

Для предотвращения зацикливания предусмотреть завершение процесса суммирования членов ряда по заданному максимальному номеру члена ряда =1000.

2. Анализ задачи

Задача состоит в том, чтобы вычислить точное Y и приближенного S значений функции при изменении её аргумента от xн до xк

с шагом Дx.

Приближенное значение функции, представленной бесконечным рядом , вычислять путем суммирования членов ряда до достижения требуемой точности = . То есть прибавлять очередной член ряда до тех пор, пока абсолютное значение разности yTyP по величине не станет меньше .

6. Текст программы на Паскале

Program Work_4_2;

{Работа №2, вариант 2}

const Title = 'Работа №4, вариант 2, Выполнила Аминева Алина';

const n=1000;e=0.0001;

label met;

var x,y,s,xn,xk,dx,a,eror:real;

i:integer;

begin

writeln(title);

Writeln('Введите значения xn => ');

Readln(xn);

xn:=xn;

Writeln('Введите значения xk => ');

Readln(xk);

Writeln('Введите значения dx => ');

Readln(dx);

Writeln ('Исходные данные:');

Writeln('xn =', xn:7:4,' xk =', xk:7:4,' dx =',dx:7:4,' e=',e);

writeln('****************************************************');

writeln('*аргумент*точ знач *прибл знач*слогаемые* ошибка *');

writeln('****************************************************');

x:=xn;

while x<=xk do

begin

y:=x*x/4-pi*x/2+pi*pi/6;

s:=0;

Текст программы на Паскале

Программа работает верно. Полученные результаты удовлетворяют требованию.