Урок 39. Виконання та налагодження проектів

Тема: Виконання та налагодження проектів

Задача 1: Обчислення суми двох чисел (з можливістю зміни на добуток)

Опис задачі: Користувач вводить два числа, програма обчислює їх суму і виводить результат. Після запуску користувач може змінити програму так, щоб вона обчислювала добуток замість суми.

Розв’язок на Python:

python

# Імпортуємо модуль для роботи з користувачем (не обов'язково, але корисно для пояснення)

import sys 

# Виводимо запрошення для користувача ввести перше число

number1 = int(input("Введіть перше число: ")) 

# input() - функція для отримання введення від користувача.

# int() - перетворює введений текст у ціле число.

# Виводимо запрошення для користувача ввести друге число

number2 = int(input("Введіть друге число: ")) 

# Аналогічно до попереднього рядка.

# Обчислюємо суму двох чисел (можна змінити на добуток)

operation = input("Оберіть операцію (+ або *): ") 

# input() - функція для отримання введення від користувача.

# Користувач вводить символ операції.

if operation == '+': 

   # '==' - оператор порівняння. Перевіряє, чи введено '+'.

   result = number1 + number2 

   # '+' - оператор додавання. Результат записується у змінну result.

else:

   result = number1 * number2 

   # '*' - оператор множення. Результат записується у змінну result.

# Виводимо результат на екран

print("Результат:", result) 

# print() - функція для виведення тексту або значень на екран.

Розв’язок на Lazarus:

1. Створення форми:

   • Додайте на форму два TEdit (для введення чисел), одну кнопку TButton (для обчислення), один TRadioButton (для вибору операції "+") і ще один TRadioButton (для вибору операції "*").

   • Назвіть компоненти так:

     • Edit1 - для першого числа.

     • Edit2 - для другого числа.

     • RadioButton1 - для вибору операції "+".

     • RadioButton2 - для вибору операції "*".

     • Button1 - для кнопки "Обчислити".

     • Label1 - для виведення результату.

2. Код обробника події для кнопки:

pascal

procedure TForm1.Button1Click(Sender: TObject); 

// Button1Click - процедура, яка викликається при натисканні на кнопку.

var

 number1, number2, result: Integer; 

 // Оголошуємо змінні для зберігання чисел і результату.

begin

 // Перетворюємо текст з Edit1 у число і записуємо його у number1

 number1 := StrToInt(Edit1.Text); 

 // StrToInt() - функція, яка перетворює текст у ціле число.

 // Перетворюємо текст з Edit2 у число і записуємо його у number2

 number2 := StrToInt(Edit2.Text); 

 // Аналогічно до попереднього рядка.

 // Перевіряємо, яку операцію обрав користувач

 if RadioButton1.Checked then 

   // Checked - властивість RadioButton, яка перевіряє, чи він вибраний.

   result := number1 + number2 

   // '+' - оператор додавання. Результат записується у result.

 else if RadioButton2.Checked then

   result := number1 * number2; 

   // '*' - оператор множення. Результат записується у result.

 // Виводимо результат у Label1

 Label1.Caption := 'Результат: ' + IntToStr(result); 

 // IntToStr() - функція, яка перетворює число у текст.

 // Caption - властивість Label, яка визначає текст, який він відображає.

end;

Задача 2: Перевірка парності числа (з можливістю зміни на перевірку ділення на 3)

Опис задачі: Користувач вводить число, програма перевіряє, чи є воно парним, і виводить результат. Після запуску користувач може змінити програму так, щоб вона перевіряла, чи ділиться число на 3.

Розв’язок на Python:

python

# Виводимо запрошення для користувача ввести число

number = int(input("Введіть число: ")) 

# input() - функція для отримання введення від користувача.

# int() - перетворює введений текст у ціле число.

# Виводимо запрошення для користувача вибрати операцію

operation = input("Оберіть операцію (парність або ділення на 3): ") 

# input() - функція для отримання введення від користувача.

if operation == 'парність': 

   # '==' - оператор порівняння. Перевіряє, чи введено "парність".

   if number % 2 == 0: 

       # '%' - оператор знаходження залишку від ділення.

       print("Число парне.") 

       # Виводимо повідомлення, якщо число парне.

   else:

       print("Число непарне.") 

       # Виводимо повідомлення, якщо число непарне.

elif operation == 'ділення на 3': 

   # '==' - оператор порівняння. Перевіряє, чи введено "ділення на 3".

   if number % 3 == 0: 

       # '%' - оператор знаходження залишку від ділення.

       print("Число ділиться на 3.") 

       # Виводимо повідомлення, якщо число ділиться на 3.

   else:

       print("Число не ділиться на 3.") 

       # Виводимо повідомлення, якщо число не ділиться на 3.

Розв’язок на Lazarus:

1. Створення форми:

   • Додайте на форму один TEdit (для введення числа), одну кнопку TButton (для перевірки), два TRadioButton (для вибору операції "парність" або "ділення на 3") і один TLabel (для виведення результату).

   • Назвіть компоненти так:

     • Edit1 - для введення числа.

     • RadioButton1 - для вибору операції "парність".

     • RadioButton2 - для вибору операції "ділення на 3".

     • Button1 - для кнопки "Перевірити".

     • Label1 - для виведення результату.

