ідповідному методу.
. Для формули Сімпсона, спочатку розраховуються перші два вузла інтегрування і крок. (Для інших методів аналогічно, тільки міняються пункти 8, 9, 10)
. Після, розраховуються результати інтегрування на 3ем вузлі і 4том. Тут використовуються потоки, в залежності від кількості відрізків на кожен вузол.
. Після підсумовуються і множаться змінні містять суми результатів інтегрування на всіх відрізках.
. На екран виводиться мітка з результатом інтегрування.
. Після розрахунків і перегляду результатів, закінчення роботи програми проводиться кнопкою вихід.
3.Краткая інструкція по роботі програми
програмування середній прямокутник формула
Дана програма розроблена для обчислення інтеграла від заданої функції в заданих межах за формулою Сімпсона, прямокутників, трапецій
Для того щоб почати роботу необхідно запустити файл PrIntegral.exe. Після запуску на екрані з'явиться вікно (рис. 1).
Рис 1. Запуск програми.
Далі необхідно ввести функцію (рис. 2).
Рис 2. Введення функції
Далі необхідно ввести межі інтегрування (верхній і нижній) (рис. 3,4).
Рис 3,4. Введення верхньої і нижньої меж інтегрування.
Далі необхідно ввести кількість частин, для підготовки функції до розбиття (рис. 5).
Ризик 5. Введення кількості частин для розбиття
Після вибирається необхідний метод для обчислення інтеграла (рис. 6).
Рис 6. Вибір методу для обчислення
Далі після введення всіх даних і вибору методу необхідно натиснути кнопку обчислити (рис. 7).
Рис 7. Обчислення.
Після з'явиться мітка в лівому нижньому екрані з результатом обчислень (рис. 8).
Рис 8. Результат обчислень.
Для виходу з програми необхідно клікнути на кнопку Вихід (рис. 9).
Рис 9. Результат обчислень
4.Лістінг програми
Вихідний текст програми (основний модуль)
unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, UFunction, jpeg, ExtCtrls, Unit2, Unit3;=class (TForm): TLabel ;: TLabel;:TEdit ;: TEdit ;: TButton ;: TEdit ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TEdit ;: TButton ;: TImage ;: TGroupBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel; Edit1KeyPress (Sender: TObject ; var Key: Char); Edit2KeyPress (Sender: TObject; var Key: Char); Edit4KeyPress (Sender: TObject; var Key: Char); Button1Click (Sender: TObject); Edit5KeyPress (Sender: TObject; var Key: Char); Button4Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations}
simc2, simc3: extended;// змінні для підсумовування результатів потоку
end ;: TForm1 ;: string;
a, b: extended;//межі інтегрування, лічильник: integer;//розбити на nc частин
implementation
{$ R * .dfm} TForm1.FormCreate (Sender: TObject) ;. Visible:=False; .Visible:=False ;; TForm1.Edit5KeyPress (Sender: TObject; var Key: Char) ; not (key in [ 0 .. 9 raquo ;, a .. z raquo ;, # 8, # 13, - raquo ;, + raquo ;, * raquo ;, /,
^ raquo ;, , raquo ;, . raquo ;, ( raquo ;, ) ]) then key:=# 0 ;; TForm1.Edit1KeyPress (Sender: TObject; var Key: Char); not (key in [ 0 .. 9 raquo ;, # 8, - raquo ;, E raquo ;, e raquo ;, , raquo ;, . ]) then key:=# 0 ;; TForm1.Edit2KeyPress (Sender: TObject; var Key: Char); not (key in [ 0 .. 9 raquo ;, # 8, - raquo ;, E raquo ;, e raquo ;, , raquo ;, . ]) then key:=# 0 ;; TForm1.Edit4KeyPress (Sender: TObject; var Key: Char) ; not (key in [ 0 .. 9 raquo ;, # 8]) then key:=# 0 ;; Pr;:=Form1.Edit5.Text; length (OldFStroka)=0 then;:=FStroka ; elseOldFStroka lt; gt; FStroka then ;;:=FStroka ;;; Log: boolean; Form1.Edit5.Text lt; gt; then Log:=true else Log:=false; Form1.Edit1.Text lt; gt; then a:=strtofloat (Form1.Edit1.Text) else:=false; Form1.Edit2.Text lt; gt; then b:=strtofloat (Form1.Edit2.Text) else:=false; Form1.Edit4.Text lt; gt; then nc:=strtoint (Form1.Edit4.Text) else:=false ;;
//формула СімпсонаIntegralSimpson: extended; c0, c1, c2, c3, c4, dx: extended ;: integer; Thr: T...
