Детерминированные вычислительные процессы с управлением по аргументу. Численное интегрирование

Лабораторная работа №3

Тема: детерминированные вычислительные процессы с управлением по аргументу. Численное интегрирование.
Цель работы: научится реализовывать алгоритм детерминированных вычислительных процессов с управлением по аргументу (численное интегрирование) на языке Паскаль. 

Оборудование: ноутбук ASUS X550C, среда разработки Lazarus IDE v1.6.4.

Задание 1

Математическая модель: [pic 1]

, где n – количество отрезков, .[pic 2][pic 3]

Блок схема:

[pic 4]

Список индетификаторов:

Код программы:

var n,a,b,f,h,x: real;[pic 5]

begin

writeln('enter the number of partitions');

readln(n);

a:=0.2;

b:=0.8;

f:=0;

x:=0;

h:=(b-a)/n;

a:=a+h;

while a <= b do

begin

x:=x+cos(a*a+1)/(2+sin(2*a+0.5));

a:=a+h;

end;

f:=x*h;

writeln(f:0:8);

readln();

end.

Анализ результата вычисления: После запуска программы на экране появляется окно, где пользователь должен ввести количество равных отрезков n, после чего на экране появляется значение вычисленного интеграла методом левых прямоугольников.

Задание 2

Математическая модель: [pic 6]

, где n – количество отрезков, .[pic 7][pic 8]

Блок схема:

[pic 9]

Список индетификаторов:

Код программы:[pic 10]

var n,a,b,f,h,x: real;

begin

writeln('enter the number of partitions');

readln(n);

a:=0.2;

b:=0.8;

f:=0;

x:=0;

h:=(b-a)/n;

while a <= (b-h) do

begin

x:=x+cos(a*a+1)/(2+sin(2*a+0.5));

a:=a+h;

end;

f:=x*h;

writeln(f:0:8);

readln();

end.

Анализ результата вычисления: После запуска программы на экране появляется окно, где пользователь должен ввести количество равных отрезков n, после чего на экране появляется значение вычисленного интеграла методом правых прямоугольников.

Задание 3

Математическая модель: [pic 11]

, где n – количество отрезков, .[pic 12][pic 13]

Блок схема:

[pic 14]

Список индетификаторов: