Прочитайте теоретичні відомості.
Часто буває так, що логічне висловлювання складається з кількох більш простих висловлювань, тобто являється складеним. Наприклад, x>0 – це просте висловлювання, x<5 – також просте висловлювання. А от (x>0) та (x<5) – це складне висловлювання, яке складається з двох простих. (x>0) або (у<5) – також складне висловлювання, в якому зв’язкою служить слово або. Висловлювання не вірно, що х>0 також є логічним висловлюванням.
В Delphi слова та, або, не вірно, що позначаються так:
-
Слово
В Delphi
та
and
або
or
невірно, що
not
Задача 4. Перевірити, чи належить число Х проміжку (-4; 4).
Вхідні дані. Число Х вводиться з клавіатури.
Вихідні
дані.
На екран виводяться слова «належить»,
якщо Х є (-4;
4)
або «не належить», якщо Х є
(-4; 4).
Розв’язання
-
Обробник події OnClick кнопки:
procedure TForm1.Button1Click(Sender: TObject);
var
x:real;
begin
x:=StrToFloat(Edit1.Text);
if (x>-4) and (x<4) then ShowMessage('належить') else ShowMessage('не належить');
end;
Розв’яжіть наступні задачі.
Задача 5. Якщо третьокласник Коля не зустріне по дорозі жодного першокласника, то він без пригод дійде туди, куди ішов. Якщо він зустріне одного першокласника, то ця пригода минеться для нього щасливо, якщо двох – то напівщасливо, якщо трьох – нещасливо, а якщо чотирьох і більше – він взагалі не дійде. Написати програму, яка б за заданим числом першокласників визначала, що станеться з Колею.
Вхідні дані. Число першокласників вводяться з клавіатури.
Вихідні дані. Результат зустрічі виводиться на екран («без пригод», «щасливо», «напівщасливо», «нещасливо», «не дійде»).
Задача 6. Якщо першокласник Вітя спробує закопати свій щоденник з двійками на глибину меншу, ніж 0,5 м, його швидко викопає собака Жучка і віднесе батькам. Якщо Вітя спробує закопати його на глибину 0,5 – 1 м, то для нього це буде оптимальним варіантом. Якщо глибина закопування буде більшою, ніж 1 м, то він наткнеться на високовольтну лінію і йому буде все одно, вдалося закопати щоденник чи ні. Напишіть програму, яка за заданою глибиною закопування визначатиме, що станеться.
Вхідні дані. Глибина закопування вводиться з клавіатури.
Вихідні дані. Подія, що відбудеться далі, виводиться на екран («Жучка викопає», «Оптимальний варіант», «Віті буде все одно»).
Задача 7. Перевірити, чи належить число X проміжку [10; 20].
Вхідні дані. Число Х вводиться з клавіатури.
Вихідні дані. На екран виводяться слова «належить» або «не належить».
Задача 8. Перевірити, чи належить число Х проміжку [a, b].
Вхідні дані. Числа Х, a, b вводяться з клавіатури.
Вихідні дані. На екран виводяться слова «належить» або «не належить».
Задача 9. Перевірити, чи належить число Х хоча б одному з проміжків (-10; -5) та (5; 10).
Вхідні дані. Число Х вводиться з клавіатури.
Вихідні дані. На екран виводяться слова «належить» або «не належить».
Задача 10. Перевірити, чи належить число Х хоча б одному з проміжків (a, b) та (c, d).
Вхідні дані. Числа Х, a, b, c, d вводяться з клавіатури.
Вихідні дані. На екран виводяться слова «належить» або «не належить».
Задачі 11 – 13 (про належність точки прямокутнику). Дано координати точки X, Y. Визначити, чи належить вона прямокутнику, зображеному на мал. нижче:
Вхідні дані. Координати точки X, Y вводяться з клавіатури.
Вихідні дані. Належність точки прямокутнику виводиться на екран («належить», «не належить»).
Задача 11
Задача 12
Задача 13
Лабораторна робота №8
Команда InputBox та об’єкт MEMO
Прізвище, ім’я учня _______________________________________________________ Клас ____
Завдання