Четвер, 13.05.2021, 06:34
Головна Реєстрація RSS
Вітаю Вас, Гість
Наше опитування
Оцініть мій сайт
Всього відповідей: 60

Розробка проекту «Стандартні процедури і функції»

  1. Запустіть програму Delphi.
  2. Поставте на форму необхідні об'єкти.
  3. Розмістіть їх за зразком.
  4. Задайте їм відповідні властивості.

  5. Напишіть текст програм для кнопок SpeedButton1, SpeedButton2 і SpeedButton3, які знаходяться на вкладкі Additional.


    var - розділ опису змінної пам'яті;
    AB, BC, AC, a, b, c - імена комірок пам'яті;
    real - тип пам'яті (дійсні числа від 5.0·10-324 до 1.7·10308);
    := - оператор присвоєння;
    StrToFloat - функція, яка перетворює рядок символів (string) у дійсне число (real);
    FloatToStr - функція, яка перетворює дійсне число (real) у рядок символів (string).
    FormatFloat('#.#',AC) - форматований вивід дійсного числа: перед комою - стільки цифр, скільки буде містити ціла частина дійсного числа, яке знаходиться в пам'яті АС, після коми - одна цифра, якщо вона не нуль.
    AC:=sqrt(sqr(AB)+sqr(BC)-2*AB*BC*cos(b*pi/180)); - теорема косинусівю.
    a:=BC*sin(b*pi/180)/AC; - теорема синусів (в памяті а міститься sin(α)).
    a:=ArcTan(a/Sqrt(1-Sqr(a)))*180/pi; - знаходження arcsin(a), та як у Delphi є тільки функція ArcTan.
    *pi/180 та *180/pi - відповідно переведення градусів у радіани та навпаки, так як у Delphi всі тригонометричні функції працюють з радіанами.
    pi - число π у Delphi воно дорівнює 3,1415926535897932385.
    Функція ArcTan повертає значення з інтервалу [-π /2 .. π /2].



    Звертаємо вашу увагу:

    1. При виклику функції без аргументів потрібно вказувати лише її ім’я, наприклад, х := Pi.
    2. Перед першим використанням функції Random потрібно включити до тексту проекту команду виклику процедури Randomize без аргументів і без результатів, яка запустить генератор випадкових чисел.
    3. Для використання функції Power потрібно в рядок Uses тексту проекту додати текст Math. Після цього до проекту підключиться додаткова бібліотека стандартних процедур та функцій і стане можливим використання ще цілого ряду математичних та інших процедур і функцій.

  6. Запустіть проект на виконання і проаналізуйте дію кнопок.
  7. Збережіть проект: Save All.

Наверх