Лабораторна робота №7. Розв’язування задач за допомогою оператора if – then.
Прізвище, ім’я учня _______________________________________________________ Клас ____
Завдання
Продивіться та повторіть у Delphi приклад розв’язання задач.
Задача 1. Бука задумала число Х, а Бяка – число Y. Вони поспорили між собою, що коли Бякине число буде більше Букиного рівно вдвічі, то Бяка покаже Буці язика, а коли Букине число буде відвічі більше Бякиного, то Бука вдарить Бяку по лобі. В усіх інших випадках перемагає дружба. Напишіть програму, яка б по заданих числах X та Y виводила б результат їхнього спору.
Вхідні дані. Букине число Х та Бякине число Y вводяться з клавіатури.
Вихідні дані. Результат спору виводиться на екран.
Розв’язання
-
Напишіть обробник події OnClick кнопки:
procedure TForm1.Button1Click(Sender: TObject);
var
buka, baka: integer;
begin
buka:=StrToInt(Edit1.Text);
baka:=StrToInt(Edit2.Text);
if buka=2*baka then ShowMessage('Бука вдарить Бяку') else
if baka=2*buka then ShowMessage('Бяка покаже Буці язика')
else ShowMessage('Перемогла дружба');
end;
Задача 2. Іван - дурак ішов по дорозі і бачить: стоїть стовп, а на ньому три написи: наліво підеш – ще дурнішим станеш, направо підеш – до МММ попадеш, а прямо підеш – хтозна куди попадеш. Напишіть програму, яка за даним напрямком (наліво, направо або прямо) вказує, що станеться з Іваном.
Вхідні дані. Напрямок, за яким піде Іван, у вигляді слів «наліво», «направо», «прямо» вводиться з клавіатури.
Вихідні дані. Подальша доля Івана виводиться на екран.
Розв’язання
-
Обробник події OnClick кнопки:
рrocedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='направо' then ShowMessage('Іван попаде до МММ')
else if Edit1.Text='наліво' then ShowMessage('Іван стане ще дурнішим')
else if Edit1.Text='прямо' then ShowMessage('Іван попаде хтозна куди')
else ShowMessage('Недопустимий напрямок! Можна вводити наліво, направо, прямо');
end;
Задача 3. Дівчинка Груня погано запам’ятовує цифри, але добре пам’ятає дні тижня. Допоможіть Груні визначитися, який номер у кожного дня тижня (понеділок – 1, вівторок – 2, середа – 3 і т.д.)
Вхідні дані. День тижня вводиться з клавіатури.
Вихідні дані. Номер дня тижня виводиться на екран.
-
Обробник події OnClick кнопки:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='понеділок' then ShowMessage('1')
else if Edit1.Text='вівторок' then ShowMessage('2')
else if Edit1.Text='середа' then ShowMessage('3')
else if Edit1.Text='четвер' then ShowMessage('4')
else if Edit1.Text='п''ятниця' then ShowMessage('5')
else if Edit1.Text='субота' then ShowMessage('6')
else if Edit1.Text='неділя' then ShowMessage('7')
else ShowMessage('Такого дня тижня не існує');
end;