Поділіться своєю думкою про онлайн уроки інформатики. Пройдіть анонімне опитування на головній сторінці сайту
Python
python
Копіювати код
# Введення чисел
a = int(input("Введіть перше число: "))
b = int(input("Введіть друге число: "))
c = int(input("Введіть третє число: "))
# Пошук максимального і мінімального
maximum = max(a, b, c)
minimum = min(a, b, c)
# Виведення результатів
print(f"Найбільше число: {maximum}")
print(f"Найменше число: {minimum}")
Lazarus
Елементи на формі
TEdit (Edit1, Edit2, Edit3): Для введення трьох чисел.
TButton (Button1): З підписом "Знайти".
TLabel (Label1, Label2): Для виведення максимального та мінімального чисел.
Код обробника події кнопки
pascal
Копіювати код
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c, maxVal, minVal: Integer;
begin
// Зчитування чисел
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
c := StrToInt(Edit3.Text);
// Знаходимо найбільше та найменше
maxVal := Max(a, Max(b, c));
minVal := Min(a, Min(b, c));
// Виведення результатів
Label1.Caption := 'Найбільше число: ' + IntToStr(maxVal);
Label2.Caption := 'Найменше число: ' + IntToStr(minVal);
end;
Python
python
Копіювати код
# Введення списку
numbers = list(map(int, input("Введіть числа через пробіл: ").split()))
# Пошук максимального і мінімального
maximum = max(numbers)
minimum = min(numbers)
# Виведення результатів
print(f"Найбільше число: {maximum}")
print(f"Найменше число: {minimum}")
Lazarus
Елементи на формі
TEdit (Edit1): Для введення чисел через пробіл.
TButton (Button1): З підписом "Знайти".
TLabel (Label1, Label2): Для виведення максимального та мінімального чисел.
Код обробника події кнопки
pascal
Копіювати код
procedure TForm1.Button1Click(Sender: TObject);
var
Numbers: TStringList;
i, maxVal, minVal, currentVal: Integer;
begin
// Розбиття чисел зі строки
Numbers := TStringList.Create;
try
Numbers.Delimiter := ' ';
Numbers.DelimitedText := Edit1.Text;
// Ініціалізація змінних
maxVal := StrToInt(Numbers[0]);
minVal := StrToInt(Numbers[0]);
// Пошук максимального і мінімального
for i := 0 to Numbers.Count - 1 do
begin
currentVal := StrToInt(Numbers[i]);
if currentVal > maxVal then
maxVal := currentVal;
if currentVal < minVal then
minVal := currentVal;
end;
// Виведення результатів
Label1.Caption := 'Найбільше число: ' + IntToStr(maxVal);
Label2.Caption := 'Найменше число: ' + IntToStr(minVal);
finally
Numbers.Free;
end;
end;
Python
python
Копіювати код
# Ініціалізація змінних
n = int(input("Скільки чисел ви хочете ввести? "))
maximum = float('-inf')
minimum = float('inf')
# Пошук максимального і мінімального
for _ in range(n):
num = int(input("Введіть число: "))
if num > maximum:
maximum = num
if num < minimum:
minimum = num
# Виведення результатів
print(f"Найбільше число: {maximum}")
print(f"Найменше число: {minimum}")
Lazarus
Елементи на формі
TEdit (Edit1): Для введення одного числа.
TButton (Button1): З підписом "Додати".
TButton (Button2): З підписом "Результат".
TLabel (Label1, Label2): Для виведення максимального та мінімального чисел.
Код обробників подій кнопок
pascal
Копіювати код
var
maxVal, minVal: Integer;
isFirst: Boolean;
procedure TForm1.Button1Click(Sender: TObject);
var
currentVal: Integer;
begin
currentVal := StrToInt(Edit1.Text);
if isFirst then
begin
maxVal := currentVal;
minVal := currentVal;
isFirst := False;
end
else
begin
if currentVal > maxVal then
maxVal := currentVal;
if currentVal < minVal then
minVal := currentVal;
end;
Edit1.Clear; // Очистка для наступного введення
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// Виведення результатів
Label1.Caption := 'Найбільше число: ' + IntToStr(maxVal);
Label2.Caption := 'Найменше число: ' + IntToStr(minVal);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
isFirst := True; // Позначення першого введення
end;
Створіть форму з вказаними елементами.
Призначте обробники подій:
Для кнопки "Додати" (Button1) — обробник для обчислення.
Для кнопки "Результат" (Button2) — виведення результатів.
Ініціалізуйте змінні в FormCreate.
Ці приклади є простими та підходять для початкового рівня.
Python
python
Копіювати код
# Введення чисел
nums = [int(input(f"Введіть число {i + 1}: ")) for i in range(4)]
# Пошук максимального і мінімального
maximum = max(nums)
minimum = min(nums)
# Виведення результатів
print(f"Найбільше число: {maximum}")
print(f"Найменше число: {minimum}")
Lazarus
Елементи на формі
TEdit (Edit1, Edit2, Edit3, Edit4): Для введення чотирьох чисел.
TButton (Button1): З підписом "Обчислити".
TLabel (Label1, Label2): Для виведення максимального та мінімального значення.
Код обробника події кнопки
pascal
Копіювати код
procedure TForm1.Button1Click(Sender: TObject);
var
nums: array[1..4] of Integer;
maxVal, minVal, i: Integer;
begin
// Зчитування чисел
nums[1] := StrToInt(Edit1.Text);
nums[2] := StrToInt(Edit2.Text);
nums[3] := StrToInt(Edit3.Text);
nums[4] := StrToInt(Edit4.Text);
// Ініціалізація змінних
maxVal := nums[1];
minVal := nums[1];
// Пошук максимального і мінімального
for i := 2 to 4 do
begin
if nums[i] > maxVal then
maxVal := nums[i];
if nums[i] < minVal then
minVal := nums[i];
end;
// Виведення результатів
Label1.Caption := 'Найбільше число: ' + IntToStr(maxVal);
Label2.Caption := 'Найменше число: ' + IntToStr(minVal);
end;
Python
python
Копіювати код
# Введення чисел
numbers = []
for i in range(5):
numbers.append(int(input(f"Введіть число {i + 1}: ")))
# Пошук максимального і мінімального
maximum = max(numbers)
minimum = min(numbers)
# Виведення результатів
print(f"Найбільше число: {maximum}")
print(f"Найменше число: {minimum}")
Lazarus
Елементи на формі
TEdit (Edit1, Edit2, Edit3, Edit4, Edit5): Для введення п’яти чисел.
TButton (Button1): З підписом "Знайти".
TLabel (Label1, Label2): Для виведення результатів.
Код обробника події кнопки
pascal
Копіювати код
procedure TForm1.Button1Click(Sender: TObject);
var
nums: array[1..5] of Integer;
maxVal, minVal, i: Integer;
begin
// Зчитування чисел
nums[1] := StrToInt(Edit1.Text);
nums[2] := StrToInt(Edit2.Text);
nums[3] := StrToInt(Edit3.Text);
nums[4] := StrToInt(Edit4.Text);
nums[5] := StrToInt(Edit5.Text);
// Ініціалізація максимального і мінімального значень
maxVal := nums[1];
minVal := nums[1];
// Обчислення
for i := 2 to 5 do
begin
if nums[i] > maxVal then
maxVal := nums[i];
if nums[i] < minVal then
minVal := nums[i];
end;
// Виведення результатів
Label1.Caption := 'Найбільше число: ' + IntToStr(maxVal);
Label2.Caption := 'Найменше число: ' + IntToStr(minVal);
end;
Python
python
Копіювати код
# Ініціалізація
maximum = float('-inf')
minimum = float('inf')
# Введення чисел
while True:
num = int(input("Введіть число (0 для завершення): "))
if num == 0:
break
if num > maximum:
maximum = num
if num < minimum:
minimum = num
# Перевірка введених чисел
if maximum == float('-inf') and minimum == float('inf'):
print("Чисел не було введено.")
else:
print(f"Найбільше число: {maximum}")
print(f"Найменше число: {minimum}")
Lazarus
Елементи на формі
TEdit (Edit1): Для введення числа.
TButton (Button1): З підписом "Додати".
TButton (Button2): З підписом "Результат".
TLabel (Label1, Label2): Для виведення максимального та мінімального значення.
Код обробників подій кнопок
pascal
Копіювати код
var
maxVal, minVal: Integer;
isFirst: Boolean;
procedure TForm1.Button1Click(Sender: TObject);
var
currentVal: Integer;
begin
currentVal := StrToInt(Edit1.Text);
// Ініціалізація значень
if isFirst then
begin
maxVal := currentVal;
minVal := currentVal;
isFirst := False;
end
else
begin
if currentVal > maxVal then
maxVal := currentVal;
if currentVal < minVal then
minVal := currentVal;
end;
Edit1.Clear; // Очищення поля введення
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// Виведення результатів
Label1.Caption := 'Найбільше число: ' + IntToStr(maxVal);
Label2.Caption := 'Найменше число: ' + IntToStr(minVal);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
isFirst := True; // Позначення першого запуску
end;
У першій задачі додано одну змінну для аналізу.
У другій задачі змінено кількість чисел для аналізу та розширено список.
У третій задачі реалізовано введення поки користувач не введе "0", що додає гнучкості.
Тест на тему "Пошук найбільшого та найменшого серед кількох значень":
Питання: Яка основна мета пошуку найбільшого та найменшого значення в масиві?
a) Визначення кількості елементів
b) Знаходження середнього значення
c) Отримання найменшого та найбільшого значень
Відповідь: c
Питання: Як визначити мінімальне значення в масиві у Python?
a) minimum(numbers)
b) min_value(numbers)
c) min(numbers)
Відповідь: c
Питання: Як визначити максимальне значення в масиві у Pascal (Lazarus)?
a) max_value := max(numbers)
b) max_value = maximum(numbers)
c) max_value := maximum(numbers)
Відповідь: a
Питання: Як називається вбудована функція для пошуку мінімального значення в Python?
a) min_value()
b) minimum()
c) min()
Відповідь: c
Питання: Як знайти найбільше значення у Pascal (Lazarus) за допомогою циклу?
a) max_value := max_element(numbers)
b) max_value = maximum_value(numbers)
c) max_value := numbers[i]
Відповідь: c
Питання: Яким чином можна здійснити пошук найменшого значення в Python?
a) minimum_value(numbers)
b) min_value(numbers)
c) min(numbers)
Відповідь: c
Питання: Що робить функція max() в Python?
a) Знаходить максимальне значення
b) Рахує середнє значення
c) Сортує список
Відповідь: a
Питання: Як визначити найменше значення у Pascal (Lazarus)?
a) min_element(numbers)
b) min(numbers)
c) min_value := minimum(numbers)
Відповідь: b
Питання: Які переваги використання функцій min() та max() у порівнянні з ручним пошуком?
a) Ручний пошук ефективніший
b) Функції забезпечують більш читабельний код
c) Це однаково, просто інший спосіб
Відповідь: b
Питання: Яким чином слід здійснювати пошук найбільшого значення в масиві чисел у Pascal (Lazarus)?
a) maximum_element(numbers)
b) max_value(numbers)
c) max_value := max(numbers)
Відповідь: c