2. Код обробника події для кнопки:

pascal

procedure TForm1.Button1Click(Sender: TObject); 

// Button1Click - процедура, яка викликається при натисканні на кнопку.

var

 number: Integer; 

 // Оголошуємо змінну для зберігання числа.

begin

 // Перетворюємо текст з Edit1 у число і записуємо його у number

 number := StrToInt(Edit1.Text); 

 // StrToInt() - функція, яка перетворює текст у ціле число.

 // Перевіряємо, яку операцію обрав користувач

 if RadioButton1.Checked then 

   // Checked - властивість RadioButton, яка перевіряє, чи він вибраний.

   if number mod 2 = 0 then 

     // 'mod' - оператор знаходження залишку від ділення.

     Label1.Caption := 'Число парне.' 

     // Виводимо повідомлення, якщо число парне.

   else

     Label1.Caption := 'Число непарне.' 

     // Виводимо повідомлення, якщо число непарне.

 else if RadioButton2.Checked then

   if number mod 3 = 0 then 

     // 'mod' - оператор знаходження залишку від ділення.

     Label1.Caption := 'Число ділиться на 3.' 

     // Виводимо повідомлення, якщо число ділиться на 3.

   else

     Label1.Caption := 'Число не ділиться на 3.'; 

     // Виводимо повідомлення, якщо число не ділиться на 3.

end;

Задача 3: Знаходження площі прямокутника (з можливістю зміни на периметр)

Опис задачі: Користувач вводить довжину і ширину прямокутника, програма обчислює його площу і виводить результат. Після запуску користувач може змінити програму так, щоб вона обчислювала периметр замість площі.

Розв’язок на Python:

python

# Виводимо запрошення для користувача ввести довжину

length = float(input("Введіть довжину прямокутника: ")) 

# input() - функція для отримання введення від користувача.

# float() - перетворює введений текст у дійсне число.

# Виводимо запрошення для користувача ввести ширину

width = float(input("Введіть ширину прямокутника: ")) 

# Аналогічно до попереднього рядка.

# Виводимо запрошення для користувача вибрати операцію

operation = input("Оберіть операцію (площа або периметр): ") 

# input() - функція для отримання введення від користувача.

if operation == 'площа': 

   # '==' - оператор порівняння. Перевіряє, чи введено "площа".

   area = length * width 

   # '*' - оператор множення. Результат записується у змінну area.

   print("Площа прямокутника:", area) 

   # print() - функція для виведення тексту або значень на екран.

elif operation == 'периметр': 

   # '==' - оператор порівняння. Перевіряє, чи введено "периметр".

   perimeter = 2 * (length + width) 

   # '+' - оператор додавання, '*' - оператор множення.

   print("Периметр прямокутника:", perimeter) 

   # print() - функція для виведення тексту або значень на екран.

Розв’язок на Lazarus:

1. Створення форми:

   • Додайте на форму два TEdit (для введення довжини і ширини), одну кнопку TButton (для обчислення), два TRadioButton (для вибору операції "площа" або "периметр") і один TLabel (для виведення результату).

   • Назвіть компоненти так:

     • Edit1 - для введення довжини.

     • Edit2 - для введення ширини.

     • RadioButton1 - для вибору операції "площа".

     • RadioButton2 - для вибору операції "периметр".

     • Button1 - для кнопки "Обчислити".

     • Label1 - для виведення результату.

2. Код обробника події для кнопки:

pascal

procedure TForm1.Button1Click(Sender: TObject); 

// Button1Click - процедура, яка викликається при натисканні на кнопку.

var

 length, width, result: Double; 

 // Оголошуємо змінні для зберігання довжини, ширини і результату.

begin

 // Перетворюємо текст з Edit1 у число і записуємо його у length

 length := StrToFloat(Edit1.Text); 

 // StrToFloat() - функція, яка перетворює текст у дійсне число.

 // Перетворюємо текст з Edit2 у число і записуємо його у width

 width := StrToFloat(Edit2.Text); 

 // Аналогічно до попереднього рядка.

 // Перевіряємо, яку операцію обрав користувач

 if RadioButton1.Checked then 

   // Checked - властивість RadioButton, яка перевіряє, чи він вибраний.

   result := length * width 

   // '*' - оператор множення. Результат записується у result.

 else if RadioButton2.Checked then

   result := 2 * (length + width); 

   // '+' - оператор додавання, '*' - оператор множення.

 // Виводимо результат у Label1

 Label1.Caption := 'Результат: ' + FloatToStr(result); 

 // FloatToStr() - функція, яка перетворює дійсне число у текст.

 // Caption - властивість Label, яка визначає текст, який він відображає.

end;

Ці задачі допомагають дітям зрозуміти базові принципи програмування, а також дають можливість налагоджувати програми, змінюючи їх функціональність після запуску.