Численное интегрирование методом прямоугольников. Разработка программы для реализации метода прямоугольников с использованием подпрограмм. - презентация

1 Численное интегрирование методом прямоугольников. Разработка программы для реализации метода прямоугольников с использованием подпрограмм

2 Цель урока рассмотреть приближенное вычисление интеграла методом прямоугольников разработать алгоритм и программу для реализации данного метода на компьютере

3 Повторение

4 Какое число называется приближенным? Для чего нужны приближенные числа?

5 Что называется абсолютной и относительной погрешностью числа? По каким формулам они вычисляются? Относительная погрешность Абсолютная погрешность

6 Формула для вычисления определенного интеграла Формула Ньютона - Лейбница

7 Геометрический смысл интеграла Интеграл от функции на отрезке равен площади криволинейной трапеции

8 Найдите ошибку в вычислениях

9 Структура программы на Паскале Program ; Uses ; Const ; Type ; Label ; Var ; Procedure (Function) ; Begin End.

10 В каких случаях возникает необходимость использования подпрограмм при составлении программ? 1. когда какой-либо под алгоритм неоднократно повторяется в программе 2. имеется возможность использовать некоторые фрагменты уже разработанных ранее алгоритмов. 3. подпрограммы применяются для разбиения крупных программ на отдельные смысловые части в соответствии с модульным принципом в программировании.

11 Какие виды подпрограмм имеются в языке Паскаль? 1.Подпрограммы-функции 2.Подпрограммы-процедуры

12 Как называются параметры, использующиеся при записи текста подпрограммы в разделе описаний? Формальные

13 Как называются параметры, использующиеся при вызове подпрограммы? Фактические

14 При вызове процедур и функций необходимо соблюдать следующие правила: количество фактических параметров должно совпадать с количеством формальных; соответствующие фактические и формальные параметры должны совпадать по порядку следования и по типу.

15 Метод прямоугольников

16

17 Х У 0 ab y=f (x)

18

19 Х У 0 ab

20 Метод левых прямоугольников Метод правых прямоугольников Метод средних прямоугольников Блок- схема

21 Разработка программы для вычисления определенного интеграла методом левых прямоугольников

22 Задача. Разработать программу вычисления значения определенного интеграла от заданной функции методом левых прямоугольников. Подынтегральную функцию описать с помощью подпрограммы-функции

23 Постановка задачи Дано: f(x) – подынтегральная функция, а – нижний предел интегрирования, b – верхний предел интегрирования, n – количество элементарных отрезков Найти :

24 Формализация задачи Блок-схема задачи Начало Ввод a,b,n h=(b-a)/n s=0 xb=a i=0,n-1,1 x=xb+ih s=s+hf(x) Вывод s Конец

25 Блок-схема метода левых прямоугольников Программа метода левых прямоугольников Начало Ввод a,b,n h=(b-a)/n s=0 xb=a i=0,n-1,1 x=xb+ih s=s+hf(x) Вывод s Конец Program Integral1; uses crt; var i,n: integer; a,b,h,x,xb,s: real; function f(x:real):real; begin f:=……….. end; begin write(Введите нижний предел интегрирования); readln(a); write(Введите верхний предел интегрирования); Readln(b); write(Введите количество отрезков); readln(n); h:=(b-a)/n; s:=0; xb=a; for i:=0 to n-1 do begin x:=xb+i*h; s:=s+h*f(x); end; writeln(Интеграл равен,s:12:10); end.

26 Программа вычисления интеграла методом левых прямоугольников Program Integral1; {метод левых прямоугольников} uses crt; var i,n: integer; a,b,h,x,xb,s: real; function f(x:real):real; begin f:=……….. end; begin write(Введите нижний предел интегрирования); readln(a); write(Введите верхний предел интегрирования); readln(b); write(Введите количество отрезков); Readln(n); h:=(b-a)/n; s:=0; xb=a; for i:=0 to n-1 do begin x:=xb+i*h; s:=s+h*f(x); end; writeln(Интеграл равен,s:12:10); end. Program Integral1; {метод левых прямоугольников} uses crt; var i,n: integer; a,b,h,x,xb,s: real; function f(x:real):real; begin f:=……….. end; begin write(Введите нижний предел интегрирования); readln(a); write(Введите верхний предел интегрирования); readln(b); write(Введите количество отрезков); Readln(n); h:=(b-a)/n; s:=0; xb=a; for i:=0 to n-1 do begin x:=xb+i*h; s:=s+h*f(x); end; writeln(Интеграл равен,s:12:10); end.

