лаба 9. Лабораторная работа по информатике 9 студент гр. Гл2002 Ахмеров Р. И вариант 02 Принял Абдульманова Р. Р

• Название: Лабораторная работа по информатике 9 студент гр. Гл2002 Ахмеров Р. И вариант 02 Принял Абдульманова Р. Р
• Дата: 02.06.2021
• Размер: 264.38 Kb.
• Имя файла: лаба 9.docx
• Тип: Лабораторная работа; #213014

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

УФИМСКИЙ ГОСУДАРСТВЕННЫЙ НЕФТЯНОЙ ТЕХНИЧЕСКИЙ

УНИВЕРСИТЕТ

Кафедра прикладной математики и информатики

ЛАБОРАТОРНАЯ РАБОТА

ПО ИНФОРМАТИКЕ

№9

Выполнил: студент гр. ГЛ-20-02 Ахмеров Р.И

Вариант 02

Принял: Абдульманова Р.Р.

Уфа 2021

ПРИБЛИЖЕННЫЕ ВЫЧИСЛЕНИЯ ИНТЕГРАЛОВ МЕТОДОМ СИМПСОНА



Блок-схема вычисления интеграла с заданной точностью:



Паскаль-программа:

program laba9;

uses crt;

var a,b,s,s1,eps:real; n:integer;

label 1;

function integral(n:integer):real; {вычисление интеграла по формуле Симпсона}

var h,x:real; i:integer;

function f(x:real):real;

begin

f:=sin((x*x*x*x)+(2*x*x*x)+(x*x)); {подынтегральная функция}

end;

begin

h:=(b-a)/(2*n);

s:=f(a)+f(b);

for i:=1 to 2*n-1 do

begin

x:=a+i*h;

if i/2=int(i/2) then s:=s+2*f(x)

else s:=s+4*f(x);

end;

integral:=s*h/3;

end;

BEGIN

clrscr;

writeln('исходные данные:');

write('нижний предел a='); readln(a);

write('верхний предел b='); readln(b);

write('начальное число разбиений n='); readln(n);

write('требуемая погрешность вычисления eps='); readln(eps);

s1:=0;

1: s:=integral(n);

if abs(s-s1)>eps then begin n:=n*2; s1:=s; goto 1; end;

writeln('значение интеграла s=',s:2:5);

writeln('при числе разбиений n=',n:6);
END.

Результат


Ручной счет



Вывод: мы научились решать интегралы методом Симпсона ,используя компьютеры.