2.Text) else exit;
//якщо число свердловин введено успішно і правильно, то встановимо
//потрібний розмір колонок StringGrid1
if (n gt; 0) and (r gt; 0) then begin
a:=2 * R * Sin (pi/n);// Довжина сторони багатокутника
Label5.Caption:=FormatFloat ( 0. ## raquo ;, n * a);// Периметр багатокутника
Label6.Caption:=FormatFloat ( 0. ## , (n/2) * R * R * Sin (2 * pi/n));// Площа багатокутника
end {else
ShowMessage ( Невірно ввели дані )} ;;
//перевірка числового вводаTFormZad3.GetValue (userval: string): Integer;
kod: integer;
uservalue: integer;
n: Integer;
//перевіримо чи правильно ввели число
val (userval, uservalue, kod);
if (kod=0) and (uservalue gt; 0) then begin
//конвертуємо рядок в ціле число
n:=StrToInt (userval);
end else begin
MessageDlg ( Невірно введено число raquo ;, mtWarning, [mbOK], 0);
n:=0;
end;
Result:=n;// Повернути число, усеченное до цілої величини;
1.6 Скріншоти екрана монітора, що відображають спроектовану форму, введені дані і отримані результати
1.7 Викладки, що підтверджують правильність отриманих результатів
Для перевірки роботи програми ми провели розрахунки в Mathcad і побудували рішення візуально. Для радіуса описаного кола R=10 і правильного чотирикутника (квадрата), довжина сторони квадрата, вписаного в дану окружність склала a=14,142. Це рішення підтверджують графічні побудови. Це ж рішення отримано в програмі.
Також збіглися значення периметра і площі квадрата, вписаного в коло радіусом 10, отримані за програмою і в Mathcad.
Малюнок 4- Перевірка роботи програми в Mathcad і графічно
2. СТВОРЕННЯ КОМПОНЕНТУ DELPHI
2.1 Формулювання завдання
В системі Delphi створити замовний (авторський) компонент. Причому цей компонент повинен допомагати вирішувати задачу, виконану студентом в четвертому семестрі в рамках індивідуального домашнього завдання.
Текст завдання: Оголосити в Delphi клас, що дозволяє об'єкту зберігати інформацію про кількість свердловин куща на нафтовому промислі. Передбачити в створеному класі наявність методу, який по введеному добовий дебіт кожної свердловини визначає номери двох свердловин з мінімальною продуктивністю. Застосувати клас у проекті, реально визначальному такі номери. Для введення даних у проекті обов'язково використовувати компонент StringGrid. Перед закінченням роботи проекту звільнити динамічну пам'ять, виділену під об'єкт.
Для цього завдання треба представити опис технології створення компонента з необхідним обгрунтуванням прийнятих рішень, лістинги модулів, скріншоти.
Студент повинен надати викладачеві файли, що дозволяють перевірити працездатність пропонованих рішень і при необхідності внести корективи. Як правило, це файли з розширеннями pas, dpr, dfm.
2.2 Загальна технологія створення компонента Delphi
середу візуального програмування Borland Delphi містить у собі велику кількість готових до використання компонентів, але при розробці складних додатків навіть такого різноманіття не вистачає. У таких випадках можна встановлювати в середу компоненти сторонніх виробників або розробляти власні компоненти [3]. Компонент - це різновид класу, що володіє здатністю взаємодіяти з інтегрованим середовищем розробки (IDE) Delphi під час проектування додатків.
Коли розробник програми поміщає компонент на форму, то дизайнер форм створює екземпляр обраного компонента з відповідного компонентного класу. Компонент відображається на формі, а його опублікування властивості стають доступними для редагування на етапі розробки або за допомогою інспектора об'єктів, або через створені розробником компонента редактори компонентів і редактори властивостей [4]. Базову функціональність компонентів забезпечує клас TComponent, що є предком всіх компонентів. Наприклад, TComponent реалізує властивості Name і Tag, які успадковуються всіма компонентами. Більше того, TComponent містить методи і властивості, які надають компонентам можливість оброблятися дизайнером форм.
Хоча компоненти і реалізуються з використанням класів мови Delphi, але оголошення ...
