Розв’язання

Обробник події 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;