Цикл - це багаторазово повторюється послідовність дій. Перший цикл, з яким ми познайомимося в цьому уроці називається While. Do (роби поки вірно умова).
Синтаксис: Зараз нам потрібно відкрити Delphi і створити новий проект. Кидаємо на форму компоненти Button і Label.
![Урок 4 - цикли - the delphi (урок) Урок 4 - цикли - the delphi](https://images-on-off.com/images/129-130/urok4ciklithedelphi-b3efbf91.png)
- Application.HandleMessage - це метод, що дозволяє виводити значення змінних під час роботи циклу. Не дивлячись на те, що ми і так виводимо змінну в Лабель, цей метод необхідний.
- sleep (100); - функція Sleep () говорить програмі, що потрібно поспати, як би заморозитися на якусь кількість мілісекунд. Мілісекунди вказуються в дужках. В секунді 1000 мілісекунд.
З циклом While ми закінчили, тепер розберемо цикл з лічильником або інша його назва For. To. Do. Даний цикл зручно застосовувати, коли нам точно відомо кількість повторень.
Синтаксис: Цей цикл називається з лічильником, тому що він сам збільшує змінну лічильник на одиницю.
Насамперед нам потрібно додати змінну S типу Integer. Далі, пишемо програму, яка буде вважати суму чисел від 1 до 100.
Тобто є ряд чисел 1 2 3 4 5 6 7 100.
Програма буде складати ці числа між собою, тобто 1 + 2 + 3 + 4 + 5 + 6 + 7 +. +100.
Стираємо цикл While і пишемо цикл For. але перед ним надайте змінної S нуль: Цей цикл повторить дії в тілі 100 раз.
У тіло циклу ми запишемо: Програма буде вважати суму чисел від 1 до 100. додаючи до змінної S змінну лічильник A.
І після циклу виводимо результат в Лабель.
Загальний вигляд: У циклу For є цикл двійник, він може вважати в зворотному порядку. Для цього потрібно змінити ключове слово To на DownTo
Приклад тієї ж самої програми, але зі зворотним лічильником: Далі. Знайомимося з циклом Repeat.
Синтаксис: Цей цикл спочатку виконує дію, а потім перевіряє умова. Цикл виконатися в будь-якому випадку хоча б один раз.
Стираємо цикл For в нашій програмі і пишемо цикл Repeat. Ця програма виконає те ж саме що і попередня.
Ну ось ми і закінчили навчання циклам! Зараз вивчимо 2 команди для управління ними.
Завдання на закріплення: напишіть програму, яка визначить суму двозначних чисел і виведе її в Label.
Ну от і все! Успіхів!
Зустрінемося в наступному уроці!
Урок 3 - Конструкція IF. THEN. ELSE
Ось ці дві строчки Application.ProcessMessages; sleep (100); Вони роблять такі: Application.HandleMessage - це метод, що дозволяє виводити значення змінних під час роботи циклу. Не дивлячись на те, що ми і так виводимо змінну в Лабель, цей метод необхідний. Чому там Ось ці дві строчки Application.ProcessMessages; sleep (100); Вони роблять такі: Application.HandleMessage - це метод, що дозволяє виводити значення змінних під час роботи циклу. Не дивлячись на те, що ми і так виводимо змінну в Лабель, цей метод необхідний. Чому там Application.ProcessMessages ;. а описується Application.HandleMessage. "/>" /> "/>
Додав (а): tema2434 [Новачок]
У завданні сказано що потрібно обчислити суму всіх двозначних чисел, а значить це від 10 до 99, тоді можна скористатися простим циклом: var A, s: Integer; begin s: = 0; for a: = 10 to 99 do begin s: = a + s; end; Label1.Caption: = inttostr (s); end; Може на майбутнє комусь стане в нагоді.