27 Х У 0 ab y=f (x)

28 Метод левых прямоугольников Метод правых прямоугольников Метод средних прямоугольников

29 Программа вычисления интеграла методом правых прямоугольников Program Integral1; {метод правых прямоугольников} Uses crt; Var i,n: integer; a,b,h,x,xb,s: real; function f(x:real):real; begin f:=……….. end; begin Write(Введите нижний предел интегрирования); Readln(a); Write(Введите верхний предел интегрирования); Readln(b); Write(Введите количество отрезков); Readln(n); h:=(b-a)/n; s:=0; xb=a; For i:=1 to n do Begin x:=xb+i*h; s:=s+f(x)*h; End; Writeln(Интеграл равен,s:12:10); end. Program Integral1; {метод правых прямоугольников} Uses crt; Var i,n: integer; a,b,h,x,xb,s: real; function f(x:real):real; begin f:=……….. end; begin Write(Введите нижний предел интегрирования); Readln(a); Write(Введите верхний предел интегрирования); Readln(b); Write(Введите количество отрезков); Readln(n); h:=(b-a)/n; s:=0; xb=a; For i:=1 to n do Begin x:=xb+i*h; s:=s+f(x)*h; End; Writeln(Интеграл равен,s:12:10); end.

30 Х У 0 ab y=f (x)

31 Метод левых прямоугольников Метод правых прямоугольников Метод средних прямоугольников

32 Программа вычисления интеграла методом средних прямоугольников Program Integral1; {метод средних прямоугольников} Uses crt; Var i,n: integer; a,b,h,x,xb,s: real; function f(x:real):real; begin f:=……….. end; begin Write(Введите нижний предел интегрирования); Readln(a); Write(Введите верхний предел интегрирования); Readln(b); Write(Введите количество отрезков); Readln(n); h:=(b-a)/n; s:=0; xb=a+h/2; For i:=0 to n-1 do Begin x:=xb+i*h; s:=s+f(x)*h; End; Writeln(Интеграл равен,s:12:10); end. Program Integral1; {метод средних прямоугольников} Uses crt; Var i,n: integer; a,b,h,x,xb,s: real; function f(x:real):real; begin f:=……….. end; begin Write(Введите нижний предел интегрирования); Readln(a); Write(Введите верхний предел интегрирования); Readln(b); Write(Введите количество отрезков); Readln(n); h:=(b-a)/n; s:=0; xb=a+h/2; For i:=0 to n-1 do Begin x:=xb+i*h; s:=s+f(x)*h; End; Writeln(Интеграл равен,s:12:10); end.

33 Компьютерный эксперимент

34 вычислить интеграл одним из рассмотренных способом, меняя шаг разбиения запустить программу несколько раз меняя шаг вычислений n = 10; 100; сравнить полученное значение с найденным по формуле Ньютона-Лейбница. Для этого подсчитайте подсчитать относительную погрешность вычисления. результаты занести в сводную таблицу. сделать выводы. Таблица Компьютерный эксперимент

35 Тест

36 Домашнее задание Составьте проверочные вопросы по данной теме ( не менее 5). Выяснить, существуют ли другие способы приближенного вычисления определенных интегралов. Какие? В чем их суть? Составьте программу вычисления двух определенных интегралов от функций y=sin(x) и y=cos(x) на отрезке [0,π].

37 Считаете ли вы данный урок эффективным? В чем его эффективность? Какую пользу лично для себя вы извлекли из полученной информации?