- Газета «Вісник Переяславщини»
- 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 |
- 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 - розділ опису змінної пам'яті;
A, B - імена комірок пам'яті;
integer - тип пам'яті (цілі числа від -2147483648 до 2147483647);
:= - оператор присвоєння;
StrToInt - функція, яка перетворює рядок символів (string) у ціле число (integer);
IntToStr - функція, яка перетворює ціле число (integer) у рядок символів (string).
Якщо кількість повторень команд тіла циклу до початку виконання команди циклу невідома, потрібно використовувати команду циклу з передумовою.
Загальний вигляд команди циклу з передумовою такий:
while <логічний вираз> do
begin
<команди тіла циклу>
end;
(англ. while – поки). Якщо тіло циклу складається лише з однієї команди, операторні дужки begin і end можна не ставити.
Виконується команда циклу з передумовою так:
1. Обчислити значення логічного виразу.
2. Якщо це значення true, то виконати команди тіла циклу і перейти до команди 1, а якщо false, то виконати команду, наступну за командою циклу.Команда повного розгалуження в Delphi має такий загальний вигляд:
if <логічний вираз>
then begin
<послідовність команд 1>
end
else begin
<послідовність команд 2>
end;
(англ. if – якщо, then – тоді, else – інакше)
Виконання команди повного розгалуження відбувається так: обчислюється значення логічного виразу; якщо це значення true, то виконується послідовність команд 1 і після цього виконується команда, наступна за командою розгалуження; якщо це значення false, то виконується послідовність команд 2 і після цього виконується команда, наступна за командою розгалуження.
Звертаємо вашу увагу:
• якщо після ключових слів then і else слідують тільки по одній команді, то операторні дужки begin і end можна не ставити;
• перед else ставити крапку з комою не можна.
Перехід від форми до вікна редактора коду можна здійснити функціональною клавішею F12 - Запустіть проект на виконання і проаналізуйте дію кнопок.
- Збережіть проект: Save All.