опонованих рішень і при необхідності внести корективи. Як правило, це файли з розширеннями pas, dpr, dfm.
1.2 Коротке пояснення методу розв'язання задачі
Окружністю називається фігура яка складається з усіх точок площини рівновіддалених від даної точки. Ця точка називається центром кола. Радіусом називається будь-який відрізок з'єднує точку кола з її центром.
Малюнок 1 - Коло і радіус кола
Для будь-якого натурального n на площині існує правильний n-кутник. Багатогранник називається правильним, якщо всі його межі - рівні між собою правильні багатокутники, з кожної його вершини виходить однакове число ребер і всі двогранні кути рівні.
Малюнок 2 - Правильні n-косинці
алгоритм обчислювальний програмування візуальний
У будь правильний багатокутник можна вписати коло. Близько будь-якого правильного багатокутника можна описати коло. Центри вписаною в правильний багатокутник кола і описаної близько правильного багатокутника кола співпадають. Цю точку називають центром правильного багатокутника.
Рисунок 3 Вписана і описана окружності навколо правильного шестикутника
Кількість вершин правильного багатокутника зазвичай позначається як n, сторона правильного многоугольніка- a, радіус вписаного кола - r, радіус описаного кола - R, периметр - P, площа - S.
Знайдемо периметр і площу правильного n-кутника, вписаного в коло заданого радіуса, використовуючи наступну таблицю 1 [2].
Таблиця 1 - Визначення довжини сторони, периметра і площі правильного n-кутника, вписаного в коло
Величина РісунокФормулаОпісаніеСторонаВираженіе боку через радіус описаної окружностіПеріметрВираженіе периметра через радіус описаного кола
Площа Вираз площі через радіус описаного кола
1.3 Блок-схема алгоритму, виконана відповідно до ЕСПД
Блок-схема функції GetValue
1.4 Пояснення до блок-схемі, наведені окремо від блок-схеми і оформлені у вигляді звичайних пропозицій
Пояснення я блок-схемі 1.
Спочатку ми обнуляем змінні, де будуть зберігатися значення числа сторін правильного n-кутника і радіус описаної навколо нього кола r.
Потім звертаємося до функції GetValue, яка допомагає ввести в змінну n значення з візуального компонента Edit1, розташованого на формі. Функція перевіряє введення на відповідність формату цілого числа. Якщо число неціле, або якщо впровадженою не число, то функція поверне n=0. Перевіряємо умову n lt; gt; 0. Якщо число сторін одно 0, то розрахунок не має сенсу і ми закінчуємо роботу з процедурою. Якщо n lt; gt; 0, то потім аналогічно за допомогою функції GetValue вводимо значення в змінну r з візуального компонента Edit2, розташованого на формі. Перевіряємо умову (n gt; 0) and (r gt; 0). Якщо умова помилкова, то закінчуємо роботу з процедурою. Якщо воно істинне, то вважаємо довжину сторони багатокутника (a), його периметр (P), і площа (S), перетворимо формат виводу в більш прийнятний і виводимо значення на форму в компоненти TLabel. На цьому процедура закінчується.
Пояснення я блок-схемі 2.
За допомогою стандартної функції val перетворимо вхідний параметр функції userval в змінну uservalue. Якщо при перетворенні відбувається помилка, то функція val в змінну kod запише не нульовий значення. Якщо помилки при перекладі введення в ціле число немає, то перевіримо ще введення на те, щоб було введено позитивне число більше 0. Якщо все правильно, то привласнимо значення цілого числа результату функції. Якщо є помилки при перетворенні, то привласнимо 0 результату функції.
1.5 Лістинг програми
procedure TFormZad3.Button1Click (Sender: TObject);
var
i: Integer;// Допоміжна змінна
n: Integer;// Число сторін n-кутника
r: Integer;// Радіус кола
a: Real;// Довжина сторони n-кутника
//перевіримо ввід - визначимо число сторін n-кутника
n:=GetValue (Edit1.Text);
//перевіримо ввід - визначимо радіус кола
if n lt; gt; 0 then R:=GetValue (Edit...
