:: = StrToFloat (le3A.Text);: = StrToFloat (le3B.Text);: = StrToFloat (le3H.Text);: = Round (1 + (b - a)/h) ;. RowCount: = n + 1; i: = 1 to n do: = a + (i - 1) * h; (x = -1) or (Cos (x * x) = -1) then: = ' Не визначено ': = FloatToStr (Sqr (Sin (x)) * Cos (x)/(x + 1) +
(x + 3)/(1 + Cos (x
* x)));. Cells [0, i]: = FloatToStr (x);. Cells [1, i]: = f;;
end;;;
Повний текст програми представлено в додатку.
Тестування програми
Проведемо тестування трьох завдань (рис. 2-3).
В
Малюнок 2. Тестування першого завдання
В
Малюнок 3. Тестування другого завдання
В
Малюнок 4. Тестування третього завдання
Висновки
У цій роботі вирішувалися три завдання.
Першої завданням було обчислення функції однієї змінної.
Другий завданням було обчислення кусково-заданої функції однієї змінної.
Третьої завданням було табулювання функції однієї змінної.
У роботі викладені основні теоретичні відомості, необхідні для виконання роботи, розроблені і представлені у вигляді блок-схем алгоритми роботи програм.
Розроблені алгоритми реалізовані в додатку, створеному в середовищі Delphi.
У процесі виконання роботи був вивчений матеріал з основних операторам мови, основним компонентам середовища Delphi, закріплені навички практичної розробки додатків.
Результати роботи можуть бути використані в наукових цілях для табулювання та розрахунку функцій.
Література
. Архангельський А.Я., В«Прийоми програмування в Delphi на основі VCLВ», 2009, Біном, 944 с.
. Культин Н.Б., В«Основи програмування в Delphi 7В», 2009, BHV, 640 с., іл.
. Культин Н.Б., В«Delphi в задачах і прикладахВ», 2008 р., BHV, 280 с., іл.
. Безкоровайний Ілля, В«Азбука Delphi: програмування з нуляВ», 2008 р., Сибірське університетське видавництво, 112с., ил.
. Гофман В.Е., Хомоненко А.Д., В«Самовчитель DelphiВ», 2008 р., BHV, 576 с., іл.
. Сухарєв М., В«DelphiВ», 2008 р., Наука і техніка, 1040 с., іл.
. Гофман В.Е., Мещеряков Є., Нікіфоров В.В., Хомоненко А.Д. Delphi 7, 2008 р., BHV, 1216 с., Іл. br/>
Додаток
Код програми
;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, pngimage; = class (TForm): TGroupBox;: TButton;: TLabel;: TEdit;: TEdit ;: TLabel;: TImage;: TBevel;: TLabel;: TLabel;...
