Головна Реєстрація Вхід RSS

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

1. Запустіть програму Delphi.

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

   

   

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

   var - розділ опису змінної пам'яті;
   AB, BC, AC, a, b, c - імена комірок пам'яті;
   real - тип пам'яті (дійсні числа від 5.0·10^-324 до 1.7·10³⁰⁸);
   := - оператор присвоєння;
   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.
   

Наверх