- Газета «Вісник Переяславщини»
- 10 клас
- 11 клас
- Pascal
« Березень 2024 » | ||||||
Пн | Вт | Ср | Чт | Пт | Сб | Нд |
1 | 2 | 3 | ||||
4 | 5 | 6 | 7 | 8 | 9 | 10 |
11 | 12 | 13 | 14 | 15 | 16 | 17 |
18 | 19 | 20 | 21 | 22 | 23 | 24 |
25 | 26 | 27 | 28 | 29 | 30 | 31 |
- 2016 Вересень
- 2016 Жовтень
- 2016 Листопад
- 2017 Лютий
- 2017 Березень
- 2017 Червень
- 2017 Вересень
- 2017 Жовтень
- 2017 Листопад
- 2017 Грудень
- 2018 Лютий
- 2018 Червень
- 2018 Листопад
- 2018 Грудень
- 2019 Червень
- 2019 Вересень
- 2019 Листопад
- 2019 Грудень
- 2020 Січень
- 2020 Лютий
- 2020 Березень
- 2020 Вересень
- 2022 Жовтень
- 2023 Березень
- 2024 Березень
Розробка проекту «Оператор розгалуження»
- Запустіть програму Delphi.
- Поставте на форму необхідні об'єкти.
- Розмістіть їх за зразком.
- Задайте їм відповідні властивості
- Для кнопок Button1 і Button2 потрібно написати код програми. Для цього потрібно двічі клацнути мишею по кнопці, відкриється вікно редактора коду i з’явиться заготовка процедури, де ми маємо між службовими словами begin (початок процедури) та end (кінець процедури) написати потрібний нам код. Для кнопки Button1 потрібно дописати між службовими словами procedure та begin опис змінної пам'яті.
var - розділ опису змінної пам'яті;
x,y - імена комірок пам'яті;
real - тип пам'яті (дійсні числа від 5.0·10-324 до 1.7·10308);
:= - оператор присвоєння;
*, / - знаки арифметичних дій (множення, ділення);
sqrt( ) - математична функція знаходження квадратного кореня;
StrToFloat - функція, яка перетворює рядок символів (string) у дійсне число (real);
FloatToStr - функція, яка перетворює дійсне число (real) у рядок символів (string).
2*x+1>0 - логічний вираз, значення якого може набувати значення True або False. Якщо логічний вираз повертає True, то виконується перший із вказаних операторів, в протилежному випадку виконується другий оператор. Зверніть увагу, що в кінці першого оператора перед службовим словом else крапка з комою не ставиться.
Перехід від форми до вікна редактора коду можна здійснити функціональною клавішею F12 - Запустіть проект на виконання і проаналізуйте дію кнопок.
- Збережіть проект: Save All.