Розглянемо наступний приклад:

Дано два числа а,b (а,b?0). Відповісти чи одного знака введені числа.

Розберемо дану задачу.

Тут можливі чотири варіанти вхідних даних, для кожного з яких запишемо окрему складову умову:

А	b	Відповідь:
a>0 a<0 a>0 a<0	b>0 b<0 b<0 b>0	Одного знака Одного знака Різні знаки Різні знаки

program zadacha3_6a;

var а,b:real;

Begin

writeln('Введіть два числа');

readln(а,b);

if (a>0) and (b>0) then writeln('числа одного знаку');

if (a<0) and (b<0) then writeln('числа одного знаку');

if (a>0) and (b<0) then writeln('числа різних знаків');

if (a<0) and (b>0) then writeln('числа різних знаків');

End.

На сьогоднішньому занятті ми не просто вивчатимемо нову тему, але і спробуємо з'ясувати для себе, що добрий програміст завжди уважно обдумує навіть вже написану і відладжену програму. Адже майже завжди можна застосувати правило: "Будь-яку програму можна переписати так, що вона стане більш короткою, або більш красивою".

А чи можна зробити нашу програму більш красивої або більш короткої? Так, можна. Давайте об'єднаємо першу і другу складові умови.

program zadacha3_6b;

var а,b:real;

Begin

writeln('Введіть два числа');

readln(а,b);

if ((a>0)and(b>0)) or ((a<0)and(b<0))

then writeln('числа одного знаку')

else writeln('числа різних знаків');

End.

Програма стала дійсно коротшою. Але в прикладі 3_6b складова умова складається у свою чергу з двох складових умов. Перегляньте, як розставлені дужки. А чи можна і цю програму зробити більш красивою або більш короткою? Можна. Приведемо нову версію перевірки умови для даної програми:

if a*b>0 then writeln('числа одного знаку')

else writeln('числа різних знаків');

Замініть умову в комп'ютері і переконайтеся, що воно працює вірно.

Дано натуральне число. Перевірити, чи є число двозначним, у якого перша цифра рівна останній.

program zadacha3_7;

var а:integer;

Begin

writeln('Введіть натуральне число');

readln(a);

if (а mod 10=a div 10) and (a>9) and (a<=99)

then writeln('является') else writeln('не является');

End.

Питання для повторення:

1. Що таке складова умова?

2. В чому відмінність складової умови від простої?

3. Які союзи використовуються при написанні складової умови?

4. Навіщо в задачі 3_6b використовуються подвійні дужки?

Завдання для самостійної роботи:

1. Задане x. Обчислити у

a) б)

2. Задано два числа. Чи є вони обидва великими 20?

3. Задано два числа. Чи є вони обидва парними?

4. Задано два числа. Чи є хоча б одне число парним?

5. Задано два числа. Чи є хоча б одне число позитивним?

6. Дано двухзначное число. Чи є обидві цифри числа парними?

7. Дано тризначне число. Чи входить в нього цифра 4?

8. Перевірити, чи є число тризначним, у якого перша цифра рівна останній.

9. Визначити, чи є дане ціле число N непарним чотиризначним числом.

10. Вивести на екран номер четверті, якій належить крапка з координатами (x,y), за умови, що x і у відмінні від 0.

11. Задані дійсніx і у. Чи належить точка (x, у) заштрихованої частини площини:

2. Дано натуральне число N (N<100), що визначає вік людини в літах. Дати для цього числа найменування: "рік", "роки", "літ".

Вивчаємо “Розгалуження в Pascal”

Тема уроку:

Операторні дужки.

Складовий оператор.

Мета заняття:

1. Сформувати поняття про складового оператора;

2. Отримати навики використовування операторних дужок;

3. Закріпити знання і уміння по складанню програм на розгалудження.