Тема: Створення найпростішого програмного проекту. Використання елементів управління.
Мета: Ознайомити з поняттям умовного оператору. Створення програм з використанням операторів та логічних змінних. Розробка та створення власного проекту.
Задача №1.
Створіть програму, яка відображатиме вартість піци в залежності від вибору користувача.
У піцерії звичайна піца коштує 5 гривень. За кожний додатковий м’ясний або овочевий інгредієнт покупець має доплачувати 1 або 0,5 гривні. Піца середніх розмірів коштує на 25% дорожче, ніж маленька, а велика – на 50%.
При розв’язуванні даної задачі будемо використовувати компоненти типу RadioButton та CheckBox. Об’єкти даного типу дають змогу користувачеві зробити вибір маючи перед собою всі доступні варіанти. Основна відмінність даних компонентів: RadioButton – дає змогу вибрати лише один компонент з групи, тоді як об’єкти CheckBox можуть бути не вибрані зовсім, або навіть обрані всі. Основна властивість даних компонентів – Checked що може приймати два значення: True/False.
- Запустіть середовище програмування.
- Створіть форму наступного виду (Скористайтесь підказками в пунктах 4 – 7):
- Властивості форми Caption задайте значення: «Обчислення вартості піци».
- Для створення елементів з написами «мала», «середня», «велика» розташуйте на формі три компонента типу: RadioButton, та змініть їх властивості Caption відповідним чином.
-
- Для компонента rb1 встановіть для властивості Checked значення True.
- Для створення елементів з написами: «Паппероні» … «Чорний перець» розташуйте на формі компоненти типу: CheckBox, та змініть їх властивості Caption відповідним чином.
- Розташуйте на формі два написи (об’єкти типу мітка) та задайте їх властивостям Caption значення: для першої мітки – «Вартість», а другої – «0».
- Для події onClick кнопки «Обчислити» задайте таку послідовність команд:
- Де Cina – змінна, яка буде містити розраховану вартість піци.
- Запустіть програму на виконання.
- Результат покажіть викладачеві
Задача №2.
Складіть програму обчислення розв’язку лінійного рівняння. (a*x=b)
Лінійне рівняння має такі розв’язки:
Якщо а ≠ 0 та b ≠ 0 то x = b/a
Якщо а=0 та b = 0 то х – будь-яке число.
Якщо а = 0 та b ≠ 0 – розв’язків немає.
За допомогою оператора розгалуження (if…then…else) перевіримо ці умови та виведемо результат обчислення.
- Запустіть середовище програмування Delphi.
- Створіть форму наступного вигляду:
- Для кнопки «Обчислити» в події onClick задайте таку послідовність команд:
- Для кнопки «Очистити» в події onClick
- Запустіть проект на виконання
- Результат покажіть викладачеві
Задача №3.
Створіть форму та задайте послідовність команд для знаходження розв’язків квадратного рівняння виду ax2+bx+c = 0
Для розв’язування рівняння необхідно обчислити дискримінант (позначимо його літерою D).
(в інформатиці такий вираз записується так: D:=sqr(b)-4*a*c
Розв’язок квадратного рівняння в дійсних числах існує тоді, коли дискримінант цього рівняння більший за 0.
Запис таких формул в інформатиці має такий виглад:
X1:=(-b+sqrt(D))/(2*a)
X2:= (-b-sqrt(D))/(2*a)
Якщо дискримінант менший нуля – відповідь: розв’язків не існує.