Тема: Створення найпростішого програмного проекту. Оператор повторення.

Мета: Ознайомити з поняттям оператору повторення. Створення програм з використанням операторів та логічних змінних. Розробка та створення власного проекту.

 

Теоретична частина:

Простий оператор циклу застосовується, коли відома кількість повторень циклу. Він записується так:

for лічильник:= вираз-1 to вираз-2 do дія ;

 

Лічильник – це змінна, тип якої повинен відноситися до одного з типів, що перераховують (Integer).

Вираз-1 і вираз-2 можуть бути як константою, змінною, так і викликом функції.

Дія – один або декілька операторів Delphi. Якщо це група операторів, то вони мають бути поміщені в логічні дужки begin/end.

На початку роботи оператора змінна-лічильник набуває значення вираз-1. Якщо при цьому значення лічильника виявиться менше або дорівнюватиме значенню виразу-2, то виконуються оператори, що входять в дію. Це і є один цикл.

Потім змінна-лічильник набуває значення, що йде за поточним, і починається новий цикл, тобто порівняння лічильника і виразу-2, виконання дії, і так далі, до тих пір, поки значення змінної-лічильника не перевищить значення виразу-2.

Можлива робота оператора циклу, при якому змінна-лічильник не збільшуватиметься, а зменшуватися. В цьому випадку ключове слово to замінюється на downto:

 

for лічильник:= вираження-1 downto вираження-2 do дія ;

 

Відповідно,значення  виразу-1 повинно бути більшим або дорівнювати виразу-2.

 

Задача №1.

Створіть програму обчислення суми перших N натуральних чисел.

 

Розв’язок

Необхідно порахувати суму ряду такого вигляду: S = 1+2+3+4+5+…+(N-1)+N

S1 = 1;

S2 = 1 + 2 = S1+2;

S3 = 1+ 2 + 3 = S2+3;

S4 = 1+ 2 + 3 + 4 = S3+4;

І т.д.

Тобто, в загальному випадку одержуємо формулу для обчислення суми:

Sn = Sn-1 + N. (Цю формулу використаємо для розв’язку нашої задачі.)

  1. Запустіть середовище Delphi.
  2. Створіть форму як на малюнку.
  3. Для властивості Text компонентів edt1 та edt2 задайте значення 0.
  4. Оберіть подію onClick кнопки “Обчислити» та задайте таку послідовність команд:
  5. Запустіть програму на виконання.
  6. Результат покажіть викладачеві.

Задача №2.

Створіть програму визначення чи є число введене користувачем складеним, чи простим.

Число називається простим тоді, коли ділиться без остачі лише на 1 та на себе.

Розв’язок

Запитаємо у користувача число. Будемо послідовно перебирати всі числа починаючи з 2 (подільність на 1 перевіряти немає сенсу виходячи з умови задачі), та закінчуючи числом, меншим від введеного користувачем на 1; якщо при діленні заданого числа на будь-яке з тих що ми перебираємо, остача буде дорівнювати 0, то число введене користувачем – не просте.

 

  1. Запустіть середовище програмування Delphi.
  2. Створіть форму вказану на малюнку.
  3.  Запустіть програму на виконання.
  4.  Для події onClick кнопки “Обчислити» задайте таку послідовність команд:
  5.  Результат покажіть викладачеві.

 

 

Задача №3.

Створіть програму обчислення кількості перших N парних чисел. (Число парне, якщо остача від ділення на 2 дорівнює 0. Тобто виконується умова число mod 2 = 0)

 

Задача №4.

Створіть програму обчислення добутку перших 10 натуральних чисел.