Реферат Рішення задач і створення компонента в Delphi

тів

Результат роботи програми представлений на малюнку нижче:

В 

Рис. 6.Результат роботи програми. br/>

За результатами роботи програми, можна зробити висновок, що отримані дані повністю відповідають дійсності.

Висновок

Дані програми відповідають заданим вимогам. Обчислена сума цифр тризначного цілого числа k.; За формулою Біне визначено 40-е число Фібоначчі. p align="justify"> У процесі виконання курсової роботи були освоєні багато особливості і тонкощі програмування в середовищі Delphi. Також був освоєний спосіб переходу від алгоритмічного рішення до безпосередньої програмної реалізації на мові Object Pascal з використанням усіх необхідних засобів даної мови. Після аналізу отриманих результатів можна зробити висновок про правильність рішення поставлених завдань. br/>

Список літератури

1. Вебсайт # "justify"> Програми

Додаток 1

(Лістинг модуля завдань № 1, 2,)

// ЧАСТИНА 1 (задача № 1)

nit Unit22;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons;

= class (TForm): TLabel;: TLabel;: TEdit;: TEdit;: TBitBtn;: TButton;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};

, k: integer;: string;

: TForm1;

{$ R *. dfm}

TForm1.Button1Click (Sender: TObject);: = StrToInt (Edit1.Text);: = k div 100 + k div 10 mod 10 + k mod 10;: = IntToStr (s);. Text: = ResultStr;; TForm1.Button2Click (Sender: TObject);. Text: = '';. Text: = '';;.

// ЧАСТИНА 2 (завдання № 2) Unit1;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Buttons, StdCtrls;

= class (TForm): TEdit;: TLabel;: TButton;: TBitBtn; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};

var

{Змінна для зберігання числа, тип real оскільки значення 40 член ряду Фідоначчі більше максимального значення типу real}

f: extended;

{a1 і a2 необхідні для обчислення}

a1, a2: real;

{Номер числа в ряду}

n: integer;: TForm1;

{$ R *. dfm} TForm1.Button1Click (Sender: TObject);: = 40;

{Обчислюємо}: = (1 + sqrt (5))/2;: = - (1 - sqrt (5))/2;: = (exp (N * ln (a1)) - exp (N * ln (a2)))/sqrt (5);