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

Содержание

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

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

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

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

4. Схема алгоритма. 4

5. Интерфейс программы 4

5. Интерфейс программы 5

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

7. Результаты расчёта 6

Вывод: 7

Введение

Лабораторная работа 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;

for i:=1 to n do

begin

a:=cos(i*x)/power(i,2);

if abs(y-s) s:=s+a;

eror:=y-s;

end;

Введите значения xn =>

0

Введите значения xk =>

1.57

Введите значения dx =>

0.369

Исходные данные:

xn = 0.0000 xk = 1.5700 dx = 0.3690 e=0.0001

****************************************************

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

****************************************************

*0.000 *1.644934 *1.643934566682 * 1000 *0.000999500 *

****************************************************

*0.369 *1.099350 *1.099383774501 * 35 *-0.000033302 *

****************************************************

*0.738 *0.621847 *0.621780324390 * 39 *0.000067053 *

****************************************************

*1.107 *0.212425 *0.212514770500 * 29 *-0.000089987 *

****************************************************

*1.476 *-0.128917 *-0.128944742807 * 41 *0.000027431 *

****************************************************

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

Примечания

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